учреждение высшего образования
«Национальный исследовательский университет «МЭИ»
Институт: |
ИнЭИ |
|
|
Направление подготовки: |
38.03.05 Бизнес-информатика |
Наименование дисциплины: |
Интеллектуальные информационные системы |
|
/ / |
(подпись ) |
(Фамилия и инициалы) |
Группа |
|
|
(номер учебной группы) |
Предметная область : Спортивные игры
cond(1, 'играют мячом').
cond(2, 'командная игра').
cond(3, 'парная игра').
cond(4, 'есть ворота').
cond(5, 'в команде больше 6 игроков').
cond(6, 'играют ракетками').
cond(7, 'мяча можно касаться руками').
cond(8, 'играют через сетку').
cond(8, 'нужно делать подачи').
rule('Волейбол', [1,2,7,8]).
rule('Бадминтон', [3,6,8]).
rule('Настольный тенис', [1,3,6,8]).
rule('Баскетбол', [1,2,7]).
process(Answer, Answers, AnswersNew, Q) :-
member(Answer, [1, 'да', 'yes', 'yep', 'true', 'sure']),
append(Answers, [Q], AnswersNew), !.
process(_, AnswersNew, AnswersNew, _).
check(Answers, _) :-
rule(X, Answers),nl,
write('Вероятно Ваша игра : '),
write(X),nl.
check(Answers, Q) :-
Q1 is Q + 1,
run(Q1, Answers), !.
run(Q, Answers) :-
cond(Q, Question),nl,write(' '),
write(Question),write('?'), nl,
read(Answer),
process(Answer, Answers, AnswersNew, Q),
check(AnswersNew, Q).
write(" * * * * * * * * * * * * * * * * * * * * * "),nl,
write(" ДОБРО ПОЖАЛОВАТЬ! "),nl,
write(" Данная экспертная система определяет "),nl,
write(" какую спортивную игру вы загадали "),nl,
write(" Отвечайте, пожалуйста, 'да' или 'нет' "),nl,
write(" * * * * * * * * * * * * * * * * * * * * * * "),nl,nl,
write(" В этой игре : "),nl,