Обчислення визначника методом Гауса

for i:=4 to n do

for j:=3 to n do

begin

k:=mm[I,3]/mm[3,3];

vv[I,j]:=mm[3,j]*(-k)+mm[I,j];

end;

for i:=1 to n do

for j:=1 to n do

begin

vv[1,j]:=mm[1,j];

vv[2,j]:=mm[2,j];

vv[3,j]:=mm[3,j];

vv[I,1]:=mm[I,1];

vv[I,2]:=mm[I,2];

d:=1;

if (i=j) then d:=d*vv[I,j];

writeln(vv[I,j]:2:2);

end;

writeln('визначник даної матрици',d:2:2);

end.

Результат роботи програми.

Дано матрицю 4*4 . Знайти її визначник.

A= ;

Результат:

1)Матриця після перетворення: