('Вилучення книги'); ris (32); writeln ('');
writeln ('Введіть унікальний номер книги, яку ви хочете видалити з бази:'); пошук програма інформація дані
readln (udal);: = 0; not EoF (spknig) do (spknig, st); st.nomk = udal then tt: = 1;; tt <> 1 then begin writeln ( Книги з таким номером немає! ); readln; end else (spknig); reset (spknig);
Writeln ('Ви точно хочете видалити книгу з номером', udal, '(Д Н)');
readln (otv); (otv = 'д') or (otv = 'Д') thennot eof (spknig) do (spknig, st); st.nomk <> udal then write ( fo, st);; (spknig); (fo); (spknig); (fo, 'knigi.txt');;;;
{--------------------------------- Перегляд списку списку книг '); ris (26); writeln ('');
writeln ('Унікальний номер:', st.nomk); ('Назва:', st.naz);
writeln ('Автор:', st.auth);
writeln ('Видавництво:', st.izd); ('Рік видання:', st.god);
writeln ('Жанр:', st.zhanr);
writeln ('Кількість сторінок:', st.kol); ('Є в наявності:', st.nal);
If (st.nal = 'Немає') then
writeln ('Унікальний номер читача який узяв книгу:', st.nomch); ('Термін повернення:', st.densv, '', st.messv, '', st.godsv); ; (80); ('Введіть "Esc" для закінчення');
otv: = readkey; (EoF (spknig)) or (otv = # 27); (spknig);;
{--------------------------------- Взяття повернення книг ----- ----------------} vvkniga;: knigi;: integer;, god2, kol2, nomch2, godsv2: integer;, auth2, izd2, zhanr2, nal2: повернення книг '); ris (30); writeln (''); st do
begin write ('Введіть унікальний номер книги, дані про яку ви хотіли б змінити:'); readln (str);
while not eof (spknig) do (spknig, st); str = st.nomk then x: = 1;; x = 0 then begin writeln ('Книги з таким номером немає!'); readln; end
else ('Прізвище читача бере повертає книгу:'); readln (famchh);
assign (spreader, 'read.txt'); (spreader);: = 0; not eof (spreader) do (spreader, sk); famchh = sk.lname then x: = x + 1;; x = 0 then begin writeln ('Читача з таким прізвищем немає!'); readln; end (spreader); reset (spreader); (spknig); reset (spknig);: = 0;: = 'q' ; (x <> 200) do (spreader, sk); famchh = sk.lname thenx = 1 then begin nomchh: = sk.nomch; x: = 200; end else ('Ім'я:', sk.name); ('Прізвище:', sk.lname); ('батькові:', sk.fna...
