При составлении по алгоритму программы на месте блока «Решение» записывается условный оператор, который может иметь 2 формы. В общем виде полная форма записывается как:
If <логическое выражение> Then <оператор1> Else < оператор2>;
а сокращенная:
If < логическое выражение > Then < оператор1>;
В первом случае, если логическое выражение истинно (True), то выполняется оператор1, а если ложно, то оператор2. Во втором случае при ложности логического выражения просто осуществляется переход к следующему оператору.
Наиболее простой пример – вычисление значения кусочно-непрерывной функции:
Program Function;
Var
f,x:real;
Begin
Read (x);
If x>=0 Then F := x*x {первый вариант}
Else F := sqrt (x); {второй вариант}
WriteLn ('Значение функции =',F:8:3);
end.
Заметим, что значение функции используется как имя переменной. Оно не должно содержать скобок, поэтому здесь вместо F(x) используется просто F (можно функцию назвать и по-другому, например Fx).
