Оператор повтора repeat

Размещено на http://www.allbest.ru/

Размещено на http://www.allbest.ru/

Оператор повтора repeat

Оператор повтора repeat аналогичен оператору while, но отличается от него, во-первых, тем, что условие проверяется после очередного выполнения операторов тела цикла (очередной итерации) и таким образом гарантируется хотя бы однократное выполнение цикла, а во-вторых, тем, что критерием прекращения цикла является равенство выражения константе True. За это цикл repeat часто называют циклом с постусловием, или циклом «ДО», так как он прекращает выполняться, как только значение выражения условия, записанного после слова until, становится равным True (истина).

Оператор повтора repeat состоит из заголовка repeat, тела и условия окончания until. Синтаксическая диаграмма для данного оператора выглядит следующим образом:

Формат записи:

repeat <оператор>;

…<оператор>;

until <условие окончания цикла>;

Операторы, заключенные между словами repeat и until, являются телом цикла. Вначале выполняется тело цикла, затем проверяется условия выхода из цикла. Именно поэтому цикл, организованный с помощью оператора repeat, в любом случае выполнится хотя бы один раз. Если результат булевского выражения равен False, то тело цикла активизируется еще раз; если результат равен True, то происходит выход из цикла.

В следующем фрагменте показано, как оператор repeat используется для ожидания нажатия клавиш Y и N. Нажатие других клавиш будет игнорироваться:

uses Crt;

var

YN: char;

Begin

…

repeat

YN:= ReadKey

until Upcase(YN) in ['Y'.'N']:

…

end.

Пример №1:

Программа DemoRepeat, которая вводит и суммирует любое количество целочисленных значений. Если введено значение 999, то на экран выводится результат суммирования.

var X: integer: Sum: real:

begin Sum:=0:

repeat

Write ('Значение X= ');

Readln(X);

if X <> 999 then Sum:= Sum+X:

until X = 999:

Writeln ('Сумма введенных чисел» '. Sum):

end.

В данном примере в разделе описания переменных описана переменная X целочисленного типа integer и Sum вещественного типа real.

В начале выполнения программы обнуляется значение суммы чисел. Затем при помощи зарезервированного слова repeat объявляется цикл, после чего следуют операторы тела цикла, которые выводят на экран запрос «Значение Х=» и считывают введенное с клавиатуры значение X. Оператор if проверяет его на неравенство числу 999 и, если оно не равно 999, увеличивает значение суммы Sum на значение числа X. В конце цикла оператор until Х = 999 проверяет условие окончания цикла. Если значение выражения X = 999 истинно, то цикл завершится, а управление в программе будет передано на оператор, находящийся за словом until, т.е. первый оператор за границей цикла repeat. Это вызов процедуры Writeln, которая выведет сообщение «Сумма введенных чисел равна» и напечатает значение переменной Sum.

Пример №2:

Программа Repeat_Demo, которая выводит на экран введенное вами слово 10 раз.

оператор цикл программа repeat

Var I: Integer; St: String;

BEGIN

Write ('Введите слово: ');

Readln(St);

Writeln ('Повторяю 10 раз.');

I:=0;

Repeat

Writeln(St);

I:=I+1;

Until I=10;

END.

В данном примере в разделе описания переменных описана переменная I целочисленного типа integer и St строкового типа string.

В начале выполнения программы обнуляется значение I. Затем при помощи зарезервированного слова repeat объявляется цикл, после чего следуют операторы тела цикла, которые выводят на экран запрос «Введите слово» и считывают введенное с клавиатуры значение St. Увеличивая значение I на значение числа 1. В конце цикла оператор until I = 10 проверяет условие окончания цикла. Если значение выражения I = 999 истинно, то цикл завершится, а управление в программе будет передано на оператор, находящийся за словом until, т.е. первый оператор за границей цикла repeat. Это окончание программы.

Размещено на Allbest.ru