Кто может написать програму для вычисления детерминанта в паскале?

[Mita]

если можете помочь с этим, то напишите мне на емейл,Bleckan@gala.net.Yt pyf. Не знаю эту програму для детерминанта,жду помощи

[Mita]

не могу ничем паомочь сам себе

[KORT]

А детерминант - это что такое и с чем его едят?

[Carbon]

Определитель матрицы?

const n=3;
type TMatrix=array [1..n,1..n] of extended;
     TLine=array [1..n] of boolean;

var matrix:TMatrix=((1,-1,2),(3,0,0),(-2,2,1));
    line:TLine;
    i:integer;
    res:extended;

function Determinant(var matrix:TMatrix; var line:TLine; row:integer):extended;
var i:integer;
    res,arg:extended;
begin
if row=n+1 then Determinant:=1 else
begin
  res:=0.0;
  arg:=1;
  for i:=1 to n do
    if not line[i] then
    begin
      line[i]:=true;
      res:=res+arg*matrix[row,i]*Determinant(matrix,line,row+1);
      arg:=-arg;
      line[i]:=false
    end;
  Determinant:=res
end;
end;

begin
  for i:=1 to n do
    line[i]:=false;
  res:=Determinant(matrix,line,1);
  Writeln(res:5:5);
  readln
end.