no1
mahasiswa(gunadarma, ragil).
mahasiswa(gunadarma, ica).
mahasiswa(gunadarma, nanat).
mahasiswa(gunadarma, fathur).
—
no2
luas:-nl,
write(‘menghitung luas’),nl,
write(‘masukkan panjang: ‘), read(A),
write(‘masukkan lebar: ‘), read(B),
HASIL is(A*B),
write(‘luas persegi panjang adalah: ‘),
write(HASIL).
—
no3
darat(anjing).
darat(kucing).
darat(monyet).
darat(babi).
darat(kelinci).
udara(kenari).
udara(kacer).
udara(murai).
udara(merpati).
udara(beo).
laut(hiu).
laut(paus).
laut(gurita).
laut(lumba_lumba).
laut(lobster).
:- dynamic darat/1.
:- dynamic laut/1.
:- dynamic udara/1.
data:-
darat(X),
udara(X),
laut(X),
write(X).
—-
no 5
fib(0, 0).
fib(1, 1).
fib(N, Result):-
N > 1,
N1 is N – 1,
N2 is N – 2,
fib(N1, F1),
fib(N2, F2),
Result is F1 + F2.
Hasilnya :
%fib(5, X).
%X – 5