Помогите найти ошибку в CLIPS в небольшом коде программы. -> Форум на Исходниках.Ру

	Наши проекты: Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту

Здравствуйте, Гость ! [18.97.14.87]

Правила раздела

1. Не создавайте несколько одинаковых тем, ибо модератор может расценить их, как спам и удалить все.
2. Для решения задач по GPSS есть отдельная тема. Все задачи по GPSS опубликовывать в этой теме! Перед опубликовыванием вашей задачи просмотрите всю тему, возможно вы сразу найдете решение.
3. Давайте вашим темам ОСМЫСЛЕННЫЕ названия, а также указывайте язык программирования. Пример: [Pascal]:Работа с файлами и записями.
4. Использования тега CODE обязательно при публикации текста программы.

Темы, оформленные с явным игнорированием правил и отсутствием смысла, будут закрыты/удалены!
Вам помогли? Напишите об этом здесь (в портфолио фрилансера)

Фрилансерам:
5. Демпинг цен запрещен (даже если Вы готовы работать бесплатно). Цены обсуждаются в приватном общении. Если вы готовы рещить задачу бесплатно, просто решите ее быстрее, чем возникнет предложение сделать это за деньги.
6. Пользователям, входящим в группу Newbie, запрещается предлагать свои услуги (завуалированно в т.ч.)
7. В посте с предложением выполнить работу, обязательно указывать ссылку на свое портфолио в Отзывы, Благодарности, Портфолио Это правило работает и в том случае, если вы выполняете работу бесплатно.
8. Реклама (даже завуалированная) своих фриланских сайтов запрещена

Нарушение данных пунктов влечет до RO или БАНА (при неоднократом)

Модераторы: ttiger, mikefreelance, Rust

Помогите найти ошибку в CLIPS в небольшом коде программы. , Помогите найти ошибку в CLIPS в небольшом коде программы.

yuliyasheyn

Сообщ. #1 , 01.02.18, 07:39

Newbie

Профиль · PM

Рейтинг (ф): 0

Здравствуйте,помогите пожалуйста выявить ошибку в коде, когда отвечаю в вопросе про студента,пишет,что студент не найден,а когда пишу имя преподавателя,то код не идет...
задачка вот такая :
На факультете работает много профессоров, читаю-
щих различные курсы. Курс может иметь несколько разделов. Профес-
сор может вести несколько курсов, а также отдельные разделы неко-
торых курсов.
Однако, каждый раздел любого курса читается только одним
профессором. Следовательно, курс, состоящий из нескольких разде-
лов может преподаваться различными профессорами.
Студент может посещать разные курсы, но он может не изучать
отдельные разделы курса.
Профессор занимает должность, не разделяемую с другими про-
фессорами.
Пара значений Имя Студента и Год уникальна.
Может быть уникальна оценка студента по данному курсу.
Информация может быть представлена отношениями:
Курсы(название,раздел,имя профессора,должность)
А 1 ЕО 281
А 3 ВК Н45
В 1 КЕ 281
и т.д.
Студенты(Имя, Год, Название курса, Раздел, Оценка)
Возможны другие форматы отношений.
Реализовать запросы:
1.О всех функциональных зависимостях между атрибутами отношений;
2.Сформировать окно, включающее список(Студент, Курс, Раздел, Преподаватель).
Запросы: 1) студент- на какие курсы он ходит
2) профессор- какие курсы он ведет

Сам код вот такой :

(assert(kurs c++ 1 Ivanov dotsent))

(assert(kurs c++ 2 Abdulaev professor))

(assert(kurs c++ 3 Shvetsov k.t.n))

(assert(kurs python 1 Gorohov st.prep))

(assert(kurs python 2 Abdulaev professor))

(assert(kurs python 3 Ivanov dotsent))

(assert(kurs java 1 Borodin aspirant))

(assert(kurs java 2 Shvetsov k.t.n))

(assert(kurs java 3 Gorohov st.prep))

(assert(student Kris 1996 c++ 1 5))

(assert(student Lena 1997 python 1 5))

(assert(student Masha 1995 java 2 5))

(assert(student Kirya 1994 java 1 5))

(defglobal ?*name* = none)

(deffunction askname (?question)

(printout t ?question)

(bind ?*name* (read))

(assert (name ?*name* )))

(defrule stud ""

(name ?n)

(student ?n ?god ?kurs $?) => (printout t "This kurs: " ?kurs crlf))

(defrule start

(initial-fact)

(askname "Name of student? "))

-------------------------------------------------------------------------------------------------------

(defglobal ?*fam* = none)

(deffunction askfam (?question)

(printout t ?question)

(bind ?*fam* (read))

(assert (fam ?*fam* )))

(defrule stud ""

(fam ?f)

(kurs ?kurs $? ?f $?) => (printout t "This kurs from professor: " ?kurs crlf))

(defrule start

(initial-fact)

(askfam "Name of professor? "))

Сообщение отредактировано: yuliyasheyn - 01.02.18, 07:41

0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)

0 пользователей:

[ Script execution time: 0,0173 ] [ 15 queries used ] [ Generated: 27.03.25, 17:23 GMT ]