Условный оператор

При составлении по алгоритму программы на месте блока «Решение» записывается условный оператор, который может иметь 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).