With instruksiyasi

With instruksiyasi Reja: ma'lumotlarning faylli toifasi. Fayllar bilan ishlash funksiya va protseduralari Modullar Dinamik bog'lanuvchi bibliotekalar (DLL) With instruksiyasi dasturda maydonlar nomlarini o'zgaruvchi - yozuv nomini ko'rsatmasdan ishlatishga imkon beradi. Umumiy holda with instruksiyasi quyidagi ko'rinishga ega: with do begin ( dastur instruksiyasi end; Misol uchun dasturda quyidagi yozuv ta'riflangan bo'lsin student: record fname: string[30]; lname: string[20]; address: string[50]; end; va studentlar to'g'risidagi ma'lumotlar E1, E2 va E3 o'zgaruvchilarda joylashgan bo'lsin. U holda student.fname := El; student.lname := E2; student.address := E3; instruksiyalar o'rniga quyidagi instruksiyani yozish mumkin: with student do begin fname := E1; lname := E2; address := E3; end; ma'lumotlarning faylli toifasi. Fayllar bilan ishlash funksiya va protseduralari Fayl bu xotiraning nomlangan sohasi. Xar bir fayl o'z nomiga ega. Odatda faylda bir toifali ma'lumotlar saqlanadi. Yaratilayotgan faylning uzunligi oldindan elon qilinmaydi. Object Pascalda fayllarning uchta turi belgilangan: Toifalashgan fayllar. Matnli fayllar. Toifalashmagan fayllar. Kiritiladigan va chiqariladigan ma'lumotlar soni ko'p miqdorda bo'lsa ularni faylda saqlash dasturda qulaylik tug'diradi. Bu ma'lumotlar oddiy matn (tekst) fayllarida saqlanadi. Fayl o'zgaruvchisi dastur bosh qismida elon qilinadi, yani Type f=text; Var fx:f; bu yerda f -fayl tipi, oddiy matn faylni bildiradi; fx-fayl o'zgaruvchisi. Kerakli fayldan ma'lumotlarni o'qishga tayyorlash uchun Assign va Reset funksiyalari ishlatiladi. Assign-fayl o'zgaruvchisi bilan ososiy fayl orasida aloqa o'rnatadi. Assign (fx,'c:af1.txt'); Reset-faylni topib uni ishga tayyorlaydi. Reset (fx); Bu yerda fx- fayl o'zgaruvchisi; 'c:af1.txt'-c: diskning A katalogidagi fx.txt fayldan o'qishni bildiradi. Fayldagi ma'lumotlarni o'qish uchun Read funksiyasi ishlatiladi. Read (, ); Misol. Read (fx, x,y,z,A[i],B[I]); Fayldan o'zgaruvchilar yoki massivlar qiymatlarini o'qib bo'lgandan keyin fayl yopiladi. Faylni yopish quyidagi funksiya yordamida bajariladi. Close (fayl o'zgaruvchisi); Misol. Close (fx); Misol 1. C: diskdagi AA katalogdagi AB fayldagi ma'lumotlarni o'qib A va B massivlarga joylashtiring. Fayl ma'lumotlari strukturasi quyidagicha. 15.2 20.5 25.5 50.2 52.4 . . . . . . . yani fayl strukturasi ikki ustundan iborat ma'lumotlar to'plamidan iborat. Program FAB; Type f=text; Var A,B: Array[1100] of Real; m: Integer; fxz: f; Begin Assign(fxz,'c:AAAB.txt'); Reset(fxz); m:=0; While not eof(fxz) do Begin m:=m+1; Readln(fxz,A[m],B[m]); End; Close (fxz); End. Massiv qiymatlarini biron matn fayliga yozib qo'yish uchun Assign, Rewrite, Append, Write va Close funksiyalari ishlatiladi. Assign- fayl o'zgaruvchisi bilan asosiy fayl o'rtasida aloqa o'rnatadi va u quyidagicha yoziladi. Assign(fayl o'zgaruvchisi, diskdagi fayl joyi va nomi); Append- Fayldan yozish uchun joy tayyorlayli. Append(fayl o'zgaruvchisi); Write- o'zgaruvchi qiymatini fayl o'zgaruvchisiga uzatadi va faylga yozadi. Write(fayl o'zgaruvchisi, o'zgaruvchilar); Close- ochilgan faylni yopadi. Close (fayl ...