Оператор цикла REPEAT

Оператор цикла REPEAT организует выполнение цикла, состоящего из любого числа операторов, с неизвестным заранее числом повторений. Тело цикла выполняется хотя бы один раз. Выход из цикла осуществляется при истинности некоторого логического выражения S. Структура этого оператора:

repeat

Instruction1

Instruction2

...

InstructionN

until S,

В этой структуре:

Instructionl, Instructfon2,..., InstructionN – выполняемые операторы, составляющие тело цикла;

S – логическое выражение, истинность которого проверяется в конце каждой итерации.

Так как слова repeat и until являются своеобразными операторными скобками, точку с запятой перед словом until ставить не обязательно.

Алгоритм работы оператора REPEAT:

1 – выполняется тело цикла;

2 – проверяется условие выхода из цикла: если результат булевского выражения равен Fals e, то выполняется переход к пункту N1, если результат – True, то происходит выход из цикла, т.е. переход на следующий оператор (рисунок 4.1).

Рисунок 4.1- Схема работы цикла Repeat ‑ Until

Пример. Программа, вычисляющая сумму двух чисел:

program EXAMPLE6;

var

X, Y, Sum: Real;

Ch: Char;

begin

repeat {начало цикла}

Write('Введите числа X и Y ');

ReadLn(X, Y);

Sum: = X + Y;

Writen ('Сумма чисел X и Y равна ',Sum);

Write ('Завершить программу?Y/N (Д/Н) ');

ReadLn (Ch)

Until (Ch=’y’) or (UpCase (Ch) = 'Y') or (Ch = 'д') or (Ch = 'Д')

{Upcase – преобразование строчной буквы в заглавную}

end.

Не нашли, что искали? Воспользуйтесь поиском: