2015-03-07
253
Begin
gotoxy(12,1);
textbackground(4);
write(' Ввод ');
help_line(' Ввод новых разделов');
end;
Begin
gotoxy(12,2);
textbackground(4);
write(' Показать ');
help_line(' Просмотреть картотеку ');
end;
Begin
gotoxy(12,3);
textbackground(4);
write(' Изменить ');
help_line(' Ввод в пустые разделы');
end;
Begin
gotoxy(12,4);
textbackground(4);
write(' Очистить ');
help_line(' Удалить картотеку ');
end;
end;
Case readkey of
#0: case readkey of
#72: if L>1 then dec(L) else L:=4;
#80: if L<4 then inc(L) else L:=1;
end;{case}
#13: begin
pop_menu2:=L;
stop:=true;
end;
#27: begin
stop:=true;
pop_menu2:=L;
end;
end;{case}
end;
pop_menu2:=L;
gotoxy(1,3);
textbackground(0);
end;
procedure menu_;
var stop:boolean;
L:byte;
Begin
stop:=false;
L:=1;
Repeat
window(1,1,80,25);
clrscr;
Case run_menu of
Begin
Case pop_menu1 of
Begin
If not init_ok then
Tbl.init(init_ok);
Tbl.read_f;
end;
2: Tbl.save_f;
end;{case pop_menu1}
end;
2:
Case pop_menu2 of
Begin
Tbl.init(init_ok);
Tbl.vvod_tb;
stop:=false
end;
2: Tbl.show_tb;
Begin
Tbl.dopoln;
end;
4: Tbl.done(init_ok);
end;{case pop_menu2}
Begin
Tbl.done(init_ok);
stop:=true;
end;
end;
until stop;
textbackground(0);
end;
Begin
End.
unit Utils;{Вспомогательный модуль используется только для оформления окон и вывода дополнительных сообщений-комментариев}
|
|
|
Interface
uses Utable;
procedure help_line(s:st1);
{ строка помощи}
Implementation
uses crt,Dos;
Const
segm=$B800;
cX=160*20;
nmax=1000;
datemax=100;
procedure help_line(s:st1);
Var
i:byte;
w:word;
Begin
window(4,20,30,22);
clrscr;
gotoxy(1,1);
textcolor(7);
textbackground(0);
write(s);
end;
Begin
End.
Список литературы
1. Вирт Н. Алгоритмы+структуры данных= программы. - М.: Мир, 1985.
2. Кнут Д. Искусство программирования для ЭВМ, т.3. - М.: Мир, 1978.
3. Методы программирования. Учебное пособие.- М.: Вузовская книга, 1999. - 208 с.
4. Абрамов С.А., Гнездилов Г.Г., Капустина Е.Н., Селюн М.И. Задачи по программированию.- М.: Наука. Гл. ред. физ.-мат. лит., 1988.- 224 с.
5. Пильщиков В.Н. Сборник упражнений по языку Паскаль: Учебное пособие для вузов. - М.: Наука. Гл. ред. физ.-мат. лит., 1989. - 160с.
6. Зуев Е.А. Язык программирования Turbo Pascal 6.0,7.0. - М.: Веста, Радио и связь, 1993. -384 с.
7. Фаронов В.В. Турбо Паскаль 7.0. Начальный курс. Учебное пособие.- М.: “Нолидж”, 1997. - 616с.
8. Бабалова И.Ф. Турбо-Паскаль. -М.: МИФИ,1994. - 128 с.
9. Фаронов В.В. Delphi 3. Учебный курс.- М.: “Нолидж”, 1998. -400 с.
