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

/* Просмотр информации о книге */

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

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.

/* Просессы меню модификации */