Реферат: Разработка информационно-поисковой системы Ювелирные изделия

name: string;

{Описание процедур}

procedure menu;

procedure view;{(var data: Jeverly);}

procedure add;

procedure delete;

procedure edit;

procedure search;

procedure sort;

implementation

{--------------------------------------------------------------------}

procedure menu;

begin

clrscr;

writeln(' ************ ЮВЕЛИРНЫЕИЗДЕЛИЯ ************ ');

writeln('');

writeln(' 1. Просмотр');

writeln(' 2. Добавить');

writeln(' 3. Удалить');

writeln(' 4. Редактировать');

writeln(' 5. Поиск');

writeln(' 6. Сортировка');

writeln(' 0. Выход');

end;

{--------------------------------------------------------------------}

{--------------------------------------------------------------------}

procedure view;

var

i: integer;