| Описание |
Ключевое слово Until заканчивает управляемый цикл, который всегда выполняется не менее одного раза, и который заканчивается, когда выражение(Expression) удовлетворено (возвращает True).
Нет никакой потребности в маркерах Begin и End - ключевые слова Repeat и Until выполняют эту задачу.
Цикл используется, когда важно, чтобы инструкции выполнились не менее одного раза.
|
|
| Примечания |
|
Не обязательно ставить признак конца ';' после последнего оператора.
|
|
| Похожие команды |
Begin Ключевое слово, которое начинает операторный блок
Boolean Позваляет принимать только True и False значения
Do Определяет начало некоторого управляемого действия
End Ключевое слово, которое заканчивает операторные блоки
For Начинает цикл, который выполняется конечное число раз
Repeat Повторяет инструкции, пока не выполнится условие завершения
While Повторяет инструкции, пока выполнится условие продолжения
| |
|
| Пример кода : Отображение целых квадратов до тех пор пока мы не достигли или превысили 100 |
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
|
|
