Program Menu Pada Prolog

Siang bloggers.

Saat ini saya akan memposting kembali tentang bahasa pemrograman logika yang sudah saya pelajari, yaitu SWI-Prolog. Program menu adalah hanya sedikit contoh kecil saja yang mungkin bisa dijadikan bahan referensi bagi teman-teman dalam belajar Prolog. Ya, seperti ini programnya :

Itulah penampakan hasil eksekusi programnya. Ingin tahu source code-nya? Dibawah ini sudah saya sediakan beserta dengan logika programnya. Sekedar info saja, untuk mengcompile file prolog yang kalian perlu lakukan hanya membuka software SWI-Prolognya, lalu pilih File-Consult-Pilih file Prolog kalian. Jika tidak ada error, maka kalian bisa langsung mengeksekusi program.

Logika Program :

menu:-  Merupakan nama variabel yang mewakili keseluruhan program yang ada dipanggil pada console SWI-Prolog dengan menuliskan menu.
Contoh :
?-menu.
write ( ),  Syntax ini digunakan untuk mencetak variabel string yang diapit dengan tanda
petik tunggal (') nl, Atau lebih dikenal newline merupakan perintah untuk berpintah menuju baris yang baru.
read ( ),  Syntax ini digunakan untuk memberikan nilai inputan pada variabel yang
diberikan didalam tanda kurung.
Pi is 3.14,  Diberikan nilai awal terhadap variable Pi = 3.14.
L is Pi*J*J,  Ini sama saja seperti L = Pi*J*J
(PIL=1,nl,  Prinsipnya sama dengan select case pada QBasic, jika kita menekan 1, akan
memproses blok program didalamnya.
.
.
PIL=2,nl,        
.
.
PIL=3,nl,
.
.      
Kurang lebih seperti itu.