Untuk Membuat scrip ini saya menggunaka aplikasi dri borland, yaitu BORLAND TURBO PROLOG 2.0
Jika tidak punya bisa download di bawah ini
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 :
Related Post :
0 Comments
