Правила использования операторов цикла

End.

Readln

REPEAT

Begin

REPEAT

оператор1, оператор2, ... , операторN

UNTIL условие;

где оператор1, оператор2, ... , операторN - операторы тела цикла;

условие - логическое выражение, диктующее завершение повторов.

Оператор цикла с постусловием начинается с выполнения операторов внутри цикла. Затем проверяется истинность логического условия, стоящего после слова UNTIL. Если это условие справедливо (True), то осуществляется выход из цикла. Если же значение логического выражения ложно (False), то выполнение операторов тела цикла повторяется, после чего снова проверяется истинность логического условия.

Пример программы, использующей оператор цикла с постусловием:

Program Primer;

Var K:Integer;

K:=0;

K:=K+2; Write('K= ',K:3)

UNTIL K>10;

При использовании операторов цикла следует учитывать следующие особенности:

Цикл While. Проверяется условие, расположенное в заголовке цикла. Если оно является истинным, то выполняется тело цикла. По завершению его выполнения снова проверяется условие, находящееся в заголовке цикла и т.д. Так продолжается до тех пор, пока условие не станет ложным. В этом случае будет осуществлен переход к конструкции, следующей за телом цикла.

При работе с этой конструкцией цикла важно следить за тем, чтобы на каком-то шаге выполнения тела цикла проверяемое условие обязательно стало ложным. Если этого не произойдет, то выход из цикла будет невозможен. В этом случае говорят, что программа "зациклилась".

Цикл Repeat..Until. Встретив служебное слово Repeat компьютер "запоминает" его местоположение на случай необходимости повторного выполнения тела цикла. Таким образом, служебное слово Repeat отмечает начало тела цикла. После выполнения тела цикла проверяется условие, расположенное за служебным словом Until. Если оно является ложным, то снова выполняется тело цикла и т.д. Когда условие станет истинным, будет осуществлен переход к следующей конструкции, идущей после цикла.

1. Операторы, входящие в цикл Repeat...Until, всегда выполняются хотя бы один раз, поскольку истинность логического выражения в цикле этого типа проверяется после операторов, входящих в тело цикла. При использовании цикла типа While...Do могут быть ситуации, когда операторы, входящие в цикл, не будут выполнены ни разу, если логическое выражение изначально имеет значение "FALSE".

2. Цикл Repeat...Until выполняется, пока логическое выражение имеет значение FALSE. Цикл While...Do выполняется, пока логическое выражение имеет значение TRUE. Этот нюанс следует учитывать при замене цикла одного типа другим.

Program Whl; Var i:integer; Begin i:=1; WHILE i<=10 DO begin Writeln('Привет'); i:=i+1 end; Readln End. Program Rep; Var i:integer; Begin i:=1; REPEAT Writeln('Привет'); i:=i+1 UNTIL i>10; Readln End.

3. Если тело цикла While...Do состоит из нескольких операторов, их следует обрамлять операторными скобками begin...end, образующими составной оператор. В цикле типа Repeat...Until операторные скобки не нужны.

4. Одной из опасностей, возникающих при использовании оператора цикла, является "зацикливание", т.е. возникновение ситуации, когда программа не выходит из цикла, бесконечно повторяя входящие в него операторы:

k1:=1; WHILE k1<5 DO Writeln('Бесконечный цикл');

5. Если в программе встретится такой фрагмент, то экран заполнится строками с фразой "Бесконечный цикл", выдача которой в режиме прокрутки (Scrolling) будет длиться до тех пор, пока программистом не будут приняты действия по принудительному завершению работы программы. Вывести программу из бесконечного цикла можно, дважды нажав сочетание клавиш Ctrl и Break, после чего надо нажать клавишу ESC.

6. Зацикливания не произойдет, если операторы, входящие в тело цикла, будут влиять на условие, определяющее завершение цикла:

k1:=1;

WHILE k1<5 DO