Модераторы: Poseidon
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Clips, Помогите разобраться 
:(
    Опции темы
MrDmitry
Дата 25.2.2017, 14:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 556
Регистрация: 10.11.2006

Репутация: нет
Всего: нет



Создать базу фактов о студентах, каждый факт должен содержать Фамилию, название дисциплины, оценку. Найти количество дисциплин с оценкой 2 для студента с фамилией которого задается пользоваталем с клавиатуры. Defact применять минимум 2 раза чтоб в базе были не только студенты.

Вот как я сделал

Код

(deffacts Students
(Students Nikitin Matematika 4 )
(Students Timerbaev Informatika 5 )
(Students Lasarev Russkiy 2)
(Students Baigasin Ruskiy 5)
(Students Farshatov Physic 3)
(Students Stepanov Matematika 3)
(Students Tasetdinov Informatika 4)
(Students Lasarev Chimia 2)
(Students Kusnecov Chimia 4)
(Students Prochorov Physic 4 )
(Students Hairullin Matematika 3))

(defglobal ?*count* = 0)

(defrule input
(initial-fact)
    =>
    (printout t crlf "Vvedite familiu studenta:")
    (bind ?i (read))
    (assert (familia ?i)))

(defrule matematika
(familia ?i)
(Students ?i Matematika 2)
=>
(bind ?*count* (+ ?*count* 1)))
(defrule informatika
(familia ?i)
(Students ?i Informatika 2)
=>
(bind ?*count* (+ ?*count* 1)))
(defrule russkiy
(familia ?i)
(Students ?i Russkiy 2)
=>
(bind ?*count* (+ ?*count* 1)))
(defrule physic
(familia ?i)
(Students ?i Physic 2)
=>
(bind ?*count* (+ ?*count* 1)))
(defrule chimia
(familia ?i)
(Students ?i Chimia 2)
=>
(bind ?*count* (+ ?*count* 1)))
(defrule result
(familia ?i)
    =>
    (printout t "kolichestvo disciplin s ocenkoy 2 dlia  studenda: " ?i " = " ?*count* crlf)
    (reset)
    (halt))

    теперь хотелось бы сделать какую то проверку на то существует введеный студент или нет. Но я в упор не понимаю как это сделать. Буду рад любой помощи.





PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Центр помощи"

ВНИМАНИЕ! Прежде чем создавать темы, или писать сообщения в данный раздел, ознакомьтесь, пожалуйста, с Правилами форума и конкретно этого раздела.
Несоблюдение правил может повлечь за собой самые строгие меры от закрытия/удаления темы до бана пользователя!


  • Название темы должно отражать её суть! (Не следует добавлять туда слова "помогите", "срочно" и т.п.)
  • При создании темы, первым делом в квадратных скобках укажите область, из которой исходит вопрос (язык, дисциплина, диплом). Пример: [C++].
  • В названии темы не нужно указывать происхождение задачи (например "школьная задача", "задача из учебника" и т.п.), не нужно указывать ее сложность ("простая задача", "легкий вопрос" и т.п.). Все это можно писать в тексте самой задачи.
  • Если Вы ошиблись при вводе названия темы, отправьте письмо любому из модераторов раздела (через личные сообщения или report).
  • Для подсветки кода пользуйтесь тегами [code][/code] (выделяйте код и нажимаете на кнопку "Код"). Не забывайте выбирать при этом соответствующий язык.
  • Помните: один топик - один вопрос!
  • В данном разделе запрещено поднимать темы, т.е. при отсутствии ответов на Ваш вопрос добавлять новые ответы к теме, тем самым поднимая тему на верх списка.
  • Если вы хотите, чтобы вашу проблему решили при помощи определенного алгоритма, то не забудьте описать его!
  • Если вопрос решён, то воспользуйтесь ссылкой "Пометить как решённый", которая находится под кнопками создания темы или специальным флажком при ответе.

Более подробно с правилами данного раздела Вы можете ознакомится в этой теме.

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Poseidon, Rodman

 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Центр помощи | Следующая тема »


 




[ Время генерации скрипта: 0.0913 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.