Курсовая работа: Метод Крамера

begin

closegraph;

clrscr;

textcolor(yellow);

vivyd;

d:=x1*x5*x9+x2*x6*x7+x4*x8*x3-x3*x5*x7-x2*x4*x9-x8*x6*x1;

dx:=a*x5*x9+x2*x6*c+b*x8*x3-x3*x5*c-x2*b*x9-x8*x6*a;

dy:=x1*b*x9+a*x6*x7+x4*c*x3-x3*b*x7-a*x4*x9-c*x6*x1;

dz:=x1*x5*c+x2*b*x7+x4*x8*a-a*x5*x7-x2*x4*c-x8*b*x1;

x:=dx/d;

y:=dy/d;

z:=dz/d;

gotoxy(9,2); writeln (d);

gotoxy(9,4); writeln(dx);

gotoxy(9,6); writeln(dy);

gotoxy(9,8); writeln(dz);

gotoxy(9,10); writeln(x);

gotoxy(9,12); writeln(y);

gotoxy(9,14); writeln(z);

readln;

end;

begin

pt:

rob:=1;

ini;

zas;

while q<>'*' do begin

if keypressed then begin

q:=readkey;