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

[sheka]

Помогите, пожалуйста,написать нахождение определителя матрицы. nmax<=10. т.е. можна использовать рекурсию.
Попытки? Поверьте - были.

Сообщение отредактировано: sheka - 5.10.2009 0:56

[volvo]

Попытки? Поверьте - были.

Надо было привести, может, подправили бы чуть-чуть и заработало бы?

Вот тут посмотри: Определитель матрицы (рекурсивное определение)

[sheka]

function opredelitel(n:integer):real;
var s,op:real;
begin
  s:=0;
  if n>=1 then
    begin
      op:=opredelitel(n-1);
      if op = 0 then op:=1;

      for i:=1 to n do
        begin
          s:=s+m[1+(n-1),i]*op;
          writeln('s=',s:3:0);
        end;
    end;

  opredelitel:=s;
end;

Для единицы работает:)