Составить программу по вычислению функции в turbp pascal
на скриншоте
текст программы может выглядеть следующим образом:
program lab_2-1;
uses crt; { раздел объявления внешних модулей }
label m1,m2;
var
n : integer;
x,y : real;
p: byte; {признак выполнения пунктаn1}
begin
clrscr; { очистка экрана }
riteln(‘программа вычисления функции…’);
{ вывод на экран меню }
writeln(‘++’);
writeln(‘| 1. ввод данных |’);
writeln(‘| 2. вычисление функции и вывод результатов |’);
writeln(‘| 3. завершение работы программы |’);
writeln(‘++’);
p: =0;
m1: riteln(‘введите пункт меню’);
readln(n); { ввод номера пункта меню}
case n of
1: begin { ввод данных }
m2: write(‘введите значение аргумента x=’);
readln(x)
{ проверка допустимого значения аргумента }
if x=0 then begin
riteln(‘x не может быть равным 0 по условию’) ;
goto m2; end;
p: =1; {пункт n1 выполнен}
end;
2: { вычисление значения функции }
begin
if p< > 0 then
writeln (‘данные не введены, выполните пункт n1’);
else
begin
{ операторы вычисления и вывода значения функции }
if x> 0 then y: =1/x else y: =x*x;
writeln(‘при х=’, x: 7: 2, ‘ y=’, y: 7: 2)
end;
end;
3: exit { выход из программы }
end; { end case }
goto m1;
end. { конец программы}
User CRT;
Var x, y:real;
BEGIN
ClrScr;
Write('Введите значение функции x=');
ReadLn(x);
if x<0 then y:=x*x+4*x-8 else y:=1/(x*x+4*x-8);
WriteLn('при x=', x:7:2, 'y =', y:7:2);
END.
Объяснение: