АгентК

30.08.2020 21:01 •  Информатика

Как исправить?
код программы:
uses crt; {раздел объявления внешних модулей}
label m1,m2;

var
n: integer;
x,y,b: real;
p: byte; {признак выполнения пункта n1}

begin
clrscr; { очистка экрана }
writeln('программа вычисления ');

{вывод на экран меню}
writeln('++');
writeln('| 1. ввод данных |');
writeln('| 2. вычисление функции и вывод результатов |');
writeln('| 3. завершение работы программы |');
writeln('++');
p: =0;

m1: writeln('введите пункт меню');
readln(n); {ввод номера пункта меню}
case n of
1:
begin {ввод данных}

m2: write('введите значение аргумента x=');
readln(x);

{проверка допустимого значения аргумента}
if x = 8 then
begin
writeln('x не может быть равным 0 по условию');
goto m2;
end;

p: =1; {пункт n1 выполнен}
end;

2: {вычисление значения функции}
begin
if p = 0 then
writeln('данные не введены, выполните пункт n1')
else
begin
{операторы вычисления и вывода значения функции}
y : = sqr(x) + 4*x - 8;
if x > 2 then
y : = 1/y;

writeln('при х=', x: 7: 2, ' y=', y: 7: 2)
end;
end;

3: exit {выход из программы}
end; {end case}
goto m1;
end. {конец программы}