Оглавление
Введение 3
1 Проектирование базы знаний «Телефонный справочник» 5
1.1 Постановка задачи 5
1.2 Описание базы данных фактов 6
1.3 Описание предикатов 7
2 Реализация базы знаний на языке Пролог 9
2.1 Описание интерфейса пользователя 9
2.2 Текст программы на языке Пролог 13
Заключение 27
Список литературы 28
Текст программы на языке Пролог
run:-load_file.
/*Загрузка данных из файла*/
load_file:-memory(1),consult('ts.txt'),menu.
load_file:-memory(1),not(consult('ts.txt')),write('”©« ®вбгвбвўгҐв'),get0_noecho(Ch).
/*Сохранение данных в файл*/
save_file:-file_list('ts.txt',[abonent,colab]),write('”Ђ‰‹ ‡ЂЏ€‘ЂЌ'),memory(1),nl.
/*memory – уочищение ОП*/
memory(X):-not(colab(Y)).
memory(X):-colab(Y),X=<Y,abonent(X,Fio,Dr,Td,Tm,Ad,Zs,Zd),
retract(abonent(X,Fio,Dr,Td,Tm,Ad,Zs,Zd)),X1 is X+1,memory(X1). /*удаление имеющихся записей*/
memory(X):-colab(Y),X=<Y,not(abonent(X,Fio,Dr,Td,Tm,Ad,Zs,Zd)),
X1 is X+1,memory(X1).
memory(X):-colab(Y),X>Y,retract(colab(Y)).
|
