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

Informasi adjah,.,..,.,.

Jawaban TBA dan SBDL

ada di di alamat :

http://www.ziddu.com/download/15353708/SKPLtikebola.doc.html

Templete SKPL

Ini contoh Bagan'na kawan-kawan tinggal Edit aja yup.,.,.,.,


kalau udah jgn lupa Ane minta Copy'na yup.,.,.,.,.hehehehehehhe
Download ja yup disini :

http://www.ziddu.com/download/15333096/template-skpl.doc.html

WELCOME TO CLASS INFORMATION TECHNOLOGY EMPLOYEES BLOG

Selamat datang kawan-kawan T.informatika kelas Karyawan,.,.,.,

Tujuan saya Buat Blog ini agar kita bisa berbagi Informasi mengenai perkuliahan di UNMA.
Bagi yang punya Inspirasi boleh langsung Komentar di Kolom yang sudah disediakan, atau bergabung di Blog saya.,.,.,.

Sebelum dan sesudahnya saya Ucapkan terimakasih,..,.,,.