Listing program KONVERSI.PRO
DOMAINS Rupiah, Dollar, Nilaitukar = real PREDICATES menu pilihan(integer) GOAL menu. CLAUSES menu :- makewindow(1,5,5,"KONVERSI MATA UANG",0,0,15,60), write("========MENU========\n"), write("\n1. Konversi Dollar -> Rupiah\n"), write("2. Konversi Rupiah -> DOllar\n"), write("3. Keluar\n"),nl, write("Masukkan Menu : "), readint(X), pilihan(X). pilihan(X) :- X>3, write("\nMenu tidak ada...!!"). pilihan(X) :- X<=0, write("menu tidak ada"). pilihan(1) :- clearwindow, write("======DOLLAR -> RUPIAH======\n\n"), write("Nilai Tukar $1 = Rp "), readreal(Nilaitukar), write("\n\nMasukan Nominal Uang = $ "), readreal(Dollar), Rupiah = Nilaitukar * Dollar, write("Nominal $ ",Dollar), write(" = Rp ",Rupiah), readchar(_), menu. pilihan(2) :- clearwindow, write("======RUPIAH -> DOLLAR======\n\n"), write("Nilai Tukar $1 = Rp "), readreal(Nilaitukar), write("\n\nMasukkan Nominal Uang = Rp "), readreal(Rupiah), Dollar = Rupiah / Nilaitukar, write("Nominal Rp ",Rupiah), write(" = $ ",Dollar), readchar(_), menu. pilihan(3) :- removewindow. |
Prinscreen
Menu utama
Menu Konversi Dollar -> Rupiah
Menu Konversi Rupiah -> Dollar
No comments:
Post a Comment