Отчет по лабораторной работе №1 Наименование дисциплины: Интеллектуальные информационные системы - файл

скачать (26.7 kb.)


Федеральное государственное бюджетное образовательное

учреждение высшего образования

«Национальный исследовательский университет «МЭИ»


Институт:

ИнЭИ







Направление подготовки:

38.03.05 Бизнес-информатика



Отчет по лабораторной работе №1


Наименование дисциплины:

Интеллектуальные информационные системы



СТУДЕНТ





/ /

(подпись )

(Фамилия и инициалы)




Группа







(номер учебной группы)



Москва

2021

Разработка прототипа экспертной системы, базирующейся на правилах.
Задание.


Вариант: 14

Предметная область : Спортивные игры



Код программы:

cond(1, 'играют мячом').

cond(2, 'командная игра').

cond(3, 'парная игра').

cond(4, 'есть ворота').

cond(5, 'в команде больше 6 игроков').

cond(6, 'играют ракетками').

cond(7, 'мяча можно касаться руками').

cond(8, 'играют через сетку').

cond(8, 'нужно делать подачи').


rule('Футбол', [1,2,4,5,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).


main :-

write(" * * * * * * * * * * * * * * * * * * * * * "),nl,

write(" ДОБРО ПОЖАЛОВАТЬ! "),nl,

write(" Данная экспертная система определяет "),nl,

write(" какую спортивную игру вы загадали "),nl,

write(" Отвечайте, пожалуйста, 'да' или 'нет' "),nl,

write(" * * * * * * * * * * * * * * * * * * * * * * "),nl,nl,

write(" В этой игре : "),nl,



run(1, []).

Результат работы:





Учебный материал
© nashaucheba.ru
При копировании укажите ссылку.
обратиться к администрации