<послідовність команд >
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 := 'Вираз значення не має: ділення на нуль'