Реферат: Базы и банки знаний
/* Просмотр информации о книге */
/*если запись существует*/
process(3):-
write("Enter name "),
readln(Name),
dbread(kniga(Name,List,Izd,God)),nl,
write(" ",Name),nl,
writelist(List),nl,
write(" ",Izd),nl,
write(" ",God),nl,!,
write("Press space bar."),
readchar(_),!.
/*если запись не существует*/
process(3):-
write("Can't find that book in the database."),nl,
closefile(datafile),
closefile(indexfile),nl,!,
write("Press space bar."),
readchar(_),!.
/* Вызов меню модификации */
process(4):-
nl,
menu_modify.
/* Выход из диалога */
process(5):-
write("Press space bar."),
readchar(_),
exit.
/* Просессы меню модификации */