Membuat Menu pada Prolog !

Berikut adalah kodingan untuk membuat suatu “menu” pada Prolog, sebagai contoh saya akan membuat menu yang berisikan menu biodata, menu mencari luas segitiga, menu mencari suatu grade nilai, dan menu exit.

Berikut kodingannya :

menu:- nl,nl,

write('======MENU======'),nl,

write('================'),nl,

write('1.Biodata'),nl,

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

write('3.Grade Nilai'),nl,

write('4.Keluar'),nl,

write('================'),nl,

write('Masukkan Pilihan : '),read(Pilih),nl,nl,

(

Pilih=1,

write('=====BIODATA====='),nl,

write('Masukkan Nama : '),read(O),

write('Masukkan NPM : '),read(P),

write('Masukkan Kelas : '),read(Q),nl,

write('================='),nl,

write(' nama saya : '),write(O),

write(' NPM saya : '),write(P),

write(' Kelas saya : '),write(Q),

menu;

Pilih=2,

write('==Luas Segitiga=='),nl,

write('Alas : '),read(A),

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

L is A*T/2,

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

menu;

Pilih=3,

write('==Grade Nilai=='),nl,

write('Masukkan Nilai : '),read(Nil),

(Nil>50 ->write('LULUS');

write('TIDAK LULUS')),

menu;

Pilih=4,

write('Terima Kasih'),nl,

menu

).

Jika telah selesai, jalankan Prolog, maka akan tampil menu seperti berikut :

Jika sudah berhasi, kita tinggal menginputkan menu yang kita inginkan.