Как исправить?
код программы:
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. {конец программы}
242
366
Ответы на вопрос:
Популярно: Информатика
-
natalyazaprudsozxkk304.04.2022 16:49
-
svetokot200525.10.2021 14:59
-
wfeywbgfyef464614.10.2022 15:13
-
Лера1243518.03.2021 21:30
-
sahverdijevelme114.12.2020 03:01
-
Maximismailov28106.09.2021 18:18
-
Xb00010.04.2021 22:34
-
Irakli200707.03.2023 10:53
-
Monstrozacrs03.05.2021 11:35
-
Lollimil27.07.2022 23:25