Условный оператор If..Then..Else

Условный оператор предназначен для ветвления программы в зависимости от некоторого условия (логического выражения или логической переменной) и выглядит следующим образом:

If <Условие> Then <Команда> [Else <Команда>];

Вторая часть условного оператора, начинающаяся с ключевого слова Else, необязательна, и ее можно не использовать, например:

If X > 0 Then X:= 10;

На рис.3 представлена блок-схема алгоритма, соответствующего условному оператору.

В качестве примера использования условного оператора приведем фрагмент программы, определяющий сигнатуру некоторой целочисленной переменной X. Сигнатурой числового значения является: 0, если значение равно нулю; -1, если значение отрицательно; 1, если значение положительно.

Код примера приведен в листинге 2.12. В программе используются два условных оператора, один из которых вложен в другой. В обоих операторах присутствует секция Else.

Листинг 2.12. Использование условного оператора

Var

X: Integer; {Описание анализируемой переменной}

Sign: Integer; {Описание переменной для хранения результата анализа

(сигнатуры)}

Begin

If X > 0 then Sign:= 1 {Если значение переменной X положительно,

переменной Sign будет присвоено значение 1}

else If X < 0 then Sign:= -1 {Если значение переменной X отрицательно,

переменной Sign будет присвоено значение -1}

else Sign:= 0; {Если не выполнены оба предыдущих условия

(значение переменной X нулевое), следовательно,

переменной Sign также следует присвоить значение 0}

Вместо Условия в операторе If..Then..Else допускается применение переменной типа Boolean:

Var

В: Boolean;

Begin

If В Then... Else

End;