Friday, November 4, 2016
Contoh Program Prolog Menentukan Umur Goal Internal
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).
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 :
Available link for download
