Версия для печати темы

Автор: sheka 5.10.2009 0:56

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

Автор: volvo 5.10.2009 1:07

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

Вот тут посмотри: http://volvo71.narod.ru/faq_folder/matrices.htm#mx_det

Автор: sheka 5.10.2009 3:53

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;

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