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

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

openappend(indexfile,Indexfile),

writedevice(indexfile),

/*Запись значения индекса, задаваемого переменной Pos.

Для записи индекса отводится поле, состоящее из 7 позиций.*/

writef("%7.0\n",Pos),

/*закрывает индексный файл*/

closefile(indexfile).

/*если файлы не существуют*/

dbass(Term,Indexfile,Datafile):-

/*создаёт файл данных для записи*/

openwrite(datafile,Datafile),

writedevice(datafile),

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

filepos(datafile,Pos,0),

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

write(Term),nl,

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

closefile(datafile),

/*создаёт индексный файл для записи*/

openwrite(indexfile,Indexfile),

writedevice(indexfile),

/*Запись значения индекса, задаваемого переменной Pos.

Для записи индекса отводится поле, состоящее из 7 позиций.*/

writef("%7.0\n",Pos),

/*закрывает индексный файл*/

closefile(indexfile).

/* Правило dbret удаляет данные из БД */

dbret(Term,Indexfile,Datafile):-

К-во Просмотров: 731
Бесплатно скачать Реферат: Базы и банки знаний