Оператор REPEAT часто называют оператором цикла с постпроверкой условия.
Оператор REPEAT имеет следующую структуру:
1 2 3 4 |
REPEAT оператор |
UNTIL условие
где REPEAT, UNTIL – зарезервированные слова;
оператор — любой оператор языка Турбо-Паскаль (если используется составной оператор, то слова begin и end можно опустить).
Оператор выполняется хотя бы один раз, после чего вычисляется истинность выражения условие. Если условие ложно, оператор повторяется, в противном случае работа оператора REPEAT заканчивается.
Для иллюстрации применения оператора REPEAT приведем пример программы, которая считает сумму цифр заданного числа (пример 10).
Пример 10
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 |
uses Crt; var n,s: integer; BEGIN ClrScr; write('Введите целое число: '); readln(n); s:=0; repeat s:=s+n mod 10; n:=n div 10; until n=0; writeln('Сумма цифр этого числа равна: ',s); readln; END. |
В отличие от оператора WHILE, при использовании REPEAT указанное действие обязательно выполняется один раз, и только после этого проверяется условие.