На главную Наши проекты:
Журнал   ·   Discuz!ML   ·   Wiki   ·   DRKB   ·   Помощь проекту
ПРАВИЛА FAQ Помощь Участники Календарь Избранное 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? "))
    0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)
    0 пользователей:


    Рейтинг@Mail.ru
    [ Script execution time: 0,0232 ]   [ 15 queries used ]   [ Generated: 28.03.24, 15:52 GMT ]