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

me);

Writeln ('Це даний читач? (Д Н)?');

readln (qwe);;; (qwe = 'Д') or (qwe = 'д') then begin nomchh: = sk.nomch; x: = 200; end;; (spreader) ; reset (spreader); not eof (spknig) do (spknig, st); st.nomk = str then

begin ('Введіть 1, якщо хочете видати книгу, або 2, якщо читач повернув книгу:'); readln (qw);

If (qw <> 1) and (qw <> 2)

Repeat ('Ви ввели невірне значення'); ('' Введіть 1, якщо хочете видати книгу, або 2, якщо читач повернув книгу :: '); readln (qw);

Until (qw = 1) or (qw = 2); qw = 1 then st.nal: = 'Ні' else st.nal: = 'Так'; (st.nal = 'Немає '). nomch: = nomchh; (' Термін повернення (Приклад: 1 квітня 2008): '); readln (st.densv, st.messv, st.godsv); st do: = 0; not eof (spreader) do (spreader, sk); sk.nomch = st.nomch donot eof (spreader) do (spreader, sk); sk.nomch = st.nomch god2: = god; kol2: = kol; nomch2: = nomch;: = godsv; naz2: = naz; auth2: = auth; izd2: = izd;: = zhanr; nal2: = nal; densv2: = densv; messv2: = messv; (spknig, filepos (spknig) -1); (spknig, st); x: = 1;; end; end; end; (spknig);

end;

{------------------------------ Пошук книги за жанром ------- ------------------}

procedure poiskknigizh; st: knigi;: string;: char;: integer; (spknig, 'knigi.txt'); (spknig);; (30); write ('Пошук книги за жанром '); ris (30); writeln ('');

Write ('Введіть критерій пошуку:');

readln (pp);: = 0;: = '0 '; (spknig, st); st.zhanr = pp then;: = 1; (33); write (' Пошук за жанром '); ris (33); 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 = 'Немає')

writeln ('Унікальний номер читача:', st.nomch); ('Термін повернення:', st.densv, '', st.messv, '', st.godsv);; ( 80); ('Введіть "Esc" для закінчення');

k: = readkey;; (EoF (spknig)) or (k = # 27); r = 0 then begin writeln ('Книги такого жанру немає в бібліотеці'); readln; end;

close (spknig);;

{------------------------------ Пошук книги по автору ------- ------------------}

procedure poiskknigiau; st: knigi;: string;: char;: integ...