Реферат: Базы и банки знаний

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,