Membuat program list menu dengan prolog

Potongan Script Menu

menu :-
write(‘——-MENU——-’),nl,
write(’1. Biodata’),nl,
write(’2. Segitiga Angka’),nl,
write(’3. Segitiga Bintang’),nl,
write(’4. Luas Segitiga’),nl,
write(’5. Volume Balok’),nl,
write(’6. Volume Kubus’),nl,
write(’7. Keluar’),nl,
write(‘Masukkan pilihan : ‘), read(PIL), nl,

Potongan Script Pilihan Menu

menu;
PIL=2,nl,
write(‘Nilai perulangan Angka : ‘),read(A),loopa(A,1),
menu;
PIL=3,nl,
write(‘Nilai perulangan Bintang : ‘),read(A),loopc(A,1),
menu;
PIL=4,nl,
write(‘Luas Segitiga’),nl,
write(‘Masukkan Alas : ‘),read(A),nl,
write(‘Masukkan Tinggi : ‘),read(T),nl,
L is A*T/2,
write(‘LUAS SEGITIGA : ‘),write(L),nl,
menu;
PIL=5,nl,
write(‘Volume Balok’),nl,
write(‘Masukkan Panjang : ‘),read(P),nl,
write(‘Masukkan Lebar : ‘),read(L),nl,
write(‘Masukkan Tinggi : ‘),read(T),nl,
V is P*L*T,
write(‘VOLUME BALOK : ‘),write(V),nl,
menu;
PIL=6,nl,
write(‘Volume Kubus’),nl,
write(‘Masukkan Sisi : ‘),read(S),nl,
V is S*S,
write(‘VOLUME KUBUS : ‘),write(V),nl,
menu;
PIL=7,nl,
write(‘Makasih’),nl).

Cara Menjalankan

• Download file menu-prolog.pl
• Jalankan SWI-Prolog
• Menu File>Consult…
• Cari file menu-prolog.pl
• Setelah itu ketik perintah menu.
• Misalnya pilih menu 1. untuk pilih menu biodata
• Masukan untuk nama misalnya agus.
• Setiap akhir inputan diakhiri tanda titik

Download

http://www.4shared.com/file/0e0h32vH/menu-prolog.html

Sekian artikel dari saya semoga bermanfaat untuk teman-teman dan anda semua…aamiin

Depok, 19-10-2011

noname