menu:- nl,nl,
write('================'),nl,
write('======MENU======'),nl,
write('================'),nl,
write('1.Biodata'),nl,
write('2.Luas
Segitiga'),nl,
write('3.Keluar'),nl,
write('================'),nl,
write('Pilihan
[1..3] : '),read(Pil),nl,nl,
(
Pil=1,
write('Nama :
'),read(X),
write('NPM : '),read(Y),
write('Kelas :
'),read(Z),
nl,write('============'),nl,
write('nama :
'),write(X),nl,
write('NPM :
'),write(Y),nl,
write('Kelas :
'),write(Z),nl,
nl,write('============'),nl,
menu;
Pil=2,
write('Alas :
'),read(A),
write('Tinggi :
'),read(T),
L is A*T/2,
write('Luas
Segitiga : '),write(L),
nl,write('============'),nl,
menu;
Pil=3,
write('Terima
Kasih'),nl,
menu
).
0 komentar:
Posting Komentar