| Описание |
Ключевое слово While начинает цикл, который выполняется пока, Выражение(Expression) удовлетворяется (возвращает True).
Цикл не выполняется вообще, если выражение является ложным с самого начала.
Если в цикле используются множественные инструкции, то они должны заключатся в Begin и End маркеры.
While используется, когда важно, чтобы инструкции выполнялись только когда необходимо.
|
|
| Похожие команды |
Begin Ключевое слово, которое начинает операторный блок
Boolean Позваляет принимать только True и False значения
Do Определяет начало некоторого управляемого действия
End Ключевое слово, которое заканчивает операторные блоки
For Начинает цикл, который выполняется конечное число раз
Repeat Повторяет инструкции, пока не выполнится условие завершения
Until Заканчивает управляемый цикл Repeat
| |
|
| Пример кода : Показ квадратов целых чисел, пока мы не достигли 100 |
var
num, sqrNum : Integer;
begin
num := 1;
sqrNum := num * num;
// Показ квадратов целых чисел, пока мы не достигли значения 100
While sqrNum <= 100 do
begin
// Показ
квадрата числа
ShowMessage(IntToStr(num)+' squared = '+IntToStr(sqrNum));
// Приращение числа
Inc(num);
// Возведение в квадрат
sqrNum := num * num;
end;
end;
|
Квадрат 1 = 1
Квадрат 2 = 4
Квадрат 3 = 9
Квадрат 4 = 16
Квадрат 5 = 25
Квадрат 6 = 36
Квадрат 7 = 49
Квадрат 8 = 64
Квадрат 9 = 81
Квадрат 10 = 100
|
|
