Определитель матрици в Turbo Pascal

[Vodin]

Подскажите как посчитать определитель матрици 4-го порядка. Есть ли общая фотрмула?

[Sasha_Smirnov]

Вы ж, товарищ, имеете доступ к интернету...
http://alglib.sources.ru/matrixops/general/det.php
И вот тут — более подробно: http://www.pm298.ru/opred.php.
Ну и не забывайте прокрутить эту страницу вниз — там аналогичные темы.
Подсказал как?

[Vodin]

Сообщение от Sasha_Smirnov

И вот тут — более подробно: http://www.pm298.ru/opred.php.
Подсказал как?

не совсем. то что тут описывают я и так знаю. хотелось бы узнать как попроще реализовать это в паскале. я то написал сам, но у меня получилось как-то не очень красиво и долго. слишком много кода...
если нужно могу показать
мне интересно можно ли написать небольшую процедуру или модуль который вычислял бы определитель для любой матрици 4-го порядка?

[Sasha_Smirnov]

Для 4-го порядка надо вычислить 4 определителя 3-го порядка.

Это и не удивительно, что процедура большая!

[Vodin]

согласен. просто я каждый определитель 3-го порядка прописывал отдельно (а точнее методом копи-паст). может можно как-то проще сделать? через общую формулу?

[Vodin]

С определителем разобрался. Помогите теперь с процедурой.
Дана матрица А. Нужно создать матрицу С=А. Далее матрица С используется в процедуре.
Все вроде бы просто но не работает. Вот что я написал

for i:=1 to 4 do
 for j:=1 to 4 do
 c[i,j]:=a[i,j];

Далее запускается процедура. Если перед процедурой вывести С то все выводится правильно, но если С вывести в самой процедуре то выводит совершенно не ту матрицу и все последующие вычисления неверны.
Подскажите что делать. Если нужно могу выложить полный код.