Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Определитель матрицы. [D6, D7, WinXP]

civicZLO © (2006-04-09 19:34:00)
Как найти определитель матрицы с помощью Delphi?

kutuzov47 (2006-04-09 23:36:00) [1]
Ну а че тут. Привожу матрицу в треугольному виду обратным ходом метода Гаусса, перемножаю диагональные элементы и - опа! Готов определитель

Leonid Troyanovsky (2006-04-09 21:18:00) [2]

> kutuzov47 © (09.04.06 21:15) [7]

> теоритически правильно

Доказательно?

--
Regards, LVT.

kutuzov47 (2006-04-09 21:15:00) [3]
Специально для тебя писал, возможно где-то end'а не хватает, т.к. писал не в IDE, не проверял работоспособность, но теоритически правильно

kutuzov47 (2006-04-09 21:12:00) [4]
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;

Leonid Troyanovsky (2006-04-09 20:45:00) [5]

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

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

Это повод.

--
Regards, LVT.

Рамиль (2006-04-09 20:11:00) [6]
Казалось бы, причем тут Delphi?

Бугага (2006-04-09 19:40:00) [7]
Куча всего:

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

Anatoly Podgoretsky (2006-04-09 19:38:00) [8]
Что знаешь из математики?

Leonid Troyanovsky (2006-04-09 19:38:00) [9]

> civicZLO (09.04.06 19:34)

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

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

--
Regards, LVT.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »