Then begin. < послідовність команд 1>

< послідовність команд 1>

End

Else begin

< послідовність команд 2>

End;

(англ. if – якщо, then – тоді, else – інакше)

Є в Delphi й команда неповного розгалуження:

If <логічний вираз>

Then begin

<послідовність команд >

End;

Виконання команди повного розгалуження відбувається так: обчислюється значення логічного виразу; якщо це значення true, то виконується послідовність команд 1 і після цього виконується команда, наступна за командою розгалуження; якщо це значення false, то виконується послідовність команд 2 і після цього виконується команда, наступна за командою розгалуження.

Виконання команди неповного розгалуження відбувається так: обчислюється значення логічного виразу; якщо це значення true, то виконується послідовність команд і після цього виконується команда, наступна за командою розгалуження; якщо це значення false, одразу виконується команда, наступна за командою розгалуження.

Звертаємо вашу увагу:

• якщо після ключових слів Then і Else слідують тільки по одній команді, то операторні дужки begin і end можна не ставити;
• перед Else ставити крапку з комою не можна.

Якщо записати в Delphi фрагмент програми розв’язування задачі 1 (блок-схема відповідного алгоритму наведена на рис. 2.46), то він виглядатиме так:

a:= StrToFloat(Edit1.Text);

b:= StrToFloat(Edit2.Text);

c:= StrToFloat(Edit3.Text);

d:= StrToFloat(Edit4.Text);

x:= c–d;

If x = 0

Then Label1.Caption:= 'Вираз значення не має: д ілення на нуль'