Условный оператор If
Разветвляющиеся программы.
| Полная форма
| Сокращенная форма
|
| IF Условие THEN Оператор1
ELSE Оператор2;
Если… то… иначе…
| IF Условие THEN Оператор;
Если… то…
|
Условие может быть
- константой: IF True THEN… (редко),
- переменной: IF LogicVar THEN…
- логическим выражением: IF not LogicVar THEN…
Если условие истинно, то выполняется оператор, следующий за словом THEN, в противном случае будет выполняться оператор, следующий за словом ELSE.
Если требуется выполнить не один оператор, а несколько, используют составной оператор – последовательность операторов, перед которой следует слово BEGIN, а после – слово END (так называемые «операторные скобки»). При этом после BEGIN и перед END точка с запятой не ставится.
Пример. Составить функцию для вычисления 
| Программа
| Блок-схема
|
|
function f(x: real): real;
begin
if x<0 then f:=exp(x)
else
if x<3 then f:=sqr(x)+1
else f:=10;
end;
|               
|
| Программа
| Блок-схема
|
|
function f(x: real): real;
begin
if x<0 then f:=exp(x);
if (x>=0) and (x<3)
then f:=sqr(x)+1;
if x>=3 then f:=10;
end;
|     
|
При вложенных условных операторах всегда действует правило: альтернатива ELSE считается принадлежащей ближайшему условному оператору IF.