Основы программирования на языке Turbo Pascal. Беляева И.В. - 211 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

Составители: 

Рубрика: 

211
Модульная структура:
Представленная программа содержит 3 модуля:
– Модуль Menu_Txt (файл Menu_Txt.pas) – работа с меню
– Модуль Info (файл Info.pas) – работа со списком
– Главный модуль (файл LabRec.pas).
Текст программы
Модуль Menu_Txt
Файл Menu_Txt.pas содержит модуль Menu_Txt
{Файл Menu_Txt.pas
Модуль Menu_Txt
Организация меню в текстовом режиме}
unit menu_txt;
interface
type
{пункт меню}
TItemMenu = record
str:string[76]; {строка пункта меню}
x,y:byte; {координаты начала строки внутри окна меню}
res:byte; {значение, возвращаемое при выборе пункта}
end;
{полная информация о меню}
TMenu = record
nItems:Byte; {количество пунктов}
item:array[1..10] of TItemMenu; {пункты меню}
Left,Top:integer; {координаты левого верхнего угла окна меню}
Width,Height:integer; {ширина и высота меню}
clMenu,clText:byte; {цвет меню и цвет текста}
clMarkedItem,clMarkedText:Byte; {цвет выделенного пункта
меню и цвет текста в выделенном пункте}

Страницы