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

closefile(indexfile),nl,!,

write("Press space bar."),

readchar(_),!.

/*возврат в основное меню*/

proc(6).

/*Повтор*/

repeat.

repeat:-repeat.

/* Правила для работы с БД */

dbassert(Term):-

dbass(Term,"cbook.ind","cbook.dba").

dbretract(Term):-

dbret(Term,"cbook.ind","cbook.dba").

dbread(Term):-

dbrd(Term,"cbook.ind","cbook.dba").

/* Правило dbass записывает информацию в файл datafile и модифицирует файл indexfile */

/*запись данных в уже существующий файл*/

dbass(Term,Indexfile,Datafile):-

/*проверка существования файлов*/

existfile(Indexfile),

existfile(Datafile),

/*открывает файл данных на добавление*/

openappend(datafile,Datafile),

writedevice(datafile),

/*зпоминает позицию*/

filepos(datafile,Pos,0),

/*добавление записи*/

write(Term),nl,

/*закрыват файл данных*/