end; (spreader);
{$ I-} (spbiblio);
{$ I +} IOResult <> 0 then begin rewrite (spbiblio); reset (spbiblio); end;
close (spbiblio); [1]: = 'Робота зі списком книг:'; [2]: = '- Перегляд списку'; [3]: = '- Додавання нової'; [4 ]: = '- Облік видачі прийому'; [5]: = '- Видалення'; [6]: = '- Пошук по письменнику'; [7]: = '- Пошук за назвою'; [8]: = '- Пошук за жанром'; [9]: = '- Пошук по року видання'; [10]: = 'Робота зі списком читачів:'; [11]: = '- Перегляд списку'; [12]: = ' - Додавання нового '; [13]: =' - Видалення '; [14]: =' - Перегляд списку боржників '; [15]: =' - Редагування даних '; [16]: =' Робота зі списком бібліотекарів: ' ; [17]: = '- Перегляд списку'; [18]: = '- Додавання нового'; [19]: = '- Видалення'; [20]: = '- Вихід (Esc)';
punkt: = 2;: = 3; y: = 3;: = norm;;: = readkey; ch = char (0): = readkey; ch of (80): punkt 1 then (x, y + punkt-1); (menu [punkt]); : = punkt-1; (punkt = 10) or (punkt = 16) then punkt: = punkt-1; punkt = 1 then punkt: = 2;: = sel; (x, y + punkt-1); (menu [punkt]);: = norm;;; ch = chr (13) punkt of
: seekknigi;
: newkniga;
: vvkniga;
: Clearkn;
: poiskknigiau;
: poiskkniginaz;
: poiskknigizh;
: novknigi;
: seekreader;
: newreader;
: Clearreader;
: zadreader;
: redreader;
: seekbibl;
: newbibl;
: Clearbibl;
: ch: = chr (27);;;; ch = chr (27);.
8. Опис роботи програми
Основна програма реалізована у вигляді умовних операторів, які дозволяють виконати один із запропонованих пунктів. Для багаторазового виконання тіло програми укладено в оператор циклу REPEAT. p align="justify"> Заповнення файлів з даними: - книги; - читачі; - працівники.
Перегляд вмісту файлів з даними: - книги; - читачі; - працівники.
Виконання запитів, зазначених у завданні, виконується за допомогою процедур: - видача/повернення книг; - видалення книги; - пошук книги по автору; - пошук книги за назвою; - пошук книги за жанром; - пошук книги по року видання; - видалення книги; - редагування запису про читача; - видалення запису про бібліотекаря.
Всі процедур...
