Для заданного Х вычислить значение А по формулам - Pascal ABC
Формулировка задачи:
Применив оператор безусловного перехода, для заданного Х вычислить значение
А по формулам:
A = Х2 + 1, если Х < 0
А = 2Х, если 0 ≤ Х < 10
A = Х2 – 1, если Х ≥ 10
Вот моя программа без goto
Решение задачи: «Для заданного Х вычислить значение А по формулам»
textual
Листинг программы
Label 1,2,3,4;
var x: integer;
a:real;
begin
writeln('Введите х');
readln(x);
if x<0 then goto 1
else if x<10 then goto 2
else goto 3;
1: begin
a:=sqr(x)+1;
goto 4;
end;
2: begin
a:=2*x;
goto 4;
end;
3: begin
a:=Sqr(x)-1;
goto 4;
end;
4:writeln('A=',a);
end.
Объяснение кода листинга программы
- Ввод значения переменной X.
- Проверка значения X. Если X меньше нуля, то переходим к метке 1, иначе проверяем следующее условие.
- Проверка значения X. Если X меньше 10, то переходим к метке 2, иначе переходим к метке 3.
- Вычисление значения переменной A в зависимости от значения X.
- Вывод значения переменной A на экран.