Program Menu Pada Prolog

Program Menu Pada Prolog

menu:-nl,
write('menu'),nl,
write('1.luas alas limas segiempat'),nl,
write('2.volume limas segiempat'),nl,
write('3.keluar'),nl,
write('masukan pilihan :'),read(PIL),nl,
PIL=1,nl,
write('luas alas limas segiempat'),nl,
write('sisi: '),read(S),nl,
L is S*S,
write('luas alas limas segiempat= '),writeln(L),nl,
menu;
PIL=2,nl,
write('volume limas segiempat'),nl,
write('luas alas: '),read(LA),nl,
write(‘tinggi: ‘),read(T),nl,
V is 1/3*LA*T,
write('volume limas segiempat= '),writeln(V),nl,
menu;
PIL=3,nl,
write('selsai'),nl).

Fungsi :

1. nl (NewLine) : untuk membuat baris baru 
2. write : untuk mencetak pada output.