Оператор Repeat

Синтаксис

$ RepeatStatement = REPEAT StatementSequence UNTIL expression ";"

Описание

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

Пример

Sub RepeatSample;

Var

a, b, c: Integer;

Begin

a := 1;

b := 4;

c := 2;

Repeat

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

a := a + 1;

Until a = 10

End Sub RepeatSample;

См. также:

Операторы