Базы и банки знаний

Prolog имеет внутренние подпрограммы для выполнения сопоставления и

Базы и банки знаний

Информация

Компьютеры, программирование

Другие материалы по предмету

Компьютеры, программирование

Сдать работу со 100% гаранией
ga(Name,_,_,_)),

write(Name,"has been deleted from the DATABASE."),

nl,!,

write("Press space bar."),

readchar(_),!.

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

process(2):-

write("Can't find that book in the database."),nl,

closefile(datafile),

closefile(indexfile),nl,!,

write("Press space bar."),

readchar(_),!.

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

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

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.

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

 

/* Изменение названия книги */

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

proc(1):-

 

nl,write("Запрос: "),nl,

write(" Название книги: "),

readln(Name),

dbread(kniga(Name,List,Izd,God)),nl,

write(" ",Name),nl,

writelist(List),nl,

write(" ",Izd),nl,

write(" ",God),nl,!,

write("Enter name "),

readln(Name1),

dbretract(kniga(Name,_,_,_)),nl,

dbassert(kniga(Name1,List,Izd,God)),

write(Name,"has been modified in database."),nl,!,

write("Press space bar."),

readchar(_),!.

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

proc(1):-

 

write("Can't find that book in the database."),nl,

closefile(datafile),

closefile(indexfile),nl,!,

write("Press space bar."),

readchar(_),!.

/*изменение издания*/

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

proc(4):-

nl,write("Запрос: "),nl,

write(" Название книги: "),

readln(Name),

dbread(kniga(Name,List,Izd,God)),nl,

write(" ",Name),nl,

writelist(List),nl,

write(" ",God," ",Izd),nl,!,

write("Enter Izd "),

readln(Izd1),

dbretract(kniga(Name,_,_,_)),nl,

dbassert(kniga(Name,List,Izd1,God)),

write(Name,"has been modified in database."),nl,!,

write("Press space bar."),

readchar(_),!.

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

proc(4):-

 

write("Can't find that book in the database."),nl,

closefile(datafile),

closefile(indexfile),nl,!,

write("Press space bar."),

readchar(_),!.

/*изменение года выпуска*/

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

proc(5):-

 

nl,write("Запрос: "),nl,

write(" Название книги: "),

readln(Name),

dbread(kniga(Name,List,Izd,God)),nl,

write(" ",Name),nl,

writelist(List),nl,

write(" ",God," ",Izd),nl,!,

write("Enter God "),

readint(God1),

dbretract(kniga(Name,_,_,_)),nl,

dbassert(kniga(Name,List,Izd,God1)),

write(Name,"has been modified in database."),nl,!,

write("Press space bar."),

readchar(_),!.

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

proc(5):-

 

write("Can't find that book in the database."),nl,

closefile(datafile),

closefile(indexfile),nl,!,

write("Press space bar."),

readchar(_),!.

/*добавление списка авторов*/

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

proc(2):-

nl,write("Запрос: "),nl,

write(" Название книги: "),

readln(Name),

dbread(kniga(Name,List,Izd,God)),nl,

write(" ",Name),nl,

writelist(List),nl,

write(" ",Izd),nl,

write(" ",God),nl,!,

write("Enter authors: "),

readlist(List1),

append(List,List1,List2),

dbretract(kniga(Name,_,_,_)),

dbassert(kniga(Name,List2,Izd,God)),

write(Name,"has been modified in database."),nl,!,

write("Press space bar."),

readchar(_),!.

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

proc(2):-

write("Can't find that book in the database."),nl,

closefile(datafile),

closefile(indexfile),nl,!,

write("Press space bar."),

readchar(_),!.

/*удаление автора*/

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

proc(3):-

nl,write("Запрос: "),nl,

write(" Название книги: "),

readln(Name),

dbread(kniga(Name,List,Izd,God)),nl,

write(" ",Name),nl,

writelist(List),nl,

write(" ",God," ",Izd),nl,!,

write("Enter author to delete: "),

readln(Aut),

delete_it(Aut,List,List1),

dbretract(kniga(Name,_,_,_)),

dbassert(kniga(Name,List1,Izd,God)),

write(Name,"has been modified in database."),nl,!,

write("Press space bar."),

readchar(_),!.

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

proc(3):-

write("Can't find that book in the database."),nl,

closefile(datafile),

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,

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

closefile(datafile),

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

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):-

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

Похожие работы

< 1 2 3 >