Помощь с домашкой

[201kir]

Нужно написать универсальную программу для решения уравнений методом Крамера. Вот что уже есть:

uses crt;
const n=3;
var a:array [1..n,1..n] of real;
b:array [1..n] of real;
i,j:integer;
d,d1,d2,d3: real;
x,y,z:real;
begin
a[1,1]:=1; a[1,2]:=2; a[1,3]:=-3; b[1]:=-4;
a[2,1]:=2; a[2,2]:=-3; a[2,3]:=5; b[2]:=11;
a[3,1]:=3; a[3,2]:=-5; a[3,3]:=8; b[3]:=17;
writeln('общая матрица:');
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:8:4);
writeln(b[i]:12:4);
end;
writeln;
d:= a[1,1]*a[2,2]*a[3,3]-a[1,1]*a[2,3]*a[3,2]
-a[1,2]*a[2,1]*a[3,3]+a[1,2]*a[2,3]*a[3,1]
+a[1,3]*a[2,1]*a[3,2]-a[1,3]*a[2,2]*a[3,1];
d1:=b[1]*a[2,2]*a[3,3]-b[1]*a[2,3]*a[3,2]
-a[1,2]*b[2]*a[3,3]+a[1,2]*a[2,3]*b[3]
+a[1,3]*b[2]*a[3,2]-a[1,3]*a[2,2]*b[3];
d2:= a[1,1]*b[2]*a[3,3]-a[1,1]*a[2,3]*b[3]
-b[1]*a[2,1]*a[3,3]+b[1]*a[2,3]*a[3,1]
+a[1,3]*a[2,1]*b[3]-a[1,3]*b[2]*a[3,1];
d3:= a[1,1]*a[2,2]*b[3]-a[1,1]*b[2]*a[3,2]
-a[1,2]*a[2,1]*b[3]+a[1,2]*b[2]*a[3,1]
+b[1]*a[2,1]*a[3,2]-b[1]*a[2,2]*a[3,1];
x:=d1/d;
y:=d2/d;
z:=d3/d;
writeln('x=',x);
writeln('y=',y);
writeln('z=',z);
end.

[Serge_Bliznykov]

ваша тема - http://programmersforum.ru/showthread.php?t=292369