klik gambar untuk memperbesar yah. :)
sukses buat ujian besok.
sukses buat ujian besok.

hasilnya ada di bawah sini. :)
klik spoilernya..
klik spoilernya..
HASIL:
menu:-nl,
write(‘menu’),nl,
write(’1.Luas Segitiga’),nl,
write(’2.Pangkat’),nl,
write(’3.Exit’),nl,
write(‘Masukkan Pilihan Anda[1..3] : ‘),read(Q),
(
Q=1,nl,
write(‘luas Segitiga’),nl,
write(‘alas:’),
read(Alas),
write(‘input tinggi:’),read(Tinggi),
Luas is Alas * Tinggi/2,
write(‘Luasnya : ‘),write(Luas),
menu;
Q=2,
write(‘masukkan nilai A:’),
read(A),nl,
write(‘masukkan nilai B:’),
read(B),nl,
C is A ** B,
write(‘Hasil dari A pangkat B adalah ‘),write(C),
menu;
Q=3,
write(‘_exit_’),nl).