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

Тема: Курсовые обзорные

er; (spknig, 'knigi.txt'); (spknig);; (30); write ('Пошук книги по автору '); ris (30); writeln ('');

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

readln (pp);: = 0; (spknig, st); st.auth = 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 poiskkniginaz; st: knigi;: string;: char;: integer; (spknig, 'knigi.txt'); (spknig);; (29); write ('Пошук книги за назвою '); ris (29); writeln ('');

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

readln (pp);: = 0; (spknig, st); st.naz = 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 = 'Немає')

k: = readkey;; (EoF (spknig)) or (k = # 27);

If r = 0 then begin writeln ('Книги з такою назвою немає в бібліотеці'); readln; end; (spknig);;

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

procedure novknigi; st: knigi;: char;: integer;: integer; (spknig, 'knigi.txt'); (spknig);; (27); write ('Виведення списку книг за рік '); ...