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

openread(datafile,Datafile),

openread(indexfile,Indexfile),

/*испльзуется вспомогательный модуль dbaaccess, осуществляющий

поиск и выборку данных из файла БД*/

dbaaccess(Term,-1),

closefile(datafile),

closefile(indexfile).

/*Этот предикат читает данные, логически связанные со значением индекса,

задаваемым переменной Datapos.*/

dbaaccess(Term,Datpos):-

Datpos>=0,

filepos(datafile,Datpos,0),

readdevice(datafile),

readterm(dbasedom,Term).

/*Это правило пытается найти в базе такую запись, индекс которой присутствует в индексном файле. Если индекс находится, то правило успешно; если нет, то неуспешно.В случае успеха переменная Term получает нужные пользователю значения*/

dbaaccess(Term,_):-

readdevice(indexfile),

readreal(Datpos1),

dbaaccess(Term,Datpos1).

/* Правила работы со списками */

/*Чтение списка*/

readlist([H|T]):-

write("> "),nl,

readln(H),!,

readlist(T).

readlist([]).

/*Вывод списка*/

writelist([H|T]):-

write(H, " "),