Применяется для организации циклов с
неизвестным заранее числом повторений, логика
которых предполагает выполнение цикла до тех пор
пока не станет истинным некоторое условие.
Синтаксис оператора REPEAT…UNTIL:
REPEAT
Оператор1;
Оператор2;
···
ОператорN;
UNTIL Условие;
Блок-схема оператора с постусловием
Операторы (Оператор1,
Оператор2, … ОператорN), образующие тело цикла,
будут выполнятся циклически, до тех пор пока
значение “Условия” не станет равно TRUE (истина).
Иными словами, в цикле REPEAT…UNTIL условием
продолжения итераций является невыполнение
“Условия” (его значение FASLE – ложь).
Условие цикла может быть логической
константой, переменной или логическим выражением.
Оператор REPEAT…UNTIL имеет две части:
начальную (слово REPEAT) и завершающую (слово UNTIL),
которые охватывают группу операторов,
составляющих тело цикла. Поэтому необходимости в
использовании составного оператора для
построения тела цикла из нескольких простых
операторов не возникает.
Принципиальное отличие оператора
REPEAT…UNTIL от оператора WHILE в том,
что проверка условия производится не перед
началом выполнения тела цикла, а после его
выполнения, когда решается вопрос, повторить ли
еще раз действия. Поэтому тело цикла
всегда выполняется по крайней мере один раз.
Пример 1. Проверка ввода
VAR
N : Integer;
BEGIN
. . .
REPEAT
Write(‘Введите целое число от 0 до 10: ’);
ReadLn(N);
UNTIL (N>=0) and (N<=10);
. . .
END.
N : Integer;
BEGIN
. . .
REPEAT
Write(‘Введите целое число от 0 до 10: ’);
ReadLn(N);
UNTIL (N>=0) and (N<=10);
. . .
END.
В этом примере программа будет
запрашивать ввод числа до тех пор, пока
пользователь не введет “правильное” число.
Пример 2. “Вечный цикл”
REPEAT UNTIL False;
Этот цикл пустой и никогда не
прекращающийся. Он хорош только в том случае,
когда нужно заблокировать программу, и, возможно
весь компьютер. (Но если отбросить шутки, то можно
и его пристроить в дело. Обычно так организуют
программы с повторяющимися действиями: вначале
программы ставят REPEAT, а в конце – UNTIL False. А
прервать цикл можно специальными операторами EXIT и HALT).
Это имеет смысл, если условий завершения
программы много или они очень сложны.)
ВСЕ ПРОЧИТАЙТЕ НАСТОЯЩЕЕ ОТЗЫВ О том, КАК Я ПОЛУЧИЛ СВОЙ КРЕДИТ ОТ КОМПАНИИ LEGIT И ДОВЕРЕННОЙ КРЕДИТНОЙ СРЕДИ Меня зовут Kjerstin Lis, я искал кредит для погашения своих долгов, все, кого я встречал, мошенничали и брали свои деньги, пока я наконец не встретил мистера Бенджамина Брейл Ли Он смог дать мне кредит в размере 450 000 рублей. Он также помог другим моим коллегам. Я говорю как самый счастливый человек во всем мире сегодня, и я сказал себе, что любой кредитор, который спасает мою семью от нашей бедной ситуации, я скажу имя всему миру, и я так счастлив сказать, что моя семья вернулся навсегда, потому что я нуждался в кредите, чтобы начать свою жизнь заново, потому что я одинокая мама с 3 детьми, и весь мир, казалось, висел на мне, пока я не имел в виду, что БОГ послал ссудодателя, который изменил мою жизнь и член моей семьи, БОЖИЙ кредитор, мистер Бенджамин, он был Спасителем БОГом, посланным для спасения моей семьи, и сначала я подумал, что это будет невозможно, пока я не получу кредит, я пригласил его к себе в семью -все вечеринка, от которой он не отказался, и я посоветую всем, кто действительно нуждается в кредите, связаться с г-ном Бенджамином Брейлом Ли по электронной почте (lfdsloans@outlook.com), потому что он самый понимающий и добрый кредитор. когда-либо встречал с заботливым сердцем. Он не знает, что я делаю это, распространяя свою добрую волю ко мне, но я чувствую, что должен поделиться этим со всеми вами, чтобы освободить себя от мошенников, пожалуйста, остерегайтесь подделок и свяжитесь с правильной кредитной компанией. com или whatsapp + 1-989-394-3740. ,
ОтветитьУдалить