Курсовая работа: Знаходження оберненої матриці за формулою

if (ki=i) then di:=1;

dj:=0;

for kj:=1 to m-1 do

begin

if (kj=j) then dj:=1;

b[ki,kj]:=a[ki+di,kj+dj];

end;

end;

end;

Function Determinant(a:matr;n:integer):real;

var i,j,k:longint;

b:matr;

d : real;

begin

d:=0; k:=1;

if (n<1) then

begin

writeln('Determinant: Cann''t run. N=',n); halt;

end;

if (n=1)

then d:=a[1,1]

else if (n=2)

then d:=a[1,1]*a[2,2]-a[2,1]*a[1,2]

else { n>2 }

for i:=1 to n do

begin

GetMatr(a,b,n,i,1);

{writeln('i=',i,' a[',i,',1]=',a[i,1]);

PrintMatr(b,n-1);}