♥-------⊱✿◕‿◕✿⊹⊹⊱o★★●战法= ＨＳＨ＝✿✿♥(版主最多的社团)社团办第9号侧楼

小P

(deftemplate produit
   (slot nom)
   (slot categorie)
   (slot prix)
)

小P

;;Inserer les produits dans la base de fact
(deffacts produits
  (produit (nom Nintendo_DS)(categorie Console_de_jeux)(prix 150))
  (produit (nom Nintendo_Wii)(categorie Console_de_jeux)(prix 249))
  (produit (nom Sony_PS3)(categorie Console_de_jeux)(prix 399))  
  (produit (nom Sony_PSP)(categorie Console_de_jeux/Lecteur_MP3)(prix 170))
  (produit (nom iPod_touch_16Go)(categorie Lecteur_MP3/MP4)(prix 409))
  (produit (nom iPod_nano_8Go)(categorie Lecteur_MP3/MP4)(prix 209))
  (produit (nom iPod_shuffle_1Go)(categorie Lecteur_MP3)(prix 79))
  (produit (nom Archos605_120Go)(categorie Lecteur_MP4)(prix 400))
  (produit (nom Philips_DVP3142)(categorie Lecteur_DVD_de_salon)(prix 69))
  (produit (nom Toshiba_D-VR50)(categorie Lecteur_enregistreur_DVD)(prix 200))  
  (produit (nom Nokia_N95)(categorie Telephone_mobile/PDA/GPS)(prix 659))
  (produit (nom Sony_Ericsson_S500i)(categorie Telephone_mobile/Lecteur_MP)(prix 259))  
  (produit (nom HP_iPAQ_rx5720)(categorie PDA/GPS)(prix 349))
  (produit (nom JVC_GR-D721EX)(categorie Camescope_MiniDV)(prix 229))
  (produit (nom Sony_DCR-HC96)(categorie Camescope_MiniDV)(prix 609))
)

小P

;;Definir le template de personne
(deftemplate personne
   (slot nom)
   (slot question2)
   (slot question3)
   (slot question4)
   (slot question5)
   (slot question6)
   (slot question7)
   (slot question8)
   (slot question9)
   (slot question10)
   (slot question11)
   (slot question12)
   (slot question13)
   (slot question14)
   (slot question15)
   (slot question16)
   (slot question17)
   (slot question18)
   (slot question19)
)

小P

;;Lancer les questions
(defrule initialisation
        (initial-fact)
        =>
        (printout t "Quel votre nom: ")
        (assert        (personne (nom (read))))
)

小P

小P

(defrule question2
        ?p <- (personne (nom ?a) (question2 nil) (question3 nil) (question4 nil)
                                 (question5 nil) (question6 nil) (question7 nil)
                                 (question8 nil) (question9 nil) (question10 nil)
                                 (question11 nil) (question12 nil) (question13 nil)
                                 (question14 nil) (question15 nil) (question16 nil)
                                 (question17 nil) (question18 nil) (question19 nil))
        =>
        (printout t "Quelle est votre activité?" crlf)
        (printout t "1. Etudiant" crlf)
        (printout t "2. Salarié" crlf)
        (printout t "3. Chomeur" crlf)
        (printout t "4. Autre" crlf)   
        (printout t "Quel votre choix: ")  
        (assert        (personne (nom ?a)(question2 (read))))
        (retract ?p)
)

小P

q01: Quel votre nom?
q02: Quelle est votre activité?
q03: Comment définiriez-vous votre degré de maitrise des nouvelles technologie?
q04: Aimez-vous les objets gadgets
q05: Aimez-vous les objets multifonctions
q06: Avez-vous accès à Internet ?
q07: Téléchargez-vous souvent des films ou musiques ?
q08: Combien d'heures durent vos déplacements chaque semaine ?
q09: Conduisez-vous souvent en voiture ?
q10: Ecoutez-vous souvent la radio ?
q11: Lisez-vous souvent les journaux ?
q12: Faites-vous souvent des soirées télé ?
q13: Vous préférez les films anciens ou récents ?
q14: Pratiquez-vous surtout des activités physiques ou mentales ?
q15: Combien d'heures par semaine travaillez-vous ?
q16: Vous intéressez-vous aux jeux vidéos ?
q17: Etes-vous sportif ?
q18: Voyagez-vous souvent ?
q19: Avez-vous des enfants ?

啊喜

啊喜

啊喜

谁！！！！

啊喜

谁！！！！

啊喜

Monica&Pai

这楼算是彻底水了

Monica&Pai

KIKIKIKI

Monica&Pai

我的马甲