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)