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

k:=-k;

end;

Determinant:=d;

end;

begin

Write('Enter size matrix [1..10] :');

ReadLn(size);

for i:=1 to size do

for j:=1 to size do

begin

Write('a[',i,',',j,']=');

ReadLn(a[i,j]);end;

begin

if determinant(a,size)=0 then

begin write ('matryca vyrudzena,obernenoi ne isnue!');

goto 1; end;

end;

WriteLn('================================================');

WriteLn(' Source matrix ');

WriteLn;

PrintMatr(a,size);

dt:=Determinant(a,size);

WriteLn('================================================');

writeln('Determinant = ',dt:8:3);

{sozdaem matrix is dopolneniy}

for i:=1 to size do

for j:=1 to size do

begin

GetMatr(a,tmp_matrix,size,j,i);