WriteDBToFile, яка сохраняетбазу даних разом з демо-даними, закладеними у програмі. Користувачем вводиться повний шлях до бази даних із зазначенням імені файлу і формату. 4Добавленіе нового запису. При цьому вводиться вихідні дані: назва, вартість, вікові межі, кількість і порядковий номер. 5Визов підпрограми del, що видаляє елемент з стека. 6Поіск запису. Пошук виконується по полях: назва, ціна, кількість і вікові межі. Дії модуля реалізовані у вигляді підпрограм. 7Сортіровка виконана аналогічно пошуку у вигляді підпрограм. Метод сортування був обраний згідно умови з завдання 3: сортування прямими вставками з бар'єром. Сортування виконується за наступними полям: назвою, ціною та кількістю. 8Визов підпрограми WriteAll, що здійснює виведення всієї бази даних на екран разом з демо-даними. 9Виход з програми. Переривання роботи програми. <В
Малюнок 5.1 - Блок-схема основного модуля програми
В
Малюнок 5.2 - Блок-схема підпрограми menu, головне меню програми
В
Малюнок 5.3 - Блок-схема підпрограми submenu, що виводить додаткове меню для пошуку і сортування
В
Рисунок 5.4 - Блок-схема підпрограми write All виведення всіх записів на екран
В
Рисунок 5.5 - Блок-схема підпрограми make null створення початкового елемента стека
В
Малюнок 5.6 - Блок-схема підпрограми Set Head ставить елемент стека в початок списку
В
Малюнок 5.7 - Блок-схема підпрограми init створює нумерацію з 1
В
Малюнок 5.8 - Блок-схема підпрограми GetByNumber, одержуваний елемент з певним номером
В
Малюнок 5.9 - Блок-схема підпрограми del, видалення елемента з певним номером
В
Малюнок 5.10 - Блок-схема підпрограми post Toy, пошук по назві
В
Малюнок 5.11 - Блок-схема підпрограми Make New DBFile, створення нової бази даних
В
Малюнок 5.12 - Блок-схема підпрограми InsertSortByName, сортування по назві
5.5 Лістинг програми
Головна частина
programshop;;, toy2: PToy;: string;, SMIndex: Integer;// Індекснажатойвменюкнопкі, вибранноговподменюіндекса: File of RToy;, N, A, B, kolvo: Integer; menu; ('Виберітепункт : '); (); (' 0. Основне завдання '); (' 1. Створення нової бази даних '); (' 2. Відкриття бази з файлу '); (' 3. Збереження бази у файл '); ( '4. Додавання запису'); ('5. Видалення запису'); ('6. Пошук запису'); ('7. Сортування'); ('8. Висновок всієї бази даних на екран'); ('9 . Вихід з програми '); ();; Submenu (i: integer); (); (' 0. Назвою '); (' 1. Ціні '); (' 2. Кількості '); i = 0 then ( '3. ...
