Delphi-Help

Описание

Repeat
Statement1;
{Statement2;
...}
Until Expression

Ключевое слово Repeat начинает управляемый цикл, который всегда выполняется не менее одного раза и заканчивается, когда Выражение(Expression) будет удовлетворено (возвратится True).

Нет никакой потребности в маркерах Begin> и End - ключевые слова Repeat и Until сами выполняют эту задачу.

Цикл используется, когда важно, чтобы инструкции выполнились не менее одного раза.

Пример кода

var
num, sqrNum : Integer;

begin
num := 1;
sqrNum := num * num;

// Показ квадратов целых чисел, пока мы не достигли значения 100
Repeat
// Показ квадрата числа
ShowMessage('Квадрат '+IntToStr(num)+' = '+IntToStr(sqrNum));

// Приращение числа
Inc(num);

// Возведение в квадрат
sqrNum := num * num;
until sqrNum > 100;
end;

Квадрат 1 = 1
Квадрат 2 = 4
Квадрат 3 = 9
Квадрат 4 = 16
Квадрат 5 = 25
Квадрат 6 = 36
Квадрат 7 = 49
Квадрат 8 = 64
Квадрат 9 = 81
Квадрат 10 = 100

Примечание

После последнего оператора не обязательно ставить ; признак конца.