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

← →
civicZLO (2006-04-09 19:34) [0]

Как найти определитель матрицы с помощью Delphi?

← →
Anatoly Podgoretsky © (2006-04-09 19:38) [1]

Что знаешь из математики?

← →
Leonid Troyanovsky © (2006-04-09 19:38) [2]

> civicZLO (09.04.06 19:34)

> Как найти определитель матрицы с помощью Delphi?

Также, как и без оной.

--
Regards, LVT.

← →
Бугага © (2006-04-09 19:40) [3]

Куча всего:

http://www.yandex.ru/yandsearch?rpt=rad&text=delphi+%EE%EF%F0%E5%E4%E5%EB%E8%F2%E5%EB%FC+%EC%E0%F2%F0%E8%F6%FB

← →
Рамиль © (2006-04-09 20:11) [4]

Казалось бы, причем тут Delphi?

← →
Leonid Troyanovsky © (2006-04-09 20:45) [5]

> Рамиль © (09.04.06 20:11) [4]

> Казалось бы, причем тут Delphi?

Это повод.

--
Regards, LVT.

← →
kutuzov47 © (2006-04-09 21:12) [6]

Matrica=array[1..50,1..50] of Currency;
....
function Det(a: matrica; n: integer): Single;
var i,j,k,r:integer;
max,c,m:Single;
begin
result:=1;
for k:=1 to n do begin
max:=abs(a[k,k]);
r:=k;
for i:=k+1 to n do begin
if abs(a[i,k])>max then begin
max:=abs(a[i,k]);
r:=i;
end;
end;
if r<>k then result:=-result;
for j:=1 to n do begin
c:=a[k,j];
a[k,j]:=a[r,j];
a[r,j]:=c;
end;
for i:=k+1 to n do begin
m:=a[i,k]/a[k,k];
for j:=k to n do
a[i,j]:=a[i,j]-m*a[k,j];
end;
end;
for i:=1 to n do
result:=result*a[i,i];
end;

Специально для тебя писал, возможно где-то end"а не хватает, т.к. писал не в IDE, не проверял работоспособность, но теоритически правильно

Ну а че тут. Привожу матрицу в треугольному виду обратным ходом метода Гаусса, перемножаю диагональные элементы и - опа! Готов определитель

Определитель матрицы. Найти похожие ветки