Program ini saya buat di BORLAND TURBO PROLOG 2.0 bisa di download di bawah ini
Scrip Code :
predicates
deteksi(integer)
clauses
deteksi(X) :-
X > 0,
write("Bilangan Positif");
X < 0,
write("Bilangan Negatif").
goal
write("Masukkan Nilai : "), readint(X),
deteksi(X).
deteksi(integer)
clauses
deteksi(X) :-
X > 0,
write("Bilangan Positif");
X < 0,
write("Bilangan Negatif").
goal
write("Masukkan Nilai : "), readint(X),
deteksi(X).
Output :
Related Post :