profile
Опубликовано 4 года назад по предмету Информатика от Лёнышна

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

  1. Ответ
    Ответ дан Diman680
    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.
    Вроде начал, тут еще надо гад минором подумать.