Основы искусственного интеллекта: учебное пособие

4osha1pz
pate \u003d sUg1pd yeag \u003d 1 pUeder rg1se \u003d gea1
aiVo_gesog = aiVo (pate, yeag, pr1se)
UNE = aiUo_UIe
Faylga kirish uchun siz avval ­opengeay va ^eayeV^ce predikatlaridan foydalanishingiz kerak, keyin geyveerm dan foydalanishingiz mumkin .
Misol:
/* Ishchi ma'lumotlar bazasi namunasini ko'rsatish. Ma'lumotlar bazasi quyidagi operatsiyalarni bajarishga imkon beradi: ma'lumotlarni qo'shish, o'chirish, tanlash va ko'rish. Ushbu dastur ma'lumotlar bazasini yaratadi va uni RAMda saqlaydi */
Baza uchun
yrlauer (sutbo1, sutbo1, yyye, yyye)
/* predikatga oʻyinchi nomi, jamoa nomi, oʻyin raqami va oʻynagan mavsumlar soni kiradi */
prexca-les
p1auer (sutbo1, sutbo1, yuRe, yuye)
geigesR /*maʼlumotlarni dinamik maʼlumotlar bazasiga yuborish*/ geige
tepi (LyRe) /*tanlangan menyu bandini qayta ishlashni tashkil qiladi*/
saiurer
futbolchi("Bap Magpo", "M1at1 Bo1rypz", 13,4). futbolchi("K1cargy Bepr", "Chisado Bearz", 95.4). futbolchi("Bernl e Goat", "C1eVe1an Brhompz", 19,2,). futbolchi("Boyd Kossi", "Balaz Kombos", 84, 8). player("Mark Mazonet", "P1kPzbigd. 5Pee1erz",16,7,) .
r1e: -mg1Re("1. Ma'lumotlar bazasiga ma'lumotlarni qo'shish"), n1, u1dye("2. Belgilangan pleer haqidagi ma'lumotlarni o'chirish"), n1,
ur1Re("3. Belgilangan jamoa futbolchilari haqida ma'lumot qidirish"), n1, ur1ye("4. Butun ma'lumotlar bazasini ko'rish"), n1, ur1ye("5. Chiqish"), n1, gei1pr^),
N<>5,
tepi(N),
r1e.
r1e.
tepi(1): -ig1Re("Ism, jamoa nomi, o'yin raqami va o'ynalgan mavsumlar sonini kiriting."),n1, ig1Re("Ism: "),geai1n(Pat), ig1Re("Jamoa nomi:"), gei1p (Teat), u1Re("O'yin raqami:"), geai1nj ^umbeg), u1Re("O'ynagan fasllar soni: "), geai1pr(P1auz),
azzegir(iptauer(Pat,Teat,Numbe^,Plaus)). mepi(2): -ig1Re("U haqidagi ma'lumotlarni o'chirish uchun o'yinchi nomini ko'rsating:"), n1, geai1p (Pat),
geigass(iplayer(Pat, _, _, _)).
tepi (2):- mg1Ue("Bunday o'yinchi yo'q!"), n1, tepi(2). tepi(3):- mg1Ue("O'yinchilar haqida ma'lumot qidirish uchun jamoa nomini ko'rsating:"), n1, geai1p (Teat),
u1Ue("Ushbu jamoa o'yinchilari:"), n1,
iplayer(X,Teat,_,_),
uruVe(X),n1,
RaI.
tepi (3).
tepi(4):- iplayer(E, T, ^K),
u1Re("Ism: ",E),n1, u1Re("Jamoa nomi:",T), n1, u1Re("O'yinchi raqami:", N), n1,
u1Re("O'ynagan fasllar soni: ", K),n1,n1,
RaI.
tepi (4).
ge1gesP:- o'yinchi (X, Y, 2, P),
azzegr2(yrlauer(X, Y, 2, P)),
RaI.
ge1gesR:- mg1Re("Ma'lumotlarni uzatish muvaffaqiyatli yakunlandi.
ENTEC"),n1,^eai1n( ) tugmasini bosing.