Конструкция цикла с последующей проверкой условия
Формат данного оператора следующий:
REPEAT
тело цикла
UNTIL <условие>;
Служебное слово REPEAT (повторять) открывает тело цикла, затем выполняются последовательно операторы тела цикла и проверяется условие выхода из него.
Переводится конструкция так: «Повторять до тех пор, пока условие не станет истиной».
Необходимо помнить, что:
1. тело цикла выполняется хотя бы один раз в любом случае;
2. в ходе выполнения цикла должны прийти к истинности условия.
Пример: Вычислить сумму квадратов натуральных чисел до тех пор, пока квадрат очередного числа не превысит 100.
PROGRAM ZIKL_DO;
VAR
s: integer;
n: integer;
BEGIN
s: =0;
n: =1;
REPEAT
s: = s + n*n;
n: = n + 1;
UNTIL N*N>100;
writeln (‘s =’, s);
END.
-
+
1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | Поиск по сайту:
|