Помогите, пожалуйста, написать детерминант матрицы.
Помогите, пожалуйста, написать детерминант матрицы.
Гость
Ответ(ы) на вопрос:
Гость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.
Вроде начал, тут еще надо гад минором подумать.
Не нашли ответ?
Похожие вопросы