Оператор While

Синтаксис

$ WhileStatement = WHILE expression DO StatementSequence END WHILE ";"

Описание

Оператор While обеспечивает циклическое повторение вложенной в него последовательности операторов. Оператор выполняет в цикле последовательность операторов пока истинно значение выражения. Значение выражения проверяется до выполнения последовательности операторов. Оно должно быть совместимым с типом Boolean.

Пример

Sub WhileSample;

Var

a, b, c: Integer;

Begin

a := 1;

b := 4;

c := 2;

While a < 10 Do

b := b + b * 5 - 25 * c - 3;

a := a + 1;

End While;

End Sub WhileSample;

См. также:

Операторы