Помогите, пожалуйста, написать детерминант матрицы.

Question

Помогите, пожалуйста, написать детерминант матрицы.

Comments

Размерность матрицы?

---

n порядка

---

Честно говоря, жуткая задача и рабский труд. Могу выложить скопипастенный с прогерского форума код (признаюсь честно, код не мой), ибо оооочень лениво писать самому прогу, времени у нее уйдет ~15-30 минут. Надо?

---

Да ладно, ещё неделя в запасе, а осталось, в принципе, только определить.

Answer 1

Uses
 crt;
var
m:array[1..100,1..100] of integer;
opr,n,i,j:integer;
begin
  randomize;
  writeln('Введите размерность');readln(n);
  for i:=1 to n do   
   for j:=1 to n do         
                m[i,j]:=random(2*20+1)-20;
  for i:=1 to n do    
   for j:=1 to n do 
               begin
               write(m[i,j]);
               if j=n then writeln;
               end;
  i:=1;
  for j:=1 to n do opr:=opr+((exp(ln(-1)*(1+j))*m[i,j]*минор ); 
 writeln(opr);               
end.
Вроде начал, тут еще надо гад минором подумать.

Comments

Проще тогда уж будет расписать нахождение детерминанта как результат взаимодействия нескольких базовых процедур, описанных еще до проги. Чесслово, проще и понятнее раза в 2-3 будет.

---

Можно, писанины только много