Оглавление Введение 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)).
|