имані з вихідних файлів. Результатом запиту є список усіх книг/читачів, відповідних параметрам запиту і якісно оформлених. p align="justify"> Проміжні дані: У результаті виконання завдання використовувалися цілочисельні змінні i, j, k, l, m, n та інші в якості лічильників для визначення довжини циклів, для операцій вибору та інших операцій. br/>
5. Модель задачі
Математичний опис: Математичні функції використовуються тільки для обчислення суми і лічильників операцій у запитах. p align="justify"> При пошуку затриманих книг використовуються операції порівняння.
6. Алгоритм рішення
6.1 Узагальнений алгоритм основної програми
В В
6.2 Алгоритм процедури newkniga
В
В
7. Лістинг програми
biblioqw; {Курсова робота: В«Бібліотека: Книги, Читачі, Бібліотекарі}
{Автор: Зиков Микола} crt; = $ 7; {Колір невиділеного пункту} = $ 2; {Колір виділеного пункту} = 20; {Кількість команд меню} knigi = record {Запис з даними про книги}
nomk, god, kol, nomch, godsv: integer;, auth, izd, zhanr, nal: string;
densv: 1 .. 31;: 1 .. 12;; reader = record {Запис з даними про читачів}
punkt: integer; {Змінні для управління меню}
ch: char;, y: integer;
{------------------------ Малювання лінії --------------- ---------------} ris (a: integer); i: integer; i: = 1 to a do Write ('-');;
{------------------------ Додавання книги {Переходимо в кінець файлу для додавання запису}; (35); write ('Нова книга'); ris (34);
writeln ('Заповніть дані про нову книгу'); ('Унікальний номер:'); readln (st.nomk);
write ('Назва:'); readln (st.naz); ('Автор:'); readln (st.auth);
write ('Видавництво:'); readln (st.izd); ('Рік видання:'); readln (st.god); ('Жанр:'); readln (st.zhanr ); ('Кількість сторінок:'); readln (st.kol);
st.nal: = 'Так'; (spknig, st);
ris (80); writeln (''); ('Хочете додати ще одну книгу? (Д Н)'); readln (k);; (k = 'н') or ( k = 'Н'); (spknig);;
{-------------------------------- Видалення книги ------- -------------------} Clearkn; st: knigi;: integer;: file of knigi;: char;: integer; (spknig, 'knigi.txt'); (spknig); (fo, 'newfile.txt'); (fo);;: = 'g'; (33); write...
