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

Синтаксис.

WHILE DO.

Принцип действия оператора можно сформулировать так: пока значение логического выражения истинно, выполнять оператор. Т. е. сначала происходит вычисление значения логического выражения. Если оно истинно, то выполняется оператор, и все повторяется сначала до тех пор, пока выражение не станет ложным.

Если выражение окажется ложным с самого начала, оператор не выполнится ни разу.

Пример

n:=1;

WHILE n<=10 DO.

BEGIN.

WriteLn ('n=', n);

Inc (n);

END;

Результат выполнения.

n=1.

n=2.

.. .

n=10.

Функции Inc и Dec определены для порядковых типов.

Синтаксис.

Inc ([,]).

Dec([,]).

Они выполняют соответственно увеличение и уменьшение значения переменной на 1 или на указанное число.

Пример

Inc (n); { Увеличение значения пременной n на 1 }.

Dec(n, 5); { Уменьшение n на 5 }.

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

Синтаксис.

REPEAT.

UNTIL

Список операторов в цикле REPEAT имеет такую же структуру, как и в составном операторе BEGIN END.

Действие оператора: выполнять список операторов до тех пор, пока логическое выражение не станет истинным. Сначала происходит выполнение списка операторов, затем выселяется значение логического выражения. Если оно ложно, все повторяется сначала до тех пор, пока выражение не станет истинным.

В отличие от оператора WHILE, цикл REPEAT заканчивается, когда выражение становится истинным. Также, в отличие от оператора WHILE, здесь сначала выполняется список операторов, и только потом вычисляется значение логического выражения, поэтому независимо от того, каким будет логическое выражение, список операторов выполнится хотя бы один раз.

Пример

n:=1;

REPEAT.

WriteLn ('n=', n);

Inc (n);

UNTIL N>10.

Результат выполнения.

n=1.

n=2.

.. .

n=10.