Soal Quiz Pra UAS Expert System Gjl 1516 Prepare by Humdiana


  1. Dalam membangun suatu aplikasi Expert System diperlukan 5 hal yang perlu diperhatikan, apa sajakah? Jelaskanlah!
  2. Dalam Manajemen Project Expert System kita mengenal metode Spiral, dan Metode Linier, dalam hal apakah kita menggunakan salah satu dari metode tersebut? Jelaskan argumentasi anda!
  3. Sebutkan dan Jelaskan 8 Tipe data CLIPS !
  4. Jelaskan apa pengertian dari istilah berikut ini :
    1. Sailence
    2. Multislots
    3. Assert
    4. Facts
    5. Defrule

 

  1. Berikan contoh dari : Assert dengan deftemplate vs tanpa deftemplate
  2. Buatlah Program Sederhana menggunakan CLIPS untuk “Membuat Fakta”
  3. Gunakan Program CLIPS kemudian Run program tersebut dan Tampilkan hasil outputnya

(deftemplate mhs

   (slot nama)

   (slot nim)

   (slot nilai_kom)

   (slot nilai_inggris)

)

 

(assert (menu 0))

(assert (nilai 0))

(assert (jml 0))

 

(defrule syarat1 ?fact<-(menu 0)

=>

   (printout t “Menu” crlf)

   (printout t “1.Input” crlf)

   (printout t “2.Hitung rata-rata” crlf)

   (printout t “3.Tampilkan Grade” crlf)

   (printout t “4.Cari Mahasiswa” crlf)

   (printout t “5.Keluar” crlf)

   (printout t “Pilih ? “)

 

   (assert (menu (read)))

   (retract ?fact)

)

 

(defrule syarat2

   ?fact<-(menu 1)

   ?nilai<-(nilai ?)

   ?jml<-(jml ?)

   (nilai ?n)

   (jml ?j)

=>

   (printout t “Nama ? “)

   (bind ?nama(read))

   (printout t “NIM ? “)

   (bind ?nim(read))

   (printout t “Nilai Komputer ? “)

   (bind ?nilai_kom(read))

   (printout t “Nilai Inggris ? “)

   (bind ?nilai_inggris(read))

 

   (assert (mhs (nama ?nama) (nim ?nim) (nilai_kom ?nilai_kom) (nilai_inggris ?nilai_inggris)))

   (bind ?rata (/ (+ ?nilai_kom ?nilai_inggris) 2) )

 

   (bind ?data (+ ?n ?rata))

   (bind ?total (+ ?j 1))

 

   (retract ?nilai)

   (retract ?jml)

 

   (assert (nilai ?data))

   (assert (jml ?total))

 

   (retract ?fact)

   (assert (menu 0))  

)

 (defrule syarat3

   ?fact<-(menu 2)

   (nilai ?nilai)

   (jml ?jml)

=>

   (printout t “Rata-rata Mahasiswa adalah “)

   (printout t (/ ?nilai ?jml) crlf)

 

   (retract ?fact)

   (assert (menu 0))

)

 (defrule syarat4

   ?fact<-(menu 3)

   (nilai ?nilai)

   (jml ?jml)

=>

   (printout t “Grade rata-rata Mahasiswa adalah “)

   (bind ?rata (/ ?nilai ?jml))

 

   (if(>= 50 ?rata) then (printout t “Grade E” crlf)

                            else (if(>= 60 ?rata) then (printout t “Grade D” crlf)

                             else (if(>= 70 ?rata) then (printout t “Grade C” crlf)

                             else (if(>= 80 ?rata) then (printout t “Grade B” crlf)

                              else (printout t “Grade A” crlf)

                                   ))))

 

   (retract ?fact)

   (assert (menu 0))

 

)

 

(defrule syarat5

   ?fact<-(menu 4)

=>

   (printout t “Masukkan NIM mahasiswa: “)

   (bind ?cari (read))

 

   (assert (cari ?cari))

   (retract ?fact)

   (assert (menu 10))

)

 

(defrule syarat7

   ?fact<-(menu 10)

   ?find<-(cari ?)

   (cari ?cari)

   (mhs (nim ?cari))

=>

   (printout t “NIM : “)

   (printout t ?cari crlf)

   (printout t “Data yang anda cari ditemukan” crlf)

 

   (retract ?find)

   (retract ?fact)

   (assert (menu 0))

)

 (defrule syarat8

   ?fact<-(menu 10)

   ?find<-(cari ?)

 =>

   (printout t “Data yang anda cari tidak ditemukan” crlf)

    (retract ?find)

   (retract ?fact)

   (assert (menu 0))

)

 (defrule syarat6

   ?fact<-(menu 5)

=>

   (retract ?fact)

   (exit)

)

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s