7.5.4. ВЛОЖЕННЫЕ ЦИКЛЫ

В программах на Паскале возможно использование вложенных циклов. Это подразумевает, что существует внешний цикл и один или несколько внутренних циклов. Каждое повторение внешнего цикла означает завершение всех внутренних циклов; при этом всем выражениям, которые управляют внутренними циклами, вновь присваиваются начальные значения.

Пример использования вложенных циклов:

Program summa; {программа вычисления суммы положительных

элементов матрицы А(5*8)}

var

a: array [1..5,1..8] of real; {исходная матрица}

i,j: integer; {параметры циклов}

sum: real; {сумма положительных элементов}

begin

s:=0;

for i:=1 to 5 do

begin

for j:=1 to 8 do

begin

read(a[i,j]);

if a[i,j]>0 then s:=s+a[i,j];

end;

writeln;

end;

writeln(’сумма положительных элементов =’,sum:10:6);

end.

Данная программа содержит два оператора цикла с параметром, вложенные один в другой. Две переменные (i и j) типа integer представляют собой управляющие параметры для внешнего и внутреннего циклов, соответственно. С каждым повторением внешнего цикла (таких повторений пять) количество повторений внутреннего цикла равно восьми. Таким образом, элементы матрицы А вводятся по строкам.