CONTOH PROGRAM PROLOG MENU

I.MENU

menu:- nl,nl,

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

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

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

write('1.Biodata'),nl,

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

write('3.Keluar'),nl,

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

write('Pilihan [1..3] : '),read(Pil),nl,nl,

(

Pil=1,

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

write('NPM : '),read(Npm),

write('Kelas : '),read(Kelas),

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

write('nama : '),write(Nama),nl,

write('NPM : '),write(Npm),nl,

write('Kelas : '),write(Kelas),nl,

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

menu;

Pil=2,

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

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

L is A*T/2,

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

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

menu;

Pil=3,

write('Terima Kasih'),nl,

menu

).

PENJELASAN :

nl berfungsi sama dengan tombol enter

WRITE berfungsi masukan dan keluaran (I/O atau Input/Output) dalam Prolog

READ digunakan untuk menerima masukan dari keyboard

1) Dalam hal ini write mencetak write('================'),nl,write('======MENU======'),nl,write('================'),nl,

write('1.Biodata'),nl,write('2.Luas Segitiga'),nl,write('3.Keluar'),nl,write('================'),nl,

dan mana perintah write write ini ('Pilihan [1..3] : '),read(Pil),nl,nl. program meminta inputan sesuai yang telah di cetak yaitu dari nomor 1 sampai 3 lalu selanjutnya read akan menerima dan membaca input tersebut

2) Pil=1,

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

write('NPM : '),read(Npm),

write('Kelas : '),read(Kelas),

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

write('nama : '),write(Nama),nl,

write('NPM : '),write(Npm),nl,

write('Kelas : '),write(Kelas),nl,

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

menu;

Lalu selanjutnya pada perintah di atas menjelaskan pilihan ke 1 yaitu dengan perintah Pil=1,lalu pada write('Nama : '),read(Nama), wirte mencetak kata Nama dan meminta inputnya lalu di terima dan di baca oleh read,pada NPM dan Kelas fungsinya sama dengan Nama. Lalu pada perintah nl,write('============'),nl, berfungsi memberikan baris ke bawah dan mencetak tanda ===. Selanjutnya pada : 

write('nama : '),write(Nama),nl,

write('NPM : '),write(Npm),nl,

write('Kelas : '),write(Kelas),nl, menjelaskan bahwa write mengoutput hasil yang di input untuk nama/NPM/Kelas dan selanjutnya di cetak lagi hasilnya dengan perintah write. Lalu mencetak lagi nl,write('============'),nl, tanda =====,dan kembali lagi ke menu dengan perintah menu;

3) Pil=2,

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

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

L is A*T/2,

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

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

menu;

Kemudian pada pilihan ke 2 write mencetak kata Alas dan meminta input untutk data Alas tersebut,dan jika telah di input selanjutnya read menerima dan membaca dengan variable A, Lalu sama write mencetak kata  tapi Tinggi dan meminta input untutk data Tinggi  tersebut,dan jika telah di input selanjutnya read menerima dan membaca dengan variable T, lalu selanjutnya data yang di input tersebut di input dengan perintah         L is A*T/2, yang maksudnya Luas sama dengan Alas di kali Tinggi dan di bagi 2. selanjutnya pada perintah ini write('Luas Segitiga : '),write(L), hasil perhitungan tersebut di cetak. Setelah itu mencetak === dan kembali ke menu.

4) Pil=3,

    write('Terima Kasih'),nl,

    menu

    Kemudian jika memilih pilihan ke 3 maka write akan mencetak kata Terima Kasih,dan lalu kembali ke 

    menu.