Writeln( sim);

…

Если телом цикла является другой цикл, то циклы называются вложенными или сложными. Цикл, содержащий в себе другой цикл, называют внешним. Цикл, содержащийся внутри другого цикла, называется внутренним. Внутренний и внешний циклы могут быть любыми из трех видов: FOR, WHILE или REPEAT. При построении вложенных циклов необходимо, чтобы все операторы внутреннего цикла полностью находились в теле внешнего цикла. Возможная глубина вложенности циклов ограничивается объемом памяти компьютера. Вначале выполняется самый внутренний цикл при фиксированных значениях параметров циклов с меньшим уровнем вложенности, затем изменяется параметр цикла следующего (за внутренним) уровня и снова выполняется самый внутренний цикл и т.д.

Пример. Вычислить значение Y, определяемое по формуле

PROGRAM SP;

CONST N=10;

M=15;

VAR A: ARRAY [1..N,1..M] OF REAL;

I,J: INTEGER;

P,Y: REAL;

BEGIN

FOR I:=1 TO N DO

FOR J:=1 TO M DO

READLN(A[I,J]);

Y:=0;

FOR I:=1 TO N DO

BEGIN

P:=1;

FOR J:=1 TO M DO

P:=P*A[I,J];

Y:=Y+P

END;

WRITELN(‘Y=’,Y)

END.

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

Оператор цикла с предусловием:

WHILE < логическое выражение > DO < оператор >;

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

Любой алгоритм, реализуемый с помощью оператора FOR, может быть записан с использованием конструкции WHILE. Например, вычисление значения факториала F=N!:

… F:=1;

I:=1;

WHILE I<=N DO

BEGIN

F:=F*I;

I:=I+1;

END; …

В следующем примере требуется подсчитать значение Sin (x) с использованием разложения функции в ряд:

В сумму включить только те члены ряда, для которых выполняется условие:

т.е. очередной член ряда должен быть больше заданной точности вычислений e.