На главную Наши проекты:
Журнал   ·   Discuz!ML   ·   Wiki   ·   DRKB   ·   Помощь проекту
ПРАВИЛА FAQ Помощь Участники Календарь Избранное RSS
msm.ru
! Правила раздела
1. Не создавайте несколько одинаковых тем, ибо модератор может расценить их, как спам и удалить все.
2. Для решения задач по GPSS есть отдельная тема. Все задачи по GPSS опубликовывать в этой теме! Перед опубликовыванием вашей задачи просмотрите всю тему, возможно вы сразу найдете решение.
3. Давайте вашим темам ОСМЫСЛЕННЫЕ названия, а также указывайте язык программирования. Пример: [Pascal]:Работа с файлами и записями.
4. Использования тега CODE обязательно при публикации текста программы.

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

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

Нарушение данных пунктов влечет до RO или БАНА (при неоднократом)
Модераторы: ttiger, mikefreelance, Rust
  
    > Помогите найти ошибку в 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? "))
      Сообщение отредактировано: yuliyasheyn -
      0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)
      0 пользователей:


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