Курсовая работа: Метод Жордана Гаусса

{018} gotoxy(x2,y1+i);write('є');

{019} gotoxy(x1,y1+i);write('є');

{020} end;

{021} gotoxy(x1,y2);write('И');

{022} for i:=1 to x2-x1-1 do write('Н');

{023} write('ј');

{024} gotoxy(x1+3,y1);write('[ю]');

{025} end;

(* Процедура опису вiкна *)

{026} procedure windo(x1,y1,x2,y2:integer;Nazva:string);

{027} begin

{028} TextColor(15);

{029} TextBackGround(1);

{030} Window(x1,y1,x2,y2);

{031} clrscr;

{032} ramka(2,1,x2-x1,y2-y1+1);

{033} l:=x2-x1+1-length(nazva);

{034} gotoxy((l div 2)+3,1);write(Nazva);

{035} end;

(* Процедура виводу загального опису *)

{036} procedure vikno;

{037} begin

{038} TextBackGround(15);TextColor(1);

{039} for i:=1 to 80 do

{040} for j:=1 to 25 do begin

{041} gotoxy(i,j);write(' ');

{042} end;

{043} windo(50,2,75,7,' Меню ');

{044} gotoxy(3,2);write('F1-Ввiд розмiрностi');