Главная Случайная страница Контакты | Мы поможем в написании вашей работы! | ||
|
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}
Дата публикования: 2014-12-11; Прочитано: 232 | Нарушение авторского права страницы | Мы поможем в написании вашей работы!