Зміст

1 Постановка задачі..................................................................................................................3

2 Алгоритм розробки програми..............................................................................................4

3 Практична реалізація............................................................................................................7

3.1 Опис структури даних та вимоги до них...........................................................7

3.2 Опис файлів та їх призначення...........................................................................8

3.3 Опис процедур та функцій користувача..........................................................10

3.4 Опис процедур та функцій, що використовувалися у програмі....................10

4 Інструкція для роботи з програмою..................................................................................11

5 Приклад тестування та результату роботи програми......................................................14

Висновки...............................................................................................................................................16

Література.............................................................................................................................................17

Додаток А. Лістинг основної програми.............................................................................................18

Додаток Б. Лістинг модуля Dani.........................................................................................................20

Додаток В. Лістинг модуля Graf.........................................................................................................36

1 Постановка задачі Практичне завдання

Створити файл, що містить відомості про пацієнтів дитячої клініки. Структура запису: прізвище пацієнта, стать, вік, місце проживання (місто), діагноз.

Написати програму, що видає наступну інформацію:

- загальну кількість пацієнтів, прибувши з інших міст;

- список пацієнтів з діагнозом Х;

- кількість пацієнтів клініки з діагнозом Х, вік яких не перевищує Х.

Вимоги до програми

Створення та обробка бази даних здійснюється шляхом вибору відповідного пункту меню.

Основні пункти меню програми:

- створення файла записів;

- додавання інформації у файл;

- внесення змін у запис за запитом;

- видалення запису;

- виведення вмісту файла даних у вигляді таблиці.

Обробка файла (створення, додавання, видалення, редагування і т.д.) повинна здійснюватися за допомогою процедур та функцій.

Введення даних повинно відбуватися з перевіркою на область допустимих значень.

Всі процедури та функції повинні бути розміщенні у відповідних модулях.

Фай повинен містити не менше 10 записів.

2 Алгоритм розробки програми

1. Створити два файли: основний файл з програмою та файл модуля.

2. В основному файлі зв’язати файлову змінну з файлом даних та створити меню відповідно до заданих пунктів.

3. В файлі модуля створити тип даних, який описує структуру запису та описати необхідні змінні (f – файлова змінна, z – змінна типу запису і т.д.)

4. В файлі модуля створити процедури та функції, які реалізують задані пункти меню.

4.1. Створити процедуру створення файла записів та занесення в нього даних:

- створити та відкрити файл для запису за допомогою процедури rewrite (f, ‘PAC.dat’);

- ввести потрібні данні з клавіатури та записати їх у файл за допомогою процедури read (f, z);

- закрити файл процедурою close (f).

4.2. Створити процедуру виведення даних на екран:

- відкрити файл для читання – reset (f);

- зчитати дані з файлу – read (f, z);

- вивести дані на екран;

- закрити файл.

4.3. Створити процедуру додавання інформації у файл:

- відкрити файл для читання та запису – reset (f);

- встановити вказівник файла за останнім його компонентом процедурою seek (f,filesize(f));

- записати додаткові дані аналогічно процедурі введення даних;

- закрити файл.

4.4. Створити процедуру редагування запису:

- відкрити файл, що потрібно відредагувати;

- ввести номер запису для редагування;

- зчитати дані з файлу та порівняти його номер із введеним;

- встановити вказівник файла на заданий елемент seek (f,n-1);

- відредагувати поля запису та записати їх у файл;

- закрити файл.

4.5. Створити процедуру видалення запису:

- описати допоміжний файл та зв’язати його з фізичним файлом на диску;

- відкрити основний файл для читання та допоміжний фай для запису;

- ввести номер запису, який необхідно видалити;

- зчитати дані з файлу та порівняти його номер із введеним, якщо не співпадає то перезаписати дані у допоміжний файл;

- закрити обидва файли;

- видалити основний фізичний файл процедурою – erase (f);

- перейменувати допоміжний файл у файл з основною назвою.

4.6. Створити процедуру визначення загальної кількості пацієнтів, прибувших з інших міст; - список пацієнтів з діагнозом Х;.

- описати допоміжний файл та зв’язати його з фізичним файлом на диску;

- зчитати шуканий діагноз

- відкрити файл для читання.

- зчитати дані з файлу – read (f, z);

- якщо шуканий діагноз збігся с наявним збільшити покажчик на 1.

- закрити файл - close (f).

- відкрити файл для читання.

- зчитати дані з файлу – read (f, z);

- вивести дані про пацієнта с шуканим діагнозом на екран.

- закрити файл - close (f).

- відкрити файл для читання.

- зчитати дані з файлу – read (f, z);

- якщо місто пацієнта - не Суми то збільшити покажчик на 1.

вивести кількість не міських патентів на екран.

- закрити файл - close (f).

4.7.Створити процедуру визначення кількості пацієнтів клініки з діагнозом Х, вік яких не перевищує Х.

- Відкрити файл для читання.

- Ввести номер групи, якість знань якої необхідно визначити.

- Обрати предмет.

- Вирахувати відсоток якості знань студентів даної групи за формулою ((Кількість студентів з оцінкою 4 або 5)/(загальна кількість

студентів))*100%, та вивести результат.

- Закрити файл

5. В файлі модуля GRAF реалізувати процедури виведення графічної заставки.

5.1. Організувати вивід на екран вступної заставки.

• Ініціалізувати графічний режим.

Продемонструвати заставку.

• Повернутися в текстовий режим.

5.2. Вивід на екран завершальної заставки.

• Ініціалізувати графічний режим.

• Продемонструвати заставку-вихід.

• Закрити графічний режим

6. Відкомпілювати створений модуль та виконати програму з використання створеного модуля.