Faylli tiplar

Faylli tiplar Reja: Faylli tiplarni hosil qilish; Faylli tiplar bilan ishlash protseduralari va ularning vazifalari. Faylli tiplarni hosil qilish Faylli tipdagi izgaruvchilarni diskdan ma'lumot ikib oluvchi yoki diskka ma'lumot yozib kiyuvchi programmalarda ishlatish mumkin. Faylli tipdagi izgaruvchilarni elon qilishda file va text xizmatchi sizlari ishlatiladi: var mfile 1, mfile 2: file; afile: file; Prima: text; text xizmatchi sizi faylning matnli ekanligini anglatadi. Matnli fayllar maxsus belgilar bilan ajratilgan, uzunligi nomalum bilgan katorlardan tashkil topadi. Ayrim paytlarda fayllarni bir xil tipli xadlar ketma-ketligi kirinishida qarash kulayrok biladi. Bu ketma-ketlik katorlar, butun sonlar yoki yozuvlardan tashkil topishi xam mumkin: var A1: file of byte; A1 fayli baytlar ketma - ketligidan tashkil topgan A2: file of integer; A2 fayli butun sonlar ketma-ketligidan tashkil topgan A3: file of string; A3 fayli katorlar ketma-ketligidan tashkil topgan A4: file of string[20]; A4 fayli 20ta belgili katorlarning ketma-ketligidan tashkil topgan A5: text; A5 fayli matnli fayl hisoblanadi Agar faylning xadlari uchun tip aniqlangan bilsa, bunday fayllarni tiplashtirilgan, aks holda tiplashtirilmagan deb ataladi: var A: file ; tiplashtirilmagan fayl B: file of char; tiplashtirilgan fayl Fayllar bilan ishlaydigan quyidagi programmani kirib chikaylik. Var mydata: file of integer; i, j, sum: integer; begin assign (mudata, 'd:tpmyfile.dat'); mydata fayl izgaruvchisi bilan faylning ismini myfile.dat va uning aniq yili aniklanmokda rewrite (mydata); fayl yozuv uchun ochiq writeln ('Salom nomalum irtok'); writeln ('Birinchi sonni kiriting'); readln (i); writeln ('Kiritilgan sonni diskdagi myfile.dat fayliga yozilmokda'); write (mydata, i); bu operator yordamida diskdagi myfile.dat fayliga i sonini yoziladi writeln ('Ikkinchi sonni kiriting'); readln (j); writeln ('Kiritilgan ikkinchi sonni diskdagi myfile.dat fayliga yozilmokda'); write (mydata, j); Diskka yozish bajarilmokda sum :k i k j; writeln ('Yiindi k', sum); writeln ('Yiindi diskdagi myfile.dat fayliga yozilmokda'); write (mydata, sum); Diskka yozish bajarilmokda close (mydata); mydata fayli yopildi writeln ('Xayr nomalum irtok'); end. 2. Faylli tiplar bilan ishlash protseduralari va ularning vazifalari Etiboringizga havola etilgan programmada Assign, Rewrite, Write va Close protseduralaridan foydalanildi. Endi shu protseduralarning va keyingi programmada ishlatiluvchi Reset va Read protseduralarning vazifalari va qanday aniklanganligi haqida qisqacha ma'lumot berib itaylik: Oldingi tuzgan programmamiz «d:» diskdagi tp katalogida myfile.dat faylini tashkil kildi. Endi shu fayldan qanday qilib ma'lumotlarni ikishni kirib chikaylik. Var mydata: file of integer; i, j, sum: integer; begin assign (mydata, 'd:tpmyfile.dat'); reset (mydata); fayl ikish uchun ochilmokda writeln ('Salom nomalum irtok'); read (mydata, i); writeln ('myfile.dat faylidan birinchi son ikildi'); read (mydata, j); writeln ('diskdagi myfile.dat faylidan ikkinchi son ikildi'); read ...