Реферат: Базы и банки знаний
readchar(_),!.
/*если запись не существует*/
proc(2):-
write("Can't find that book in the database."),nl,
closefile(datafile),
closefile(indexfile),nl,!,
write("Press space bar."),
readchar(_),!.
/*удаление автора*/
/*если запись существует*/
proc(3):-
nl,write("Запрос: "),nl,
write(" Название книги: "),
readln(Name),
dbread(kniga(Name,List,Izd,God)),nl,
write(" ",Name),nl,
writelist(List),nl,
write(" ",God," ",Izd),nl,!,
write("Enter author to delete: "),
readln(Aut),
delete_it(Aut,List,List1),
dbretract(kniga(Name,_,_,_)),
dbassert(kniga(Name,List1,Izd,God)),
write(Name,"has been modified in database."),nl,!,
write("Press space bar."),
readchar(_),!.
/*если запись не существует*/
proc(3):-
write("Can't find that book in the database."),nl,