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

(* vyvid *)

(* *)

(********************************************************)

program kramer;

uses graph,crt,dos,zast;

label pt;

var rob:integer;

x1,x2,x3,x4,x5,x6,x7,x8,x9,a,b,c:integer;

d,dx,dy,dz,x,y,z:real;

q:char;

procedure vvid;

begin

closegraph;

clrscr;

textcolor(lightblue);

vid;

gotoxy(9,2); readln (x1);

gotoxy(26,2); readln(x2);

gotoxy(42,2); readln(x3);

gotoxy(57,2); readln(a);

gotoxy(9,4); readln(x4);

gotoxy(26,4); readln(x5);

gotoxy(42,4); readln(x6);

gotoxy(57,4); readln(b);

gotoxy(9,6); readln(x7);

gotoxy(26,6); readln(x8);

gotoxy(42,6); readln(x9);

gotoxy(57,6); readln(c);

end;