Система "Посредник"

Информация - Компьютеры, программирование

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

Скачать Бесплатно!
Для того чтобы скачать эту работу.
1. Пожалуйста введите слова с картинки:

2. И нажмите на эту кнопку.
закрыть



редметной области. Таким образом, сигнатура формально представляет одну часть знания о предметной области, а формулы, записанные в этой сигнатуре, представляют другую часть знания.

Графическое представление сигнатуры показано на рис.4, а модельной структуры на рис.5.

Рис.4. Графическое представление сигнатуры

 

Логическая модель в Прологе представляется в виде предикатов и баз данных database. Например:

database договор

дог(Поставщик, Покупатель)

Функцию пост (поставщик) можно реализовать так

пост (N): дог(Покупатель,Поставщик), N=Поставщик.

Функцию можно представить следующим образом:

(Количество1,Количество2):Количество1<= Количество2.

 

7. Организация диалога с пользователем

При загрузке система Посредник выводит главное меню, в котором представлены все режимы работы программы. Каждый режим выбирается посредством нажатия цифровой клавиши. Система меню представлена многоуровневой иерархической структурой, т.е. у многих режимов есть свои подменю.

В программе реализованы обычные для такого типа программ режимы просмотра данных, их коррекции и удаления, наряду с обычным имеется интерактивный режим работы.

Если в базы данных были внесены какие-либо изменения, то при выходе из программы система выведет запрос о необходимости сохранения изменений, сопровождаемый звуковым сигналом.

Схема организации диалога представлена на рис.6.

 

заключение

При написании курсового проекта были использованы разнообразные модели представления знаний, изучаемые инженерией знаний. Система Посредник программно реализована на языке Пролог в среде Turbo Prolog 2.0.

 

Приложение

Текст программы “посредник”

 

/*==========================================================*/

/* Курсовой проект по дисциплине "Инженерия знаний" */

/* Система "Посредник" */

/* Автор: Данченков А.В., гр. ИИ-1-95 */

/*==========================================================*/

 

code=8850

 

domains

Фирма,Товар,Произв,Str=string

Int,N,Парт,Кол_во,Сроки=integer

Цена=real

 

/* Основные и служебные базы данных */

 

database - поставщик

поставщик(integer,Фирма,Товар,Произв,Парт,Кол_во,Цена,Сроки)

 

database - покупатель

покупатель(N,Фирма,Товар,Произв,Парт,Цена,Сроки)

 

database - sup

sup(Str,Str)

 

database - contract

contract(integer,integer)

 

 

database - best

best(integer,integer,integer,integer)

 

database - best2

best2(integer,integer,integer,integer)

 

database - flag

flag(Int)

 

predicates

start

view(Int)

autoload

working(Int)

main_menu

correct(Int)

interact(integer)

warning(integer)

form_best(integer,integer,integer,integer)

form_best2(integer)

f_b2(integer,integer,integer,integer)

fb1(integer,integer,integer,integer)

fb2(integer,integer,integer,integer)

del(Int)

del_sup(string)

ins_sup(string)

view_sup(string)

sve

save_bd

ask

error

io_error

ok

repeat

checkcontr(integer)

all_contract

print_contract

cmp_name(string,string)

find_web(Str,Str)

prn(integer,string)

 

goal

start.

 

 

 

clauses

 

 

/* Основная процедура */

 

start:-

makewindow(1,26,94,"СИСТЕМА ПОСРЕДНИК",0,0,25,80),

clearwindow,

autoload,

main_menu.

 

 

 

 

/* Процедура автоматической загрузки баз данных */

 

autoload:-

retractall(_,поставщик),

existfile("kurs1.dat"),

consult("kurs1.dat",поставщик),

retractall(_,покупатель),

existfile("kurs2.dat"),

consult("kurs2.dat",покупатель),

retractall(_,sup),

existfile("web.dat"),

consult("web.dat",sup),

cursor(21,30),

write("*Базы загружены*").

 

autoload:-

makewindow(2,74,79,"ОШИБКА",6,18,8,40),

cursor(2,10),

write("Нет базы на диске"),

sound(70,294),

removewindow,

!.

 

 

/* Главное меню */

 

main_menu:-

repeat,

cursor(7,0),

write(" 0 - О системе... "),nl,

write(" 1 - Корректировка данных"),nl,

write(" 2 - Уничтожение записей"),nl,

write(" 3 - Просмотр баз данных"),nl,

write(" 4 - Заключение договоров"),nl,

write(" 5 - Интерактивный режим"),nl,

write(" 6 - Выход из программы"),nl,

write(" =>"),

readint(C),

clearwindow,

working(C),

clearwindow,

C = 6,

retractall(_),

removewindow.

 

/* Вывод данных о создателе программы */

 

working(0):-

makewindow(3,27,30,"О системе...",0,0,25,80),

nl,nl,

write(" Инфоpмационно-спpавочная система"),

nl,nl,

write(" Посредник "),

nl,nl,nl,nl,

write(" Программа составлена в среде "),

nl,

write(" TURBO-PROLOG v.2.0."),

nl,nl,nl,

write(" автоp: Данченков А.В."),

nl,nl,

write(" МИРЭА, гp.ИИ-1-95 (С) 1997 г. "),

nl,

sound(5,220),

cursor(22,26),

write("Нажмите на любую клавишу"),

readchar(_),

removewindow,!.

 

/*Процедура вывода меню корректировки данных*/

 

working(1):-

makewindow(4,26,48,"Коppектировка данных",0,0,25,80),

sound(5,220),

repeat,

nl,

nl,

cursor(9,0),

write(" 1 - Изменение данных по поставщикам"),nl,

write(" 2 - Изменение данных по покупателям"),nl,

write(" 3 - Добавление данных по поставщикам"),nl,

write(" 4 - Добавление данных по покупателям"),nl,

write(" 5 - Выход в главное меню" ),nl,

write(" =>"),

readint(X),

clearwindow,

X>0,X<=5,

correct(X),

clearwindow,

X=5,!,

removewindow.

 

 

/* Процедура вывода меню уничтожения данных*/

 

working(2):-

makewindow(5,48,107,"Уничтожение записей",0,0,25,80),

sound(5,220),

repeat,

cursor(7,0),

write(" 1 - Удаление из базы данных поставщиков"),nl,

write(" 2 - Удаление из базы данных покупателей"),nl,

write(" 3 - Удаление из классифицирующей сети"),nl,

write(" 4 -

s