Listing Program Menu Prolog

menu:-nl,nl,

write('@@@@@@@@@@@@@@@@'),nl,

write('     MENU       '),nl,

write('@@@@@@@@@@@@@@@@'),nl,

write('1.BIODATA       '),nl,

write('2,LUAS SEGITIGA '),nl,

write('3.EXIT          '),nl,

write('@@@@@@@@@@@@@@@@'),nl,

write('Pilihan Anda ???'),

read(PIL),

(PIL=1,nl,

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

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

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

write('@@@@@@@@@@@@@@@@@'),nl,

write('Masukkan Nama Adalah : '),write(Nama),nl,

write('Masukkan NPM Adalah  : '),write(NPM),nl,

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

menu;

PIL=2,nl,

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

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

L is A * T / 2,

write('Luas Segitiga adalah '),write(L),nl,

menu;

PIL=3,nl,

 OUTPUT: 

For help, use ?- help(Topic). or ?- apropos(Word).

1 ?- menu.


@@@@@@@@@@@@@@@@
     MENU      
@@@@@@@@@@@@@@@@
1.BIODATA      
2,LUAS SEGITIGA
3.EXIT         
@@@@@@@@@@@@@@@@
Pilihan Anda ???1. 

Masukkan Nama  : novia.
Masukkan NPM   : 13109457.
Masukkan Kelas : ka25.

@@@@@@@@@@@@@@@@@
Masukkan Nama Adalah : novia
Masukkan NPM Adalah  : 13109457
Masukkan Kelas Adalah: ka25


@@@@@@@@@@@@@@@@
     MENU      
@@@@@@@@@@@@@@@@
1.BIODATA      
2,LUAS SEGITIGA

3.EXIT        
@@@@@@@@@@@@@@@@
Pilihan Anda ???2.

Masukkan Alas Segitiga   : 12.
Masukkan Tinggi Segitiga : 20.
Luas Segitiga adalah 120

@@@@@@@@@@@@@@@@
     MENU      
@@@@@@@@@@@@@@@@
1.BIODATA      
2,LUAS SEGITIGA
3.EXIT         
@@@@@@@@@@@@@@@@
Pilihan Anda ???3.

Terimakasih!! Sampai Berjumpa Lagi ^_^


true.