вычисление определителя по схеме Гаусса

[Ника__]

здравствуйте.мне нужно написать программу в Паскале для вычисления определителей матриц n*n по схеме Гаусса.вы сможете мне помочь?заранее спасибо..

[_Dmitry]

  for k:=1 to n do
    for i:=k+1 to n do
      for j:=k+1 to n do
        a[i,j]:=a[i,j]-a[i,k]*a[k,j]/a[k,k];
  det:=a[1,1];
  for i:=2 to n do
    det:=det*a[i,i];

Но это для "хороших" матриц. Для "плохих" придется еще переставлять столбцы и строки, чтобы на главной диагонали небыло нуля.

Еще смотрите здесь:
http://www.srcc.msu.su/num_anal/lib_na/libnal.htm
http://alglib.sources.ru