Создание базы данных "Библиотека" с возможностью проверки года издания книги, страница 2

writeln;

s := db[k].mnenie;

write('ЉЁЈ  <',av,' - "',va,'">: ',s);

writeln;

writeln;

write('Ќ®ў®Ґ ¬ҐЁҐ ® ЄЁЈҐ: ');

readln(s);

db[k].mnenie := s;

isChanged := true;

writeln;

textcolor(yellow);

write('€§¬ҐҐЁп ўҐбҐл. Ќ ¦¬ЁвҐ «оЎго Є« ўЁиг...');

readkey;

end;

if g=0 then

begin

writeln;

textcolor(yellow);

write('’ Є®© ЄЁЈЁ Ґв. Ќ ¦¬ЁвЁ «оЎго Є« ўЁиг...');

readkey;

end

else

end;

'4':begin

writeln; writeln;

if m < 1 then begin

textcolor(yellow);

write('‚ ЎЁЎ«Ё®вҐЄҐ Ў®«миҐ Ґв ЄЁЈ! Ќ ¦¬ЁвҐ «оЎго Є« ўЁиг...');

readkey;

continue

end;

writeln;

writeln('Љ ЄЁҐ ЄЁЈЁ ўл е®вЁвҐ Їа®б¬®ваҐвм');

writeln;

writeln('Ќ ¦¬ЁвҐ:');

writeln(' "6" зв®Ўл Їа®б¬®ваҐвм Ї®  ўв®аг');

writeln(' "7" зв®Ўл Їа®б¬®ваҐвм Ї®  §ў Ёо');

writeln(' Ё«Ё ¤агЈго Є« ўЁиг ¤«п ®в¬Ґл');

writeln;

key:=readkey;

if (key = '6') then begin

writeln;

write(' ўв®а: ');readln(av);

writeln;

For k:=1 to m do

begin

if (av = db[k].avtor) then begin

g:=1;

writeln(db[k].avtor,'; ',db[k].nazv,'; ',

db[k].shanr,'; ',db[k].god,'; ',

db[k].izdanie,'; ',db[k].komu,'; ',db[k].mnenie);

end;

end;

end;

if (key = '7') then begin

writeln;

write(' §ў ЁҐ: ');readln(va);

writeln;

For k:=1 to m do

begin

if (va = db[k].nazv) then begin

g:=1;

writeln(db[k].avtor,'; ',db[k].nazv,'; ',

db[k].shanr,'; ',db[k].god,'; ',

db[k].izdanie,'; ',db[k].komu,'; ',db[k].mnenie);

end;

end;

end;

if g=1 then

begin

writeln;

writeln('„«п § ўҐаиҐЁп Їа®б¬®ва   ¦¬ЁвҐ «оЎго Є« ўЁиг...');

readkey;

end;

if g=0 then

begin

write('’ Є®© ЄЁЈЁ Ґв. Ќ ¦¬ЁвЁ «оЎго Є« ўЁиг...');

readkey

end;

end;

'5': begin

if isChanged then begin

writeln; writeln;textcolor(yellow);

writeln('‚ ЎЁЎ«Ё®вҐЄг Ўл«Ё ўҐбҐл Ё§¬ҐҐЁп, б®еа Ёвм?');

textcolor(12); writeln('Ќ ¦¬ЁвҐ:');

writeln('  "„" зв®Ўл б®еа Ёвм Ё§¬ҐҐЁп Ё ўл©вЁ;');

writeln('  "Ќ" зв®Ўл ўл©вЁ ЎҐ§ б®еа ҐЁп;');

writeln('   Ё«Ё «оЎго Є« ўЁиг ¤«п ®в¬Ґл...');

key := readkey;

if (key = '„') or (key = '¤') then begin

rename( f, DB_TEMP );

assign( f, DB_NAME );

rewrite( f );

for i := 1 to m do begin

writeln(f,db[i].avtor,'; ',db[i].nazv,'; ',

db[i].shanr,'; ',db[i].god,'; ',

db[i].izdanie,'; ',db[i].komu,'; ',db[i].mnenie);

end;

close( f );

assign( f, DB_TEMP );

erase( f );

exit;

end else if (key = 'Ќ') or (key = '') then begin

exit;

end;

end else exit;

end

end;

end;

end.

Результаты

1. Внесение новой книги

Библиотека

Нажмите:

“1” Чтобы внести в библиотеку новую книгу

“2” Чтобы выкинуть книгу

“3” Чтобы изменить сведения о книге

“4” Чтобы просмотреть библиотеку

“5” Чтобы выйти…

Сведения о новой книге:

Введите автора книги: Пушкин

Введите название книги: Капитанская дочка

Введите жанр книги: Роман

Введите год издания книги: 1990

Введите издательство книги: Лениздат

Введите кому отдана книга: Ермолову

Введите мнение о книге: хорошая

Новая книга создана. Нажмите любую клавишу…