Реферат: Програмирование на языке Паскаль

if f then {по условию }

begin

ifGeomProgthen{геометрическая прогрессия }

if fil then {в файл }

PrintSubMatrixfile(Snn,Smm,(Snn+Sn)-1,(Smm+Sm)-1)

else {в окно }

PrintSubMatrix(Snn,Smm,(Snn+Sn)-1,(Smm+Sm)-1);

end

else {все подматрицы }

if fil then {в файл }

PrintSubMatrixfile(Snn,Smm,(Snn+Sn)-1,(Smm+Sm)-1)

else{в окно }

PrintSubMatrix(Snn,Smm,(Snn+Sn)-1,(Smm+Sm)-1);

if (Smm+Sm)<=M then

inc(Smm)

else

begin

if (Snn+Sn)<=N then

begin

inc(Snn);

Smm:=1;

end

else

begin

if Sm = M then

begin

Sm:=2;

inc(Sn);

snn:=1;