RESPONSI PRAKTIKUM
KECERDASAN BUATAN
TRI WIJAYANTO
115410126
TI / S1
STIMIK AKAKOM
YOGYAKARTA
1. PROGRAM KE 1
DOMAINS
orang = string
PREDICATES
nondeterm anak(orang,orang)
nondeterm saudara_laki(orang,orang)
nondeterm saudara_perempuan(orang,orang)
nondeterm menikah(orang,orang)
nondeterm ayah(orang,orang)
nondeterm ibu(orang,orang)
nondeterm kakek(orang,orang)
CLAUSES
anak("Cahaya","Doni").
anak("Doni","Fajar").
saudara_laki("Adi","Fajar").
saudara_perempuan("Lina","Budi").
menikah("Fajar","Ani").
menikah("Doni","Lina").
ayah(A,B):-anak(B,A).
ibu(A,B):-anak(B,C),menikah(C,A).
kakek(A,B):-anak(B,C),anak(C,A).
GOAL
ayah(X,Y).
HASIL
2. PROGRAM KE 2
DOMAINS
no_ka = integer
nama_ka, tujuan, waktu = string
FACTS
kereta (no_ka, nama_ka, tujuan, waktu)
PREDICATES
nondeterm tampil
CLAUSES
kereta
(217,"Prameks","Yogya","18:42").
tampil:-kereta (No_ka, Nama_ka, Tujuan,
Waktu),
write
(No_ka,"\t", Nama_ka,"\t\t", Tujuan,"\t\t",
Waktu),nl,
fail.
tampil.
GOAL
save("E:\daftar_kereta.txt"),
tampil.
HASIL
a.
File
data disimpan pada disk E yaitu dengan nama file daftar_kereta.txt
b.
Menambah
Data
HASIL
3. Perbedaan
assert, asserta dan assertz
adalah asserta menyertakan sebuah fakta baru pada section
facts sebelum fakta-fakta yang telah ada untuk predikat tersebut,
sedangkan assertz menyertakan sebuah fakta baru setelahnya, sedangkan
assert berfungsi sama seperti assertz.
