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

for i:=2 to n do

for j:=1 to n do

begin

k:=m[I,1]/m[1,1];

v[1,j]:=m[1,j];

v[I,j]:=m[1,j]*(-k)+m[I,j];

end;

for i:=3 to n do

for j:=2 to n do

begin

k:=v[I,2]/v[2,2];

mm[1,1]:=v[1,1];

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

mm[2,1]:=v[2,1];

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

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

mm[I,j]:=v[2,j]*(-k)+v[I,j];

end;

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];