PRAKTIKUM PIB (PROLOG)

Membuat Program Menu Makanan menggunakan Turbo Prolog. :D
- Buka program Turbo Prolog
- tekan tombol "Alt+F"
- pilih New file
- lalu ketik kode dibawah ini.
===================================================================================
Predicates
mpokok(symbol,symbol)
lauk(symbol,symbol)


menu(symbol,symbol,symbol,symbol,symbol,symbol,symbol,symbol)
tampilmenu(symbol,symbol,symbol,symbol)
sayur(symbol,symbol)
buah(symbol,symbol)
goal
makewindow(1,11,11,"Menu",1,1,20,75),
write("jenis makanan pokok:"),readln(JP),
write("jenis lauk:"),readln(JL),
write("jenis sayur:"),readln(JS),
write("jenis buah:"),readln(JB),
tampilmenu(JP,JL,JS,JB).

clauses
mpokok(nasi,nasiputih).
mpokok(nasi,timbel).
mpokok(nasi,nasigoreng).
mpokok(roti,rotitawar).
mpokok(roti,sandwich).
mpokok(umbi,kentang).
mpokok(umbi,gandum).
mpokok(umbi,singkong).
lauk(ikan,ikanmasgoreng).
lauk(ikan,pepesikanmas).
lauk(ikan,osengtongkongkol).
lauk(telor,matasapi).
lauk(telor,dadar).
lauk(telor,fuyunghai).
lauk(telor,omlet).
sayur(kuah,sop).
sayur(kuah,asem).
sayur(kuah,nangka).
sayur(kuah,bayam).
sayur(kering,tumis_kangkung).
sayur(kering,bihun)
sayur(kering,oseng_kacang_panjang).
sayur(kering,acar_goreng).
buah(jeruk,jeruk_bali).
buah(jeruk,jeruk_mandarin).
buah(jeruk,jeruk_sunkist).
buah(jambu,jambu_air).
buah(jambu,jambu_bangkok).
buah(jambu,jambu_klutuk).
pisang(pisang_ambon).
pisang(pisang_raja).
pisang(pisang_muli).
pisang(pisang_kapok).
menu(JnsPok,JnsLauk,JnsSayur,jnsBuah,P,L,S,B):-
mpokok(JnsPok,P),
lauk(JnsLauk,L),
sayur(JnsSayur,S),
buah(JnsBuah,B),
tampilanmenu(JP,JL,JS,JB):-
mpokok(JP,P),
lauk(JL,L),
sayur(JS,S),
buah(JB,B),
write(P," ",L," ",S," ",B),nl,fail.

==================================================================================
Bila ada syntak yg salah, harap memberikan komentar.....................
makasih, semoga bermanfaat,.,.,.,.,.,. :D