Program Prolog Menentukan Bilangan POSITIF/NEGATIF

Program ini saya buat di BORLAND TURBO PROLOG 2.0 bisa di download di bawah ini

BORLAND TURBO PROLOG 2.0

Pass : ilmu-unduh.blogspot.com

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).

Output :

Anda telah membaca artikel tentang Tips Prolog dan anda juga bisa menemukan artikel Tips Prolog ini dengan url https://ilmu-unduh.blogspot.com/2013/12/program-prolog-menentukan-bilangan.html. Anda boleh menyebarluaskan atau mengcopy artikel Tips Prolog ini jika memang bermanfaat bagi Anda, namun dengan catatan jangan lupa untuk mencantumkan link sumbernya.

12:41 AM  Unknown  No comments

Read More

Contoh Program Prolog Menentukan Umur (Goal Internal)

Untuk Membuat scrip ini saya menggunaka aplikasi dri borland, yaitu BORLAND TURBO PROLOG 2.0
Jika tidak punya bisa download di bawah ini

DOWNLOAD BORLAND TURBO PROLOG 2.0

Password : ilmu-unduh.blogspot.com

Scrip Program umur dengan GOAL internal :

predicates
umur(integer,symbol)

clauses
umur(X,Y) :-
X>49,
Y="Orang Tua";
X>20,
Y="Dewasa";
X>12,
Y="Remaja";
X>5,
Y="Anak-anak".


goal
write("Masukkan Nama Anda : "),
readln(Nama),
write("Tahun Lahir : "),
readint(X),
nl,
write("Nama Anda Adalah " ,Nama),
Umur=2013-X,
nl,
write("Umur Anda Sekarang Adalah ", Umur),
umur(Umur,Y),
nl,
write("Dan Anda Adalah ", Y).

Hasil Output :

Anda telah membaca artikel tentang Tips Prolog dan anda juga bisa menemukan artikel Tips Prolog ini dengan url https://ilmu-unduh.blogspot.com/2013/12/contoh-program-prolog-menentukan-umur.html. Anda boleh menyebarluaskan atau mengcopy artikel Tips Prolog ini jika memang bermanfaat bagi Anda, namun dengan catatan jangan lupa untuk mencantumkan link sumbernya.

12:02 AM  Unknown  No comments

Read More