menu :-
write('-------MENU-------'),nl,
write('1. Luas Segitiga'),nl,
write('2. Volume Balok'),nl,
write('3. Volume Kubus'),nl,
write('4. EXIT'),nl,
write('Masukkan pilihan : '),
read(PIL), nl,
(PIL=1,nl,
write('Luas Segitiga'),nl,
write('Masukkan Alas : '),read(A),nl,
write('Masukkan Tinggi : '),read(T),nl,
L is A*T/2,
write('LUAS SEGITIGA : '),write(L),nl,
menu;
PIL=2,nl,
write('Volume Balok'),nl,
write('Masukkan Panjang :
'),read(P),nl,
write('Masukkan Lebar : '),read(L),nl,
write('Masukkan Tinggi : '),read(T),nl,
V is P*L*T,
write('VOLUME BALOK : '),write(V),nl,
menu;
PIL=3,nl,
write('Volume Kubus'),nl,
write('Masukkan Sisi : '),read(S),nl,
V is S*S,
write('VOLUME KUBUS : '),write(V),nl,
menu;
PIL=4,nl,
write('Makasih'),nl).
0 komentar:
Posting Komentar