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

end

else

begin

snn:=1;

smm:=1;

inc(sm)

end;

end;

end;

end;

GetPerimetr(1,1,N,M); {определение элементов по периметру матрицы }

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

begin

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

if fil then {в файл }

PrintSubMatrixfile(1,1,n,m)

else {в окно }

PrintSubMatrix(1,1,N,M);

end

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

if fil then {в файл }

PrintSubMatrixfile(1,1,n,m)

Else{в окно }

begin

PrintSubMatrix(1,1,N,M);

readkey;

end;

end;

{_______________________________________________}