Статья: Операторы цикла

Для реализации циклических алгоритмов, т.е. алгоритмов, содержащих многократно повторяющиеся одинаковые операции, применяются специальные операторы цикла. В Паскале есть три вида циклов: FOR, WHILE и REPEAT. Оператор цикла FOR записывается в виде:

FOR переменная:=начальное значение TO конечное значение DO

оператор/блок

или

FOR переменная:=начальное значение DOWNTO конечное значение DO

оператор/блок.

Здесь переменная - любая переменная порядкового типа, называемая в таком контексте переменной цикла, начальное значение и конечное значение - выражения того же типа (исключение, как всегда делается для разнотипных целочисленных переменных). Цикл FOR выполняется следующим образом: переменной цикла присваивается начальное значение, после чего выполняется тело цикла (оператор или блок, стоящий после DO). Два этих действия вместе составляют один шаг цикла. Затем переменной цикла присваивается следующее (в цикле FOR ... TO) или предыдущее (в цикле FOR ... DOWNTO) значение (вспомним функции Succ и Pred) и выполняется следующий шаг цикла. Так происходит до тех пор, пока значение переменной цикла не станет больше (FOR...TO) или меньше (FOR...DOWNTO) конечного значения. Цикл FOR может не выполниться ни разу, если начальное значение больше конечного в цикле FOR...TO или меньше конечного в цикле FOR...DOWNTO. Запишем два примера использования цикла FOR : вычислим сумму квадратов натуральных чисел от 1 до N.

VAR i : Word;

CONST s : Real = 0; N = 22;

BEGIN FOR i:=1 TO N DO s:=s+SQR(i); WRITELN('сумма=',s); END.

и выведем на экран символы с номерами от 32 до 255

VAR c : Char;

BEGIN FOR c:=' ' TO #255 DO WRITE(c); WRITELN; END.

Второй тип цикла - цикл WHILE - записывается в виде:

WHILE логическое выражение DO оператор/блок

Здесь логическое выражение - любое выражение типа Boolean. Цикл выполняется следующим образом : вычисляется логическое выражение и, если оно истинно, выполняется тело цикла, в противном случае цикл заканчивается. Очевидно, что цикл WHILE может как не выполниться ни разу, так и выполняться бесконечное количество раз (в последнем случае говорят, что программа зациклилась). Запишем две предыдущие задачи, используя цикл WHILE :

CONST i : Word = 1; s : Real = 0; N = 22;

BEGIN WHILE i<=N DO BEGIN s:=s+SQR(i); INC(i); END;

WRITELN('сумма=',s);

END.

VAR c : Char;

BEGIN c:=Pred(' ');

WHILE c<#255 DO BEGIN c:=Succ(c); WRITE(c); END;

WRITELN;

END.

В качестве упражнения, подумайте, почему программа

VAR c : Char;

BEGIN c:=' ';

WHILE c<=#255 DO BEGIN WRITE(c); c:=Succ(c); END;

--> ЧИТАТЬ ПОЛНОСТЬЮ <--