Предыдущая страница реферата | 1  2  3  4  5  6  7  8

((#32,#32,#32,#32,#32,#32),

(#218,#196,#191,#179,#192,#217),

(#201,#205,#187,#186,#200,#188));

MaxChar =80;

MaxLine =25;

MenuTop =3;

SubMenuTop =2;

MenuLine :array[1..MenuTop]of string[20]=

(' О программе...',' Демонстрация ' ‘Выход ');

SubMenuLine :array[1..SubMenuTop]of string[20]=

(' Сложением' , ' Умножением');
Procedure SetWindow(x1,y1,x2,y2,Bord:byte;Header:string);
Procedure CursorOff;
Function GetMainMenuChoice:byte;
Function GetSubMenuChoice:byte;
Procedure About;
Implementation
Procedure SetWindow(x1,y1,x2,y2,Bord:byte;Header:string); var i:integer; begin if not ((x11) then dec(Count);

#80 : if(Count1) then dec(Count);

#80 : if(Count

Скачали данный реферат: Абабков, Ul'jashin, Urakov, Moiseev, Askol'd, Яснов, Арсений.
Последние просмотренные рефераты на тему: дипломные работы бесплатно, решебник мордкович, диплом 2011, экономический диплом.



Предыдущая страница реферата | 1  2  3  4  5  6  7  8

Поделитесь этой записью или добавьте в закладки