Предыдущая страница реферата | 16  17  18  19  20  21  22  23  24  25  26 | Следующая страница реферата

        end;

      end;

  end;

end;

begin

clrscr;

textBackground(black);

tek:=2;       kr:='-';

   exist:=false;

nast:=menu1;  menus(nast,nast.m);

  while 1>0 do begin

    if keypressed then key:=readkey;

    case key of

     #80:ramka('+');

     #72:ramka('-');

     #27:exist:=true;

     #13:main;

    end;

  if exist then exit;

  krutis;

  end;

end.

Текст модуля Tips.pas

Unit tips;

interface

type

  pered=record

    st:array[1..12] of string;

    m:byte;

  end;

  tabl2=record

    t1,t2,t3,t4,t5:string[12];

    end;

  cc=^tab;

  tab=record

    tabl:tabl2;

    sled:cc;

  end;

var

menu1,menu2,menu3,menu4:pered;

mm:array[1..5,1..5] of string[50];

implementation

begin

with menu1 do begin

  st[1]:='БАЗА ДАННЫХ';

  st[2]:='Загрузка';

  st[3]:='Сохр. в тип. файл';

  st[4]:='Сохр. в текст. файл';

  st[5]:='Просмотр';

  st[6]:='Корректировка';

Рекомендуем скачать другие рефераты по теме: сочинение изложение, курсовые работы бесплатно.





Предыдущая страница реферата | 16  17  18  19  20  21  22  23  24  25  26 | Следующая страница реферата