Praktikum 1 Kecerdasan buatan

download borland turbonya dan materinya dahulu
turbo : http://www.4shared.com/folder/uu6Y2HTg/borland_turbo_prolog.html
modul : http://www.4shared.com/office/RCUBcQgvba/Kecerdasan_Buatan.html

ketik coding ini pada prolog :

/* Program Silsilah */
domains
name = symbol
predicates
ayah(name,name)
setiaporang
clauses
ayah(slamet,amin).
ayah(slamet,anang).
ayah(amin,badu).
setiaporang if
ayah(X,Y),
write(X," is ",Y,"'s ayah\n") and
fail.