Операторы циклической части программы

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

Здесь REPEAT (повторить) и UNTIL (до тех пор) — служебные слова.

Оператор цикла с последующим условием действует следующим об­разом. Операторы циклической части выполняются повторно (по край­ней мере один раз) до тех пор, пока значение логического выражения ложно. Условием прекращения циклических вычислений является истин­ное значение логического выражения. Итак, сначала выполняется циклическая часть, а затем проверяется условие. Обратите внимание, что эти действия прямо противоположны действиям оператора цикла с предварительным условием, где сначала проверяется условие, а затем выполняются операторы циклической части.

Следует подчеркнуть, что нижняя граница операторов циклической части четко обозначена словом UNTIL, поэтому нет необходимости заключать операторы циклической части в скобки вида BEGIN — END. В то же время и дополнительное наличие операторных скобок не яв­ляется ошибкой.

Если в циклической части встречается оператор перехода, указы­вающий на метку за пределами цикла, то цикл может завершиться до его естественного окончания.

Пример 6.1. Вычислить значение функции Y = X² при X = 8, 6, 4, 2. Фрагмент программы имеет вид

Х:=8;

REPEAT

Y:=X*X;

WRITELN(X:3,Y:5);

X:=X-2;

UNTIL X=0

Здесь сначала задается первое значение аргумента X = 8. Внутри циклической части выполняются следующие действия: вычисляется значение Y при текущем значении X; выводятся на экран дисплея зна­чения X и Y; вычисляется новое значение аргумента X путем вычита­ния числа 2 из предыдущего значения X.

Циклическая часть программы повторяется до тех пор, пока выражение X = 0 не станет истинным.