я редагованої запису}
{Створюємо меню вибору елемента запису для редагування} (a, nm, x, y, pos);
{Залежно від вибору користувача пункту меню}
{Задаємо нове значення шифру групи}
{або задаємо нове значення колличества дітей у групі}
{або задаємо нове значення прізвища вихователя}
{або виводить змінений масив записів на екран}
{або зберігаються зміни масив записів у файл}.
1.9 Модуль сортування масиву по числовому полю SORTING
Містить процедуру sort, призначену для сортування записів масиву. Процедура отримує сам масив записів і кількість елементів масиву. Так як єдиним числовим полем нашого масиву записів є кількість дітей у групі, то сортування виконуємо по цьому полю. Результат сортування відображається відразу викликом процедури showw модуля SHOW.
unit sorting;
{Використовувані модулі} crt, types, show; sort (nd: mas; raz: integer); sort; vsp: zap;, j: integer;
{Сортуємо масив записів у порядку убування}
if nd [j] ^. kol gt; nd [i] ^. kol then
{Відображаємо результати сортування}
showw (nd, raz);.
1.10 Модуль заміни обраного елемента ZAMENA
Містить процедуру zamena за допомогою якої можна замінити стару запис на новий запис. У цю процедуру передаються трьох змінні. Перша змінна nom типу integer це індекс того запису, яку потрібно замінити в масиві записів. Другий змінна nd це сам масив записів, який містить цей запис. Третя змінна raz це кількість записів в масиві, призначена для виклику додаткової функції відображення зміненого масиву записів.
Спочатку роботи процедури користувачеві пропонується ввести нові дані для заміни запису. Отримана нова запис записується поверх існуючої записи, номер якої був переданий в процедуру. Результат заміни відображається відразу викликом процедури showw модуля SHOW
zamena;
{Використовувані модулі} crt, types, show; zamen (nom: integer; var nd: mas; var raz: integer); zamen (nom: integer; var nd: mas; var raz: integer ); nz: zap;: integer;
{Предлогаем користувачеві ввести даних для нового запису}
{Замінюємо стару запис нової}
{Відображаємо результати заміни}
showw (nd, raz);.
2. Перевірка програми на контрольному прикладі
. 1 Запуск головної програми MAINPRO
При запуску програми, виводиться меню (модуль MYMENU) в якому перераховані пункти запитів, які може виконати користувач з масивом записів. За умовчанням вибирається перший пункт меню «Перегляд даних» (рисунок 2.1). Масив записів автоматично заповнюється при запуску програми за допомогою модуля OPEN.
Рисунок 2.1 - Запуск головної програми
. 2 Запуск модуля перегляду всіх елементів масиву SHOW
При виборі в меню пункту «Перегляд даних» за допомогою модуля SHOW на екран комп'ютера виводиться зміст масиву записів у вигляді таблиці (рисунок 2.2).
Малюнок 2.2 - Запуск модуля перегляду всіх елементів масиву SHOW
2.3 Запуск модуля додавання нових елементів в кінець масиву ADD
При виборі користувача в меню пункту «Додати даних в кінец », йому буде запропоновано спочатку ввести значення нової додається в кінець масиву записи, такі як шифр групи, кількість дітей у групі і прізвище вихователя (малюнок 2.3).
Малюнок 2.3 - Запуск модуля додавання нових елементів в кінець масиву ADD
Після введення значень записи користувачем, ці дані будуть додані в кінець масиву записів модулем ADD. Щоб подивитися результат додавання даних в масив, буде запущений модуль SHOW для відображення даних масиву у вигляді таблиці (малюнок 2.4).
Малюнок 2.4 - Результат роботи модуля додавання нових елементів в кінець масиву ADD
Для продовження введення записів в масив користувачеві непотрібно виходити з цього модуля і запускати його заново. Просто потрібно відповість на питання «Продовжити: y/n» позитивно. Якщо користувач не хоче більше додавати записи в масив, то користувачеві потрібно відповісти негативно.
. 4 Запуск модуля виведення інформації з масиву в текстовий файл WRITING
При виборі користувача в меню пунк...
