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