$ IfStatement = IF expression THEN StatementSequence
{ELSEIf expression THEN StatementSequence}
[ELSE StatementSequence]
END IF ";"
Оператор If обеспечивает условное выполнение операторов в зависимости от заданных логических выражений. Блок операторов начинается с ключевых слов If...Then, между которыми указывается проверяемое выражение. Далее могут идти несколько необязательных блоков Elseif...Then, содержащих другие проверяемые выражения. Если найдется выражение, значение которого будет истинно (True), то выполняется соответствующая последовательность операторов. После всех блоков можно указать блок Else, содержащий операторы, которые будут выполнены, если ни одно из выражений не вернет значение True. После выполнения какой-либо группы операторов управление передается следующему оператору после оператора If.
Sub IfSample;
Var
a, b: Integer;
c: Double;
Begin
//...
//Получение значений a, b, c
//...
If (a > b) And (b > c) Then
c := a - b;
Elseif (a < b) And (b < c) Then
c := b - a;
Else
c := (a + b) / 2
End If;
//...
End Sub IfSample;
См. также: