Задача:
Требуется написать программу, вычисляющую значение какой-нибудь функции (у = f(x)). Допустим, такой:
у = x – 2, если x > 0,
y = 0, если x = 0,
y = |x|, если x < 0.
Алгоритм решения задачи:
Задача решается очень просто.
Программа на языке Паскаль:
var x, y: integer; begin write ('x = '); readln (x); if x > 0 then y := x - 2 else if x = 0 then y := 0 else y := abs (x); writeln ('y = ', y); readln end.
Примечания:
В языке программирования Паскаль желательно вложенные конструкции if-elseпомещать в ветку else, а не if. Так проще не запутаться.