Оператор цикла с постусловием

Синтаксис оператора:

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.