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

Faylni yopish s1o5eP11e (yaPaP11e) .

Misol:
openrep<3.(<1aPaP11e,"P^E1.BAT"),
u^^Pe(^eV^ce((^aPaP^1e),)

• 
  faylga qo'shish uchun har qanday qoidalar >,
  
• 
  har qanday boshqa qoidalar yoki predikatlar > c105eFee(jaEaP11e).
  

Faylga yozishga misol
/* Statik ma'lumotlar bazasidan displey ekraniga va diskdagi faylga ma'lumotlarni chiqarish. */
Zosha1pz
5RG = 5rG1Pd
RIe \u003d yARARIE
prexca-les
yaRa(5Rg)
yg1Re_Ipe5
doa1
openip1Re((1aPaP11e,"5NAKE1.BAT"),
u1Re_Ipe5,
c1o5eP11e ((1aPaP11e).
bandlar
yaRa("A ygit, a ygit!"). yaPa("MASHER. ye5 hujayra").
yaPa("Tre me1gy 515Reg5, Aapy l_p yapy,"). yaPa("Po5Reg5 op PPe 5ea har qanday 1har qanday,"). yaPa("TPu5 yo to alouF, alouF:"). yaPa("Trglse Po Rippe va PPrlce Po turi."). yaRa(" Har qanday PPg1se ada1p, Po take ir pape ."). uPe_Une5 :- yaPa^ape), mg1Fe(" ", ^1ne), n1, u^^ ReyeV^ce(yaPaP^1e), ^eep),
RaI.
mgtre pez.
Oxirgi predikat umlche_unes, ­agar qoidaning birinchi versiyasi bazadan bayonotlar tugaganligi sababli muvaffaqiyatsiz bo'lsa, maqsadga erishishga imkon beradi.
Ma'lumotlarni o'qish misoli
/* Fayldan maʼlumotlarni oʻqing va uni ekranda koʻrsating */ dosha1nz
sChg \u003d sChg1pd P1e \u003d raGashe prge ^ ca-les
gay_ig1Che_Ipez
doa1
orepgeay (yaGaShe, "5NAKE1. BAT"),
^eayeV^ce (yaGaShe) , geai_ur1Be_11nez, s1oseP1e (yaGaShe) . bandlar
geai_ig1Be_11nez
n (eoB (yaGaTe) ), neai1n ^ 1 ne), u ^ ^ neV ^ ce(sgeen), ur1Se(" ", ^ 1ne), n1, neai_ur1Fe_11nez. geai_ur1Be_11nez.
geo_urlChe_Unez qoidasi o'rnatilgan predikatdan foydalanadi ­, Prologue eot, agar fayl tugashi holatiga duch kelsa muvaffaqiyatli bo'ladi. Agar ma'lumotni o'qish paytida fayl oxiriga ­yetsa, boshqa o'qishlar ­amalga oshirilmaydi - agar, albatta, fayl ko'rsatkichi fayl oxiri belgisi oldidagi istalgan joyga ko'chirilmasa. Ushbu yorliqdagi ko'rsatgich bilan fayldan o'qishga urinayotgan har qanday pastki maqsad muvaffaqiyatsiz bo'ladi.
Klaviaturadan o'qish va faylga yozish misoli
/* Klaviaturadan ma’lumotlarni o‘qish ( “ eny ” dan oldin) va diskdagi faylga yozish */ doshaBps
BIE \u003d yaChaShe izBgtpd \u003d sBgtpd
prgueisa-les
geai1p(dzyg1pd)
sgeaye_a_RIe
doa1
sgeaye_a_RIe
bandlar
sgeaye_a_RIe
ur1ye("Fayl nomini kiriting:"), geai1p(Piepate), opipiye(yaiaP11e, P11epate), u^^deeV^ce(yaiaP^1e), geai1p(Bzig1pd), geai1p(Bzig1pd), ciaseP11e(yajaPie). gei1p("eni") :- !. geai1p(Bzig1pd) :- u1Pe(BzRg1pd), geai1p(Bzig1pd1), geai1p(Bzig1pd1).
Proodda ko'rsatgichni faylga kerakli joyga joylashtirish imkonini beruvchi predikat mavjud - P1eros^od1ca1_P11enate, P11e_ros1d1on, Mye). Bu erda Pie_rozlnln parametri keyinchalik belgi o'qiladigan yoki yoziladigan fayldagi pozitsiya raqamini bildiruvchi butun songa o'rnatilishi kerak. Moya parametriga uchta ­qiymatdan birini belgilash mumkin: 0, 1 yoki 2, bu ­PIe_poz1dlop qiymati qanday talqin qilinishini aniqlaydi:

1. 
   - fayl boshiga nisbatan ofset;
   
2. 
   - joriy holatga nisbatan ofset;
   
3. 
   - faylning oxiriga nisbatan ofset.
   

Masalan, PIeros(players, 100,0) ifodasida o'yinchilar parametri mantiqiy fayl nomi, Pv_rox100 parametri 100 qiymatiga ega, bu ­100 pozitsiya uzoqdagi belgi o'qilishini bildiradi va ­0 qiymati Mye parametri uchun hisoblash ­fayl boshidan bo'lishini bildiradi. Boshqa misolda, Pieros(pavers, 10 0,1), hisoblash ko'rsatgichning joriy holatiga nisbatan bo'ladi: agar bu predikat muvaffaqiyatli ­bo'lsa, ko'rsatgich 100 pozitsiya oldinga siljiydi.

9. 
   Prolod tilida dinamik ma'lumotlar bazalarini yaratish
   
   1. 
      Pro1od bo'yicha ma'lumotlar bazalari
      

Prolod relyatsion ma'lumotlar bazalari bilan ishlash uchun mo'ljallangan ma'lumotlar bazalarini (MB) tashkil qilish uchun maxsus vositalarga ega . Prologue tilining ichki birlashtirish protseduralari ma'lum parametrlarning kerakli qiymatlari bilan faktlarni avtomatik tanlashni amalga oshiradi va ­hali aniqlanmagan qiymatlarni belgilaydi. Orqaga qaytarish mexanizmi esa berilgan ­so'rovga barcha mavjud javoblarni topish imkonini beradi .­
Dinamik ma'lumotlar bazasi predikatlarini tavsiflash ­quyidagi tarzda amalga oshiriladi [4]: