LA Prolog II

/* Program Menghitung umur */

tuamuda:-nl,
write('Masukan Nama        : '), read(Nama),
write('Masukan Tahun Lahir : '), read(Lahir),

Umur is (2013 - Lahir),

write('Nama Saya '), write(Nama),nl,
write('Umur Saya '), write(Umur),nl,
write('Saya adalah '),
(
     Umur > 49 -> write('Orang Tua');
     Umur > 20 -> write('Dewasa');
     Umur > 12 -> write('Remaja');
     Umur > 5 -> write('Anak Kecil');
     write('Bayi')
).

LOGIKA PROGRAM
Program ini adalah program sederhana kondisi dimana kondisi pada program ini terletak pada Umur
yang mana kondisinya adalah sebagai berikut :

• Jika Umur lebih dari 49 maka hasil outputnya adalah Orang Tua
• Jika Umur lebih dari 20 maka hasil outputnya adalah Dewasa
• Jika Umur lebih dari 12 maka hasil outputnya adalah Remaja
• Jika Umur lebih dari 5 maka hasil outputnya adalah Anak Kecil
• Selain kondisi diatas maka hasil outputnya adalah Bayi

OUTPUT

-----------------------------------------------------------------------------------------------
/* Contoh Program silsilah keluarga */
/* Fakta */
menikah(yudha,nina).
menikah(rico,dina).
menikah(yudi,yani).
menikah(rifki,ajeng).

anak(rico,yudha).
anak(rudi,yudha).
anak(rifki,yudha).

anak(budi,rico).
anak(danang,rico).
anak(rani,rico).

anak(ani,rudi).
anak(edi,rudi).
anak(reni,rudi).

anak(anto,rifki).
anak(nana,rifki).
anak(doni,rifki).

jkel(yudha,pria).
jkel(riko,pria).
jkel(rudi,pria).
jkel(rifki,pria).
jkel(budi,pria).
jkel(dadang,pria).
jkel(edi,pria).
jkel(anto,pria).
jkel(doni,pria).
jkel(nina,wanita).
jkel(dina,wanita).
jkel(yani,wanita).
jkel(ajeng,wanita).
jkel(rani,wanita).
jkel(ani,wanita).
jkel(reni,wanita).
jkel(nana,wanita).

/* Aturan */
ayahibu(A,B,C):-anak(A,B),menikah(B,C).
kakeknenek(A,D,E):-anak(A,B),-anak(B,D),-menikah(D,E).

LOGIKA PROGRAM
Fakta adalah data pada prolog, sebagai contoh :
menikah(yudha,nina).
Fakta ini menyatakan bahwa yudha menikah dengan nina. menikah menunjukan relasi antara yudha dan nina. Penulisan relasi tidak baku, bebas tergantung pada pembuat program.

Contoh lain :
anak(rico,yudha).
Fakta ini meyatakan bahwa rico adalah anak dari yudha. anak menunjukan relasi antara rico dan  yudha.

Aturan merupakan suatu pernyataan yang menunjukkan bagaimana fakta-fakta yang ada saling berinteraksi satu dengan yang lain untuk membentuk suatu kesimpulan.

ayahibu(A,B,C):-anak(A,B),menikah(B,C).
Dijelaskan bahwa aturan (rule) yang berlaku adalah statment akan bernilai benar, jika dua kondisi tersebut benilai benar.

OUTPUT

P.S : B dan C pada output diatas adalah sebuah variable jadi anda bisa menggantinya dengan apa saja, contoh : X dan Y, M dan N (^_^)