|
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;
|
