Допускается сокращенная форма условного оператора: IF b THEN p

где b – условие, р – оператор, не являющийся условным.

В случае, если b удовлетворено, должен быть выполнен оператор р; если же b не удовлетворено, его выполнять не нужно.

Пример. Пусть даны два числа. Если первое больше второго по абсолютной величине, то необходимо уменьшить первое в пять раз. Иначе оставить числа без изменения. Программа:

Program ТТТ;

Var x, y: real;

Begin

Read (x, y);

if abs(x) > abs(y) then x:= x/5;

Write (x, y)

End.

Линейное программирование

Задание.

Вывести на экран значение С в случае если А>B и значение D во всех остальных случаях.

		Program ABC; VAR A, B, C, D: real; BEGIN Writeln; Write (‘введите А=’, A); Readln (A); Write (‘введите B=’, B); Readln (B); Write (‘введите C=’, C); Readln (C); Write (‘введите D=’, D); Readln (D); Writeln; IF A>B THEN writeln (‘Результат =’C); ELSE (‘Результат =’, D) End.