Bercahaya Akan Iman: October 2014

SOAL

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
    nama = symbol
    mk,nilai = string
PREDICATES
    mata_kuliah(mk)
    kuliah(nama,mk)
    nilai(nama,mk,nilai)
    tidak_lulus(nama,mk,nilai)
    lulus(nama,mk,nilai)
CLAUSES
    /*nama mata kuliah*/
    mata_kuliah("Knowledge Management System").
    mata_kuliah("Expert System").
    mata_kuliah("Sistem Pendukung Keputusan").

    /*nama mahasiswa dan mata kuliah*/
    kuliah(andi,kms).
    kuliah(budi,kms).
    kuliah(cindy,kms).
    kuliah(dedi,kms).
    kuliah(edi,kms).
    kuliah(feri,expert_system).
    kuliah(geri,expert_system).
    kuliah(heri,expert_system).
    kuliah(iri,expert_system).
    kuliah(jeri,expert_system).
    kuliah(kelli,spk).
    kuliah(leli,spk).
    kuliah(meli,spk).
    kuliah(neli,spk).
    kuliah(oli,spk).

    /*Nilai*/
    nilai(andi,kms,"A").
    nilai(budi,kms,"D").
    nilai(cindy,kms,"C").
    nilai(dedi,kms,"B").
    nilai(edi,kms,"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,spk,"D").
    nilai(leli,spk,"E").
    nilai(meli,spk,"B").
    nilai(neli,spk,"A").
    nilai(oli,spk,"A").

    /*mahasiswa yang tidak lulus*/
    tidak_lulus(Nama,Mk,Nilai):-
        kuliah(Nama,Mk),
        nilai(Nama,Mk,Nilai),
        Nilai="D".

    tidak_lulus(Nama,Mk,Nilai):-
        kuliah(Nama,Mk),
        nilai(Nama,Mk,Nilai),
        Nilai="E".

    /*mahasiswa yang lulus*/
    lulus(Nama,Mk,Nilai):-
        kuliah(Nama,Mk),
        nilai(Nama,Mk,Nilai),
        Nilai="A".

    lulus(Nama,Mk,Nilai):-
        kuliah(Nama,Mk),
        nilai(Nama,Mk,Nilai),
        Nilai="B".

    lulus(Nama,Mk,Nilai):-
        kuliah(Nama,Mk),
        nilai(Nama,Mk,Nilai),
        Nilai="C".

GOAL:

1. Nama mahasiswa yang mengikuti mata kuliah knowledge management system

     Goal : kuliah(Nama,kms)

     Hasil:

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

2. Nama mahasiswa yang tidak lulus

     Goal : tidak_lulus(Nama,Mk,Nilai)

     Hasil:

     Nama=budi, Mk=kms, Nilai=D
     Nama=heri, Mk=expert_system, Nilai=D
     Nama=kelli, Mk=spk, Nilai=D
     Nama=feri, Mk=expert_system, Nilai=E
     Nama=leli, Mk=spk, Nilai=E

3. Nama mahasiswa yang lulus

     Goal : lulus(Nama,Mk,Nilai)

     Hasil:

     Nama=andi, Mk=kms, Nilai=A
     Nama=geri, Mk=expert_system, Nilai=A
     Nama=neli, Mk=spk, Nilai=A
     Nama=oli, Mk=spk, Nilai=A
     Nama=dedi, Mkl=kms, Nilai=B
     Nama=iri, Mk=expert_system, Nilai=B
     Nama=meli, Mk=spk, Nilai=B
     Nama=cindy, Mk=kms, Nilai=C
     Nama=edi, Mk=kms, Nilai=C
     Nama=jeri, Mk=expert_system, Nilai=C

4. Seluruh mata kuliah yang diajarkan

     Goal : mata_kuliah(Matkul)

     Hasil:

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

5. Seluruh nama mahasiswa yang ada

     Goal : kuliah(Nama,kms) or kuliah(Nama,expert_system) or kuliah(Nama,spk)

     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

BUATLAH PROGRAM PROLOG DARI NARASI BERIKUT :

PADA SEMESTER 7 ADA 15 MAHASISWA DI STMIK POTENSI UTAMA TERDAPAT MASING-MASING 5 MAHASISWA YANG MENGAMBIL MATA KULIAH

KNOWLEDGE MANAGEMENT SYSTEM(ANDI,BUDI,CINDY,DEDI,EDI)
EXPERT SYSTEM(FERI,GERI,HERI,IRI, JERI)
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

NAMA MAHASISWA YANG MENGIKUTI MATA KULIAH KNOWLEDGE MANAGEMENT SYSTEM
NAMA MAHASISWA YANG TIDAK LULUS
NAMA MAHASISWA YANG LULUS
SELURUH MATA KULIAH YANG DIAJARKAN
SELURUH NAMA MAHASISWA YANG ADA

JAWABANYA

Program dalam visual Prolognya adalah
PREDICATES
nondeterm kms(symbol,symbol)
nondeterm es(symbol,symbol)
nondeterm spk(symbol,symbol)
nondeterm kul(symbol,symbol)
nondeterm mtkul(symbol,symbol)
lulus(symbol)
tidaklulus(symbol)
matakul(symbol)

CLAUSES
lulus(A).
lulus(B).
lulus(C).
tidaklulus(D).
tidaklulus(E).

kul(andi,lulus).
kul(budi,tidaklulus).
kul(cindy,lulus).
kul(dedi,lulus).
kul(edi,lulus).
kul(feri,tidaklulus).
kul(geri,lulus).
kul(heri,tidaklulus).
kul(iri,lulus).
kul(jeri,lulus).
kul(kelli,tidaklulus).
kul(leli,tidaklulus).
kul(meli,lulus).
kul(neli,lulus).
kul(oli,lulus).

kms(andi,lulus).
kms(budi,tidaklulus).
kms(cindy,lulus).
kms(dedi,lulus).
kms(edi,lulus).

es(feri,tidaklulus).
es(geri,lulus).
es(heri,tidaklulus).
es(iri,lulus).
es(jeri,lulus).

spk(kelli,tidaklulus).
spk(leli,tidaklulus).
spk(meli,lulus).
spk(neli,lulus).
spk(oli,lulus).

matakul(kms).
matakul(es).
matakul(spk).

mtkul(andi,kms).
mtkul(budi,kms).
mtkul(cindy,kms).
mtkul(dedi,kms).
mtkul(edi,kms).

mtkul(feri,es).
mtkul(geri,es).
mtkul(heri,es).
mtkul(iri,es).
mtkul(jeri,es).

mtkul(kelli,spk).
mtkul(leli,spk).
mtkul(meli,spk).
mtkul(neli,spk).
mtkul(oli,spk).

GOAL NYA: