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

writeln(fileresu);

end;

{_______________________________________________}

functionGeomProg:boolean; {функция вычисления геометрической прогрессии }

var

i:integer;

dv:real;

begin

Sort; {сортируем по возрастанию }

GeomProg:=true; {образует геометрическую прогрессию}

dv:=per[2]/per[1];

for i:= 2 to l-1 do

if per[i+1]/per[i]<>dv then

begin

GeomProg:=false; {не образует геометрическую прогрессию}

break;

end;

end;

{_______________________________________________}

procedure tmatrix.Main(f:boolean); {вывод результата }

var

Sn,Sm,Snn,Smm:integer; {угловые счётчики периметра }

begin

Sn:=2;

Sm:=2;

Snn:=1;

Smm:=1;

while (Sn<>N) or (Sm<>M) do {перебираем подматрицы }

begin