?- menu.
menu :-
write("-MENU-"), nl,
write("1. Penjumlahan"), nl,
write("2. Pengurangan"), nl,
write("3. Perkalian"), nl,
write("4. Pembagian"), nl,
write("5. Exit"), nl,
write("Pilihan Anda : "), read(Pil), write(Pil), nl,
(Pil = 1, nl,
write("Nilai A :"), read(A), write(A), nl,
write("Nilai B :"), read(B), write(B), nl,
Nilc is A+B,
write("Hasil A+B ="), write(Nilc), nl, nl,
menu;
Pil = 2, nl,
write("Nilai A :"), read(A), write(A), nl,
write("Nilai B :"), read(B), write(B), nl,
Nilc is A-B,
write("Hasil A-B ="), write(Nilc), nl, nl,
menu;
Pil = 3, nl,
write("Nilai A :"), read(A), write(A), nl,
write("Nilai B :"), read(B), write(B), nl,
Nilc is A*B,
write("Hasil A*B ="), write(Nilc), nl, nl,
menu;
Pil = 4, nl,
write("Nilai A :"), read(A), write(A), nl,
write("Nilai B :"), read(B), write(B), nl,
Nilc is A/B,
write("Hasil A/B ="), write(Nilc), nl, nl,
menu;
Pil = 5, nl,
write("Finished"), nl).
?- menu. ?- ini adalah statement awal dari
seluruh program strawberry prolog. Setelah itu ketik
menu :- yang artinnya kita akan
membuat sebuah menu, dan dilanjutkn mengetik write("-MENU-"), nl,
write("1. Penjumlahan"), nl, write("2. Pengurangan"), yang artinya kita menulis sebuah kalimat Menu, dan nl, adalah
sebuah new line atau garis baru, jika kita menginginkan output nya tercetak
dibawah kalimat sebelumnya, maka ketik nl,. Setelah itu perintah read(Pil), write(Pil), nl, maksud nya adalah kita
menulis sebuah pilihan dan membaca sebuah pernyataan pilihan. (Pil = 1, nl, artinya jika pilihan yang kita pilih adalah nomer 1, maka write("Nilai A :"), read(A), write(A), nl, maksud nya di Output
akan tetulis Nilai A: kemudian nilai A yang di input akan dibaca dengan input
A, dan kemudian ditulis(dlam output A).Sama juga hal nya dengan write("Nilai B :"), read(B), write(B), nl,. Kemudian perintah Nilc is A+B, maksudnya adalah Nilai c
adalah hasil penjumlahan antara nilai input A dengan nilain input B, kemudian
perintah write("Hasil A+B ="), artinya A+B= akan
tertulis di output, dan write(Nilc), nl, nl, hasil dari penjumlahan a dan b akan ditulis. Nl, nl, maka akan
membuat new line sebanyak 2 kali, atau enter 2 kali.
(Pil = 2, nl, artinya jika pilihan
yang kita pilih adalah nomer 2 yaitu pengurangan, maka write("Nilai A :"), read(A), write(A), nl, maksud nya di Output
akan tetulis Nilai A: kemudian nilai A yang di input akan dibaca dengan input
A, dan kemudian ditulis(dlam output A).Sama juga hal nya dengan write("Nilai B :"), read(B), write(B), nl,. Kemudian perintah Nilc is A-B, maksudnya adalah Nilai c
adalah hasil pengurangan antara nilai input A dengan nilain input B, kemudian
perintah write("Hasil A-B ="), artinya A-B= akan
tertulis di output, dan write(Nilc), nl, nl, hasil dari pengurangan a dan b akan ditulis. Nl, nl, maka akan
membuat new line sebanyak 2 kali, atau enter 2
Kodingan
yang selanjutnya pun sama maksud nya, hanya berbeda operator saja.
Kemudian
menu;
Pil = 5, nl, menu yang kita pilih adalah menu nomer 5,
yaitu menu exit, maka perintah nya untuk keluar dari program adalah write("Finished"), nl).
ini output nya
