Tugas: Mata Kuliah Knowledge Management System

SOAL:

BUATLAH PROGRAM PROLOG DARI NARASI BERIKUT:

PADA SEMESTER 7 DI STMIK POTENSI UTAMA TERDAPAT 5 MAHASISWA YANG MENGAMBIL MATA KULIAH KNOWLEDGE MANAGEMENT SYSTEM (ANDI,BUDI,CINDY,DEDI,EDI), 5 MAHASISWA MENGAMBIL MATA KULIAH EXPERT SYSTEM (FERI,GERI,HERI,IRI, JERI) DAN 5 MAHASISWA LAGI MENGAMBIL MATA KULIAH SISTEM PENDUKUNG KEPUTUSAN (KELLI, LELI, MELI, NELI, OLI). SETELAH UJIAN SELESAI, MASING-MASING MENDAPAT NILAI(SESUAI URUTAN NAMA YANG ADA PADA MATA KULIAH) : A,D,C,B,C,E,A,D,B,C,D,E,B,A,A. MAHASISWA YANG TIDAK LULUS ADALAH MAHASISWA YANG NILAINYA D DAN E. BUATLAH GOAL UNTUK MENCARI:

1. NAMA MAHASISWA YANG MENGIKUTI MATA KULIAH KNOWLEDGE MANAGEMENT SYSTEM
2. NAMA MAHASISWA YANG TIDAK LULUS
3. NAMA MAHASISWA YANG LULUS
4. SELURUH MATA KULIAH YANG DIAJARKAN
5. SELURUH NAMA MAHASISWA YANG ADA

PENYELESAIAN:

domains
    name = symbol
    mk,nilai = string
predicates
    kuliah(name,mk)
    nilai(name,mk,nilai)
    lulus(name,mk,nilai)
    tdk_lulus(name,mk,nilai)
    mhs(name)
    matkul(mk)
clauses
    /*Fakta: Mata Kuliah*/
    matkul("Knowledge Management System").
    matkul("Expert System").
    matkul("Sistem Pendukung Keputusan").
  
    /*Fakta: Mahasiswa dan Mata Kuliah*/
    kuliah(andi,"Knowledge Management System").
    kuliah(budi,"Knowledge Management System").
    kuliah(cindy,"Knowledge Management System").
    kuliah(dedi,"Knowledge Management System").
    kuliah(edi,"Knowledge Management System").

    kuliah(feri,"Expert System").
    kuliah(geri,"Expert System").
    kuliah(heri,"Expert System").
    kuliah(iri,"Expert System").
    kuliah(jeri,"Expert System").

    kuliah(kelli,"Sistem Pendukung Keputusan").
    kuliah(leli,"Sistem Pendukung Keputusan").
    kuliah(meli,"Sistem Pendukung Keputusan").
    kuliah(neli,"Sistem Pendukung Keputusan").
    kuliah(oli,"Sistem Pendukung Keputusan").
  
    /*Fakta: Nilai*/
    nilai(andi,"Knowledge Management System","A").
    nilai(budi,"Knowledge Management System","D").
    nilai(cindy,"Knowledge Management System","C").
    nilai(dedi,"Knowledge Management System","B").
    nilai(edi,"Knowledge Management System","C").

    nilai(feri,"Expert System","E").
    nilai(geri,"Expert System","A").
    nilai(heri,"Expert System","D").
    nilai(iri,"Expert System","B").
    nilai(jeri,"Expert System","C").

    nilai(kelli,"Sistem Pendukung Keputusan","D").
    nilai(leli,"Sistem Pendukung Keputusan","E").
    nilai(meli,"Sistem Pendukung Keputusan","B").
    nilai(neli,"Sistem Pendukung Keputusan","A").
    nilai(oli,"Sistem Pendukung Keputusan","A").
  
    /*Lulus*/  
    lulus(Nama,Matkul,Nilai):-
        kuliah(Nama,Matkul),
        nilai(Nama,Matkul,Nilai),
        Nilai="A".
  
    lulus(Nama,Matkul,Nilai):-
        kuliah(Nama,Matkul),
        nilai(Nama,Matkul,Nilai),
        Nilai="B".
  
    lulus(Nama,Matkul,Nilai):-
        kuliah(Nama,Matkul),
        nilai(Nama,Matkul,Nilai),
        Nilai="C".
  
    /*Tidak Lulus*/  
    tdk_lulus(Nama,Matkul,Nilai):-
        kuliah(Nama,Matkul),
        nilai(Nama,Matkul,Nilai),
        Nilai="D".
  
    tdk_lulus(Nama,Matkul,Nilai):-
        kuliah(Nama,Matkul),
        nilai(Nama,Matkul,Nilai),
        Nilai="E".
  
    /*Nama Seluruh Mahasiswa*/
    mhs(X):-
        kuliah(X,"Knowledge Management System");
        kuliah(X,"Expert System");
        kuliah(X,"Sistem Pendukung Keputusan").


GOAL:


1.  kuliah(Nama,”Knowledge Management System”)
    
     Hasil:

     Nama=andi
     Nama=budi
     Nama=cindy
     Nama=dedi
     Nama=edi


2.  tdk_lulus(Nama,Matkul,Nilai)

     Hasil:

     Nama=budi, Matkul=Knowledge Management System, Nilai=D
     Nama=heri, Matkul=Expert System, Nilai=D
     Nama=kelli, Matkul=Sistem Pendukung Keputusan, Nilai=D
     Nama=feri, Matkul=Expert System, Nilai=E
     Nama=leli, Matkul=Sistem Pendukung Keputusan, Nilai=E


3.  lulus(Nama,Matkul,Nilai)

     Hasil:

     Nama=andi, Matkul=Knowledge Management System, Nilai=A
     Nama=geri, Matkul=Expert System, Nilai=A
     Nama=neli, Matkul=Sistem Pendukung Keputusan, Nilai=A
     Nama=oli, Matkul=Sistem Pendukung Keputusan, Nilai=A
     Nama=dedi, Matkul=Knowledge Management System, Nilai=B
     Nama=iri, Matkul=Expert System, Nilai=B
     Nama=meli, Matkul=Sistem Pendukung Keputusan, Nilai=B
     Nama=cindy, Matkul=Knowledge Management System, Nilai=C
     Nama=edi, Matkul=Knowledge Management System, Nilai=C
     Nama=jeri, Matkul=Expert System, Nilai=C


4.  matkul(Matkul)

     Hasil:

     Matkul=Knowledge Management System
     Matkul=Expert System
     Matkul=Sistem Pendukung Keputusan


5.  mhs(Nama)

     Hasil:

     Nama=andi
     Nama=budi
     Nama=cindy
     Nama=dedi
     Nama=edi
     Nama=feri
     Nama=geri
     Nama=heri
     Nama=iri
     Nama=jeri
     Nama=kelli
     Nama=leli
     Nama=meli
     Nama=neli
     Nama=oli