Помогите с написанием 2 БД, использование типиз. ф. и дин. памяти Опции

[Михаил]

Уважаемые люди прошу помочь написать базу данных с использованием типизированных файлов и эту же базу данных переделать с использованием динамической памяти.
База данных должна представлять собой.
1) ввод данных (запись)
2) просмотр
3) поиск

[volvo]

Михаил,
поиск по форуму по ключевым словам "типизированные", "Динамо", "самолет", "игрушки"... Там есть не меньше 5 программ...

[GoodWind]

в чем же возникла проблема?

[Михаил]

Проблема в том, что программирование знаю по 10-бальной шкале на троечку. А сдать нужно к пятнице. Буду очень признателен в любой помощи..

[volvo]

База данных должна представлять собой.
1) ввод данных (запись)
2) просмотр
3) поиск

Все это есть здесь: Телефонный справочник

[Михаил]

Спасибо. Эта программа подходит, как с использованием типизированных файлов. А как её построение, так сказать, перестроить на динамическую память?

[volvo]

А как её построение, так сказать, перестроить на динамическую память?

Что-то в этом роде: меняется только основной блок программы, переносим массив в "кучу" (динамическую память)...

var
  c:byte;
  pa:^ARec;
Begin
  New(pa);
  repeat
    Clrscr;
    writeln('Что сделать?'); writeln;
    writeln('1. Ввод базы вручную');
    writeln('2. ввод базы из файла');
    writeln('3. сохранение базы в файле');
    writeln('4. Вывод базы на экран');
    writeln('5. поиск по имени');
    writeln('6. Поиск по номеру'); writeln;
    writeln( 'ВЫХОД - нажмите Esc!');
    c:=ORD(readkey);
    case c of
      49: EnterBD(pA^); { И разыменовываем все указатели }
      50: ReadBD(pa^);
      51: SaveBD(pa^);
      52: PrintBD(pA^);
      53: NAM(pA^);
      54: NUM(pA^);
    end;
  Until c=27;
  Dispose(pa);
end.

[Михаил]

Оказывается нужно к этой БД (http://forum.pascalnet.ru/index.php?showtopic=2707&view=findpost&p=23577) ещё блок-схему. При чём блоки - Запись,
Просмотр и Поиск расписать на отдельные блок-схемы.
Узнал, что на форуме в таких делах давно пользуются программой:
http://www.freesoft.ru/file.html?id=9306&d...filename=bs.zip
У меня не получается.
Прошу помочь.