Реферат Програма управління базою даних, яка містить інформацію про читачів, книгах і працівниках бібліотеки

затримують книгу'); ris (26); writeln (''); ('Унікальний номер: ', sk.nomch);

writeln ( Ім'я: ', sk.name); (' Прізвище: ', sk.lname); (' батькові: ', sk.fname);

writeln ('Домашній телефон:', sk.tel); ('Домашня адреса:', sk.adress); ('Вік:', sk.voz); ('Унікальний номер книги на руках: ', sk.nomk); (' Коли повинен був повернути книгу: ', sk.densv,' ', sk.messv,' ', sk.godsv); (' Для продовження натисніть '); ;;;

{Цей день пройшов, поточний рік більше}; (26); write ('Висновок читачів затримують книгу'); ris (26); writeln (''); ('Унікальний номер:', sk.nomch);

writeln ( Ім'я: ', sk.name); (' Прізвище: ', sk.lname); (' батькові: ', sk.fname);

writeln ('Домашній телефон:', sk.tel); ('Домашня адреса:', sk.adress); ('Вік:', sk.voz); ('Унікальний номер книги на руках: ', sk.nomk); (' Коли повинен був повернути книгу: ', sk.densv,' ', sk.messv,' ', sk.godsv); (' Для продовження натисніть ');

readln;;;; (spreader);

end;

{--------------------------------- Додати нового читача ----- ------------} newreader;

var читача '); ris (30); writeln ('');

writeln ('Заповніть дані про новий читачі:'); ('Унікальний номер:'); readln (sk.nomch);

write ('Ім'я:'); readln (sk.name); ('Прізвище:'); readln (sk.lname); ('батькові:'); readln (sk.fname) ;

write ('Домашній телефон:'); readln (sk.tel); ('Домашня адреса:'); readln (sk.adress); ('Вік:'); readln (sk. voz);

sk.naruk: = 'Немає'; (spreader, sk);

write ('Хочете додати ще одного читача? (Д Н)'); readln (k);; (k = 'н') or (k = 'Н'); (spreader) ;;

{-------------------------------- Видалення читача ------- ------------------} Clearreader; sk: reader;: string;: file of читача '); ris (31); writeln ('');

writeln ('Введіть прізвище читача, якого ви хочете видалити з бази:');

readln (udal);: = 0; not eof (spreader) do (spreader, sk); udal = sk.lname then x: = 1;; x = 0 then begin writeln ('Читача з таким прізвищем немає! '); readln; end (spreader); reset (spreader);: = 0;: =' q '; (x <> 2) do (spreader, sk); udal = sk.lname then ('Ім'я:', sk.name); ('Прізвище:', sk.lname); ('батькові:', sk.fname);

Writeln (&#...