Пример 2. Write('Введите значение (0..9):');

Repeat

Write('Введите значение (0..9):');

Readln(I);

until (I >= 0) and (I <= 9);

Цикл выполняется ДО тех пор, пока 0<=I<=9.

Оператор цикла с предусловием

Оператор цикла с предусловием начинается с ключевого слова while и содержит в себе выражение, которое управляет повторным выполнением оператора тела цикла. Оператор тела цикла может быть составным оператором.

Формат оператора:

while <выражение> do

<оператор>;

Поскольку проверка условия на повторение цикла производится в начале, до тела цикла, оператор цикла while может быть выполнен ни разу, если выражение проверки примет значение False. Выражение, с помощью которого осуществляется управление повторением оператора, должно иметь булевский тип. Внутренний оператор выполняется повторно до тех пор, пока выражение имеет значение Тruе. Если выражение с самого начала принимает значение False, то цикл не выполняется ни разу.

Применяя оператор while, также следует соблюдать осторожность, чтобы не допускать зацикливания.

Пример 3 Нахождение факториала числа Х.

Fact:=1;

while X<=N do

Begin

Fact:=Fact*X;

X:=X+1;

End;

Пример 4 Генерация случайного числа, не равного 10.

while I <> 10 do

I:=Random(10) {функция Random(10) генерирует случайное число 0<=I<10}