Var stop:boolean;

L:byte;

begin

stop:=false;

L:=1;

repeat

window(1,1,80,25);

clrscr;

case run_menu of

1: begin

case pop_menu1 of

1: 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

1: begin

Tbl.init(init_ok);

Tbl.vvod_tb;

stop:=false

end;

2: Tbl.show_tb;

3: begin

Tbl.dopoln;

end;

4: Tbl.done(init_ok);

end;{case pop_menu2}

3: 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 с.

98