Script Prolog

Mungkin script ini dapat membantu dalam mengerjakan tugas.

Script Mencari Luas Segitiga

luas:-
write('*****luas segitiga*****'),nl,
write('masukkan nilai alas:'),read(A),nl,
write('masukkan nilai tinggi:'),read(B),nl,
C is 0.5*A*B,
write('luas:'),write(C),nl.



Script Membuat Menu

menu:-
write('*****MENU*****'),nl,
write('1. Biodata'),nl,
write('2. Luas Segitiga'),nl,
write('3. Keluar'),nl,
write('MASUKKAN PILIHAN :'),read(PIL),nl,

( PIL =1,nl,
write('*****BIODATA*****'),nl,
write('Masukkan nama anda:'),read(A),nl,
write('Masukkan NPM anda:'),read(B),nl,
write('Masukkan kelas anda:'),read(C),nl,
write('---------------------------'),nl,
write('nama saya'),write(A),nl,
write('NPM saya'),write(B),nl,
write('kelas saya'),write(C),nl,

menu;
PIL =2,nl,
write('*****LUAS SEGITIGA*****'),nl,
write('Masukkan Nilai Alas:'),read(D),nl,
write('Masukkan Nilai Tinggi:'),read(E),nl,
F is 0.5*D*E,
write('Luas:'),write(F),nl,

menu;
PIL =3,nl,
write('Terima Kasih'),nl).