На главную
ПРАВИЛА FAQ Помощь Участники Календарь Избранное DigiMania RSS
С Днём Защитника Отечества!

msm.ru
Коротко о разделе:
Здесь разрешается создавать темы, относящиеся к любому языку программирования, для которого не существует раздела на форуме (например, Lisp, Tcl/Tk, FORTRAN и т.д.). Если раздел для нужного Вам языка есть, большая просьба создавать тему в нем.
Вопросы, связанные с JScript, Perl, PHP обсуждаются в разделе WWW Masters.

Обратите внимание:
1. Прежде чем задать вопрос, воспользуйтесь поиском. Возможно, Ваш вопрос уже обсуждали.
2. Если Ваш вопрос связан с конкретным языком программирования, обязательно укажите название языка в имени темы.
3. Постарайтесь давать темам информативные названия. Темы с названиями типа "Помогите, горю" будут удалены.
4. Помните, чем грамотней будет задан Ваш вопрос, тем больше будет у Вас шансов получить на него ответ. Как правильно задавать вопросы
5. Ипользуйте тег [ code ] ...текст программы... [ /code ] для выделения текста программы.

Просьбы выполнить какую-либо работу за автора в этом разделе не обсуждаются. Темы с подобными просьбами будут перемещены или удалены. Для заказов у нас существуют специальные разделы: Разовые заказы и подработка, ПОМОЩЬ СТУДЕНТАМ.

Если кто не понял (а такие есть) — чтобы за вас решали ваши задачки, идите на другие ресурсы.

Полезные ссылки:
Есть. ;)
Наши Исходники | GPSS (en), GPSS (ru) (!) | Common Lisp | Tcl/Tk | Haskell | Lua
Модераторы: B.V.
  
> Помогите найти ошибку в CLIPS, Помогите найти ошибку в CLIPS
Здравствуйте,помогите пожалуйста выявить ошибку в коде, когда отвечаю в вопросе про студента,пишет,что студент не найден,а когда пишу имя преподавателя,то код не идет...
задачка вот такая :
На факультете работает много профессоров, читаю-
щих различные курсы. Курс может иметь несколько разделов. Профес-
сор может вести несколько курсов, а также отдельные разделы неко-
торых курсов.
Однако, каждый раздел любого курса читается только одним
профессором. Следовательно, курс, состоящий из нескольких разде-
лов может преподаваться различными профессорами.
Студент может посещать разные курсы, но он может не изучать
отдельные разделы курса.
Профессор занимает должность, не разделяемую с другими про-
фессорами.
Пара значений Имя Студента и Год уникальна.
Может быть уникальна оценка студента по данному курсу.
Информация может быть представлена отношениями:
Курсы(название,раздел,имя профессора,должность)
А 1 ЕО 281
А 3 ВК Н45
В 1 КЕ 281
и т.д.
Студенты(Имя, Год, Название курса, Раздел, Оценка)
Возможны другие форматы отношений.
Реализовать запросы:
1.О всех функциональных зависимостях между атрибутами отношений;
2.Сформировать окно, включающее список(Студент, Курс, Раздел, Преподаватель).
Запросы: 1) студент- на какие курсы он ходит
2) профессор- какие курсы он ведет


А сам код вот такой :
ExpandedWrap disabled
    (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? "))
1 пользователей читают эту тему (1 гостей и 0 скрытых пользователей)
0 пользователей:


Рейтинг@Mail.ru
[ Script Execution time: 0,0687 ]   [ 19 queries used ]   [ Generated: 25.02.18, 17:49 GMT ]