Разное
Облака / Clouds

The bast cloud service
Get 20 GB free!!!
Support WebDav.
Show more >>

time-tested cloud storage
Support WebDav.
Последние книги
Самое популярное
Все бесплатно
Все ссылки на файлы, расположенные на страницах сайта, добавлены пользователями и доступны для бесплатного скачивания. За содержание этих файлов администрация сайта ответственности не несет.
Навигация
Вопросы
Delphi - Справочник: Repeat
Repeat
|
Repeat Statement1; {Statement2; ...} Until Expression |
Ключевое слово (Unit )
|
Повторяет инструкции, пока не выполнится условие завершения
|
Описание:
|
Ключевое слово Repeat начинает управляемый цикл, который всегда выполняется не менее одного раза и заканчивается, когда Выражение(Expression) будет удовлетворено (возвратится True). Нет никакой потребности в маркерах Begin> и End - ключевые слова Repeat и Until сами выполняют эту задачу. Цикл используется, когда важно, чтобы инструкции выполнились не менее одного раза. |
Пример кода: Отображение целых квадратов до тех пор пока мы не достигли или превысили 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 |
Примечание:
|
После последнего оператора не обязательно ставить ; признак конца. |