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

Условный оператор имеет две формы: полную и неполную.

Формат оператора

1. полная форма

If <логическое выражение> then <инструкция1> else <инструкция2>;

Если логическое выражение имеет значение «истина», то выполняется инструкция1, иначе инструкция2.

2. неполная форма

If <логическое выражение> then <инструкция>;

Если логическое выражение имеет значение «истина», то выполняется инструкция, иначе управление передается следующей после условного оператора команде. Обратите внимание на то, что логическое выражение может представлять собой логическую переменную или логическую функцию, сравнение их со значениями True или False не требуется.

Инструкция представляет собой либо одну команду, либо список команд, отделенных друг от друга символом точка с запятой и заключенный в так называемые инструктивные скобки begin — end. В Паскале имеются алгоритмические конструкции, которые сами выполняют роль инструктивных скобок, в этом случае внешние скобки begin – end могут быть опущены.

Пример

Program prim04;

Var

b,c:integer;

v:real;

g:boolean;

Begin

Write('b=');

Readln(b);

Write('c=');

Readln(c);

g:=c<b;

if g then

begin

v:=(b+c)/3.5;

v:=v/(v+1)

end

else

v:=b-c/5;

Writeln('v=',v:6:2)

End.

Program prim05;

Var

b,c:integer;

v:real;

Begin

Write('b=');

Readln(b);

Write('c=');

Readln(c);

if c<b then

begin

v:=(b+c)/3.5;

v:=v/(v+1)

end;

if c>=b then

v:=b-c/5;

Writeln('v=',v:6:2)

End.

Приведенные выше примеры программ показывают варианты решения одной и той же задачи с использованием логической переменной и без нее, а так же применяя полную и неполную форму условного оператора.