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

UptoLike

ВУЗ: 

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

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

Рубрика: 

223
– Вывод на экран части списка
– Сохранение массива записей в файле
– Загрузка массива записей из файла
}
uses crt,menu_txt,info; {в программе кроме стандартного модуля Crt
используются наши собственные модули Menu_Txt и Info}
const
{Главное меню программы}
MainMenu: TMenu=( nItems:9; {количество пунктов}
item:( {пункты меню}
(str:' Очистка массива записей '; x:2; y:2; res:1), {1-й пункт}
(str:' Добавление записи в конец массива '; x:2; y:3; res:2), {2-й
пункт}
(str:' Удаление записи по номеру '; x:2; y:4; res:3), {3-й пункт}
(str:' Сортировка записей по фамилии '; x:2; y:5; res:4), {4-й
пункт}
(str:' Вывод массива записей на экран '; x:2; y:6; res:5), {5-й пункт}
(str:' Вывод на экран части списка '; x:2; y:7; res:8), {6-й пункт}
(str:' Сохранение массива записей в файле '; x:2; y:8; res:6), {7-й
пункт}
(str:' Загрузка массива записей из файла '; x:2; y:9; res:7), {8-й
пункт}
(str:' Выход из программы '; x:2; y:10; res:100), {9-й пункт}
(str:''; x:0; y:0; res:0) {10-й пункт}
);
Left:20; Top:5; {координаты меню}
Width:40; Height:11; {размеры окна меню}
clMenu:2; clText:14; {цвет меню и цвет текста меню}
clMarkedItem:4; clMarkedText:15; {цвет выделенного
пункта}
MarkedItem:1 {номер выделенного пункта}
);

Страницы