система линейных алгебраических уравнений

[frol55]

Решить систему линейных алгебраических уравнений:

3x-2y+5z=7
7x+4y-8z=3
5x-3y-4z=-12

Вычисление определителей оформить в виде процедуры!

Ребята, математически решить могу, но мне нужна помощь в оформлении через паскаль ABC (ноль в нем) , кто может помогите!

[gaw4]

а метод хотя бы укажите

[frol55]

Вычисление определителей оформить в виде процедуры!

[frol55]

особых указаний нет по методу

[type_Oleg]

Вот так можно. Сама процедура.

type tAr3=array[1..3]of Double;
procedure Kramer(arX,arY,arZ,ar:tAr3;var x,y,z:Double);
var detX,detY,detZ,det:Double;
begin
 det:=arX[1]*arY[2]*arZ[3]+ .....// и т .д. 
 // и т д.
 x:=detX/det;
 // и т.д. 
end;

Только непонятно, надо вам проверять - есть ли вообще решения? То есть не равен ли нулю det.