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

/*если запись уществует*/

proc(1):-

nl,write("Запрос: "),nl,

write(" Название книги: "),

readln(Name),

dbread(kniga(Name,List,Izd,God)),nl,

write(" ",Name),nl,

writelist(List),nl,

write(" ",Izd),nl,

write(" ",God),nl,!,

write("Enter name "),

readln(Name1),

dbretract(kniga(Name,_,_,_)),nl,

dbassert(kniga(Name1,List,Izd,God)),

write(Name,"has been modified in database."),nl,!,

write("Press space bar."),

readchar(_),!.

/*если запись не существует*/

proc(1):-

write("Can't find that book in the database."),nl,

closefile(datafile),

closefile(indexfile),nl,!,

write("Press space bar."),

readchar(_),!.

/*изменение издания*/

/*если запись существует*/

proc(4):-

nl,write("Запрос: "),nl,

write(" Название книги: "),