Menu Pada Prolog

Berikut adalah program membuat Menu pada Prolog. 

menu:- 

(awal mula membuat program)

write('Menu Masakan'),nl, 

(write: mencetak hasil di layar, nl: membuat baris baru)

write('1. Nasi Sisa + Air Putih'),nl, 

(write: mencetak hasil di layar, nl: membuat baris baru)

write('2. Nasi Putih + Es Tawar'),nl, 

(write: mencetak hasil di layar, nl: membuat baris baru)

write('3. Nasi Uduk + Es Teh'),nl, 

(write: mencetak hasil di layar, nl: membuat baris baru)

write('4. Luas Segitiga'),nl, 

(write: mencetak hasil di layar, nl: membuat baris baru)

write('5. Volume Tabung'),nl, 

(write: mencetak hasil di layar, nl: membuat baris baru)

write('6. Exit'),nl, 

(write: mencetak hasil di layar, nl: membuat baris baru)

write('Masukkan Pilihan Anda :'),read(PIL),nl, 

(write: mencetak hasil di layar, nl: membuat baris baru, read: mengambil data)

( 

(awal mula program)

PIL=1,nl, 

(PIL: case pilihan, nl: membuat baris baru)

write('Berapa Porsi :'),read(A),nl, 

(write: mencetak hasil di layar, nl: membuat baris baru, read: mengambil data)

HASIL is A*2500, 

(rumus dari hasil)

write('Nasi Sisa Seharga :'),write(HASIL),nl, 

(write: mencetak hasil di layar, nl: membuat baris baru)

menu; 

(pilihan selanjutnya)

PIL=2,nl, 

(PIL: case pilihan, nl: membuat baris baru)

write('Berapa Porsi :'),read(B),nl, 

(write: mencetak hasil di layar, nl: membuat baris baru, read: mengambil data)

TOTAL is B*5000, 

(rumus dari TOTAL)

write('Total Harga :'),write(TOTAL),nl, 

(write: mencetak hasil di layar, nl: membuat baris baru)

menu; 

(pilihan selanjutnya)

PIL=3,nl, 

(PIL: case pilihan, nl: membuat baris baru)

write('Berapa Porsi :'),read(C),nl, 

(write: mencetak hasil di layar, nl: membuat baris baru, read: mengambil data)

HARGA is C*6500, 

(rumus dari HARGA)

write('Total Harga :'),write(HARGA),nl, 

(write: mencetak hasil di layar, nl: membuat baris baru)

menu; 

(pilihan selanjutnya)

PIL=4,nl, 

(PIL: case pilihan, nl: membuat baris baru)

write('Luas Segitiga'),nl, 

(write: mencetak hasil di layar, nl: membuat baris baru)

write('Masukkan alas :'),read(AL),nl, 

(write: mencetak hasil di layar, nl: membuat baris baru, read: mengambil data)

write('Masukkan Tinggi :'),read(T),nl, 

(write: mencetak hasil di layar, nl: membuat baris baru, read: mengambil data)

L is AL*T/2, 

(rumus segitiga)

write('Luas Segitiga :'),write(L),nl, 

(write: mencetak hasil di layar, nl: membuat baris baru)

menu; 

(pilihan selanjutnya)

PIL=5,nl, 

(PIL: case pilihan, nl: membuat baris baru)

write('Volume Tabung'),nl, 

(write: mencetak hasil di layar, nl: membuat baris baru)

write('Masukkan jari-jari :'),read(J),nl, 

(write: mencetak hasil di layar, nl: membuat baris baru, read: mengambil data)

write('Masukkan Tinggi :'),read(TI),nl, 

(write: mencetak hasil di layar, nl: membuat baris baru, read: mengambil data)

V is 3.14*J*J*TI, 

(rumus volume tabung)

write('Volume Tabung :'),write(V),nl, 

(write: mencetak hasil di layar, nl: membuat baris baru)

menu; 

(pilihan selanjutnya)

PIL=6,nl, 

(PIL: case pilihan, nl: membuat baris baru)

write('EXIT'),nl 

(write: mencetak hasil di layar, nl: membuat baris baru)

). 

(menutup program)