LA Prolog III

/* Program Menu */
menu:-nl,
write('------ MENU ------'),nl,
write(' 1. Biodata '),nl,
write(' 2. Aritmatika '),nl,
write(' 3. Kondisi '),nl,
write(' 4. Exit'),nl,
write('-----------------'),nl,
write('Pilihan [1..3] : '),read(Pil),
(
    Pil = 1 ->
    write('---- BIODATA ----'),nl,
    write('Masukan Nama  : '),read(Nama),
    write('Masukan Kelas : '),read(Kelas),
    write('Masukan NPM   : '),read(NPM),

    write('Nama Saya '),write(Nama),
    write('Kelas Saya '),write(Kelas),
    write('NPM Saya '),write(NPM),
    menu;

    Pil = 2 ->
    write('---- ARITMATIKA ----'),nl,
    write('Masukan Jari-Jari : '),read(Jari),

    Volume is (4*(3.14*Jari*Jari*jari))/3,

    write('Volume Tabung : '),write(Volume),
    menu;

    Pil = 3 ->
    write('---- KONDISI ----'),nl,
    write('Nilai A : '),read(A),
    write('Nilai B : '),read(B),
    write('Nilai C : '),read(C),

    (
         (A>B) , (A>C) -> write(A),write(' Adalah bilangan terbesar');
         (B>C) -> write(B),write(' Adalah bilangan terbesar');
         write(C),write(' Adalah bilangan terbesar')
    ),
    menu;

    Pil = 4 -> write('Sayonara~ ^0^');

    write('Pilihan hanya 1..3 !!!'),
    menu
).

LOGIKA PROGRAM
Program diatas adalah contoh program menu pada prolog dimana menu pada program diatas adalah :

1. Program Biodata
Jika kita memilih 1 maka kita akan masuk ke program biodata dimana kita hanya disuruh memasukan nama, kelas, dan npm kemudian program akan langsung menampilkannya.

2. Program Aritmatika
Pada program aritmatika ini kita akan mencari volume Tabung dimana kita hanya memasukan jari-jari pada saat menu 2 di pilih.

3. Program Kondisi
Program kondisi ini adalah program perbandingan 3 angka dimana program akan mencari angka terbesar diantara angka yang kita masukan.

4. Exit
Digunakan untuk menyelesaikan program atau keluar dari program.

Selain itu pilihan menu diatas program akan mencetak "Pilihan hanya 1..3 !!!".

OUTPUT