Курсовая работа: Приклад обчислення функції на Паскалі

{vivod matrizi A po strokam}

writeln ( ' ishodnaja Matriza');

Viv_M; {operator proceduru }

{ transponirovannaie Matrizi A }

L:=1; { nachalnoe znachenie parametra zikla po stolbzam pri transponirovanii Matrizi A }

for i:=1 to m-1 do

begin

for j:=L to n do

begin

c:=a[i,j]; a[i,j]:=a[j,i]; a[j,i]:=c;

end;

L:=L+1

end;

writeln ( ' transponirovannaja Matriza');

{vivod transponirovannoi matrizi A po strokam }

Viv_M; {operator proceduru }

{formirovanie massiva X iz transponirovannoi matrizi A }

k:=1; {nachalnoe znachenie formirovatelja indexov massiva X}

for i:=1 to m do

for j:=1 to n do

if a[i,j]<2 then

begin

x[k]:=a[i,j];{formirovanie elementa x[k] massiva X }

k:=k+1;

end;

{vivod massiva X}

writeln(' Massiv X');

writeln;

for i:=1 to k-1 do