Оператор REPEAT в Турбо-Паскаль. Пример №10.

Оператор REPEAT часто называют оператором цикла с постпроверкой условия.

Оператор REPEAT имеет следующую структуру:

REPEAT
   оператор

UNTIL условие
где REPEAT, UNTIL – зарезервированные слова;
оператор — любой оператор языка Турбо-Паскаль (если используется составной оператор, то слова begin и end можно опустить).
Оператор выполняется хотя бы один раз, после чего вычисляется истинность выражения условие. Если условие ложно, оператор повторяется, в противном случае работа оператора REPEAT заканчивается.

Для иллюстрации применения оператора REPEAT приведем пример программы, которая считает сумму цифр заданного числа (пример 10).

Пример 10

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 указанное действие обязательно выполняется один раз, и только после этого проверяется условие.