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

{046} gotoxy(3,4);write('F3-Вивiд результатiв');

{047} gotoxy(3,5);write('ESC-Вихiд');

{048} windo(50,10,78,16,' Про автора ');

{049} gotoxy(3,2);write('Програма курсово» роботи.');

{050} gotoxy(3,3);write('Складена студентом групи');

{051} gotoxy(3,4);write('39-П Добромильським I.');

{052} gotoxy(3,5);write('Дата складення програми');

{053} gotoxy(3,6);write('травень 2003р');

{054} end;

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

{055} procedure wind(x1,y1,x2,y2:integer;Nazva:string);

{056} begin

{057} vikno;

{058} windo(x1,y1,x2,y2,nazva);

{059} end;

(* Пороцедуга вводу розмiрностi квадратно» матрицi *)

{060} procedure vvidn;

{061} begin

{062} wind(2,2,47,5,'=Ввiд розмiрностi квадратно» матрицi');

{063} gotoxy(3,2); write('n=');

{064} readln(n);

{065} if n>=m then begin

{066} wind(2,2,40,6,'Повiдомлeння');

{067} gotoxy(4,3);writeln('Розмiрнiсть повинна не бiльша ',m-1,'');

{068} S:= readkey;

{069} end;

{070} end;

(* Процедура вводу елементiв *)

{071} procedure vvid;