Помощь - Поиск - Пользователи - Календарь
Полная версия: Помогите с написанием 2 БД
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Михаил
Уважаемые люди прошу помочь написать базу данных с использованием типизированных файлов и эту же базу данных переделать с использованием динамической памяти.
База данных должна представлять собой.
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.pascal.net.ru/index.php?showtopic=2707&view=findpost&p=23577) ещё блок-схему. При чём блоки - Запись,
Просмотр и Поиск расписать на отдельные блок-схемы.
Узнал, что на форуме в таких делах давно пользуются программой:
http://www.freesoft.ru/file.html?id=9306&d...filename=bs.zip
У меня не получается.
Прошу помочь.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.