Синтаксис оператора:
REPEAT
оператор 1;
оператор 2;
………….
оператор N
UNTIL условие;
где REPEAT (повторять), UNTIL (до тех пор, пока) – служебные слова;
операторы – любые операторы языка Паскаль;
условие – логическое выражение.
Служебные слова REPEAT и UNTIL по действию похожи на операторные скобки BEGIN и END: между ними можно помещать группу операторов, отделяя их друг от друга точкой с запятой. Точка с запятой не ставится перед словом UNTIL.
Операторы в цикле REPEAT будут выполняться до тех пор, пока условие ложно, т.е. проверка условия производится после очередного выполнения цикла, что обеспечивает его выполнение хотя бы один раз.
Пример:
Найти сумму S=1+ + +…+ +… Вычисления закончить, как только очередное слагаемое станет меньше e.
PROGRAM PRIMER4;
USES CRT;
LABEL
1;
VAR
S,EPS:REAL;
N:INTEGER;
OTV:CHAR;
BEGIN
1:CLRSCR;
WRITELN (‘Введите точность вычислений’);
READLN (EPS);
S:=1;
N:=2;
REPEAT
S:=S+(1/N);
N:=N+1
UNTIL (1/N)<EPS;
WRITELN (‘Сумма =’, S:5:2);
WRITELN (‘Будете вводить новые данные (Y/N)?’);
READLN (OTV);
IF (OTV=’Y’) OR (OTV=’y’)
THEN GOTO 1
END.