Оператор цикла REPEAT

Общий вид оператора REPEAT:

REPEAT

<блок операторов цикла>;

UNTIL <логическое выражение>;.

Рисунок 5 – Схема оператора REPEAT

Схема, реализующая оператор цикла REPEAT, является схемой итерационного цикла с постусловием и имеет вид, представленный на рисунке 5.

Оператор REPEAT действует следующим образом: выполняются все операторы циклической части, записанные между операторами REPEAT и UNTIL. Затем проверяется логическое выражение и если оно ложно (ветвь “Нет”), то вновь выполняются все операторы цикла до тех пор, когда логическое выражение станет истинным (ветвь “Да”). Если логическое выражение истинно с самого начала, то операторы циклической части выполняются один раз.

Используем оператор цикла REPEAT для решения примера 2. Тогда схема алгоритма и программа будут иметь следующий вид:

Рисунок 6 – Схема алгоритма решения примера 2

PROGRAM PRIMER2; VAR K: INTEGER; X,Y: REAL; BEGIN K:=0; X:=5.; REPEAT Y:=X*X+1/X; WRITELN (X:6:2, Y:12:6); K:=K+1; X:=X+0.25; UNTIL X>20 WRITELN(‘КОЛИЧЕСТВО=’,K:3); END.

Лекция 2