Щозирда инсоният фаолиятининг барча жабщаларига шахсий электрон щисоблаш машиналари (шэщм) шахдам =адамлар билан кириб бормо=д

Fayldan o‘zgaruvchilarga o‘qish buyrug‘i
O‘zgaruvchilarning fayldan o‘qilganidan keyingi qiymati
fam: string[15] name: string[10]	Readin (f, fam, name)	f am= ‘ Narzullayev’ name= ‘ G‘ayrat’
fam, name: string;	Readin (f, fam, name)	fam= ‘ Narzullayev G‘ayrat’ name= ‘ ‘
dust: string[80]	Readin (f, dust)	dust =‘ Narzullayev G‘ayrat’

 

1.14. Fayl oxiri

Diskda bir nechta satrdan iborat matnli fayl mavjud bo‘lsin. Muloqot oynasiga bu faylda mavjud barcha satrlarni chiqarish kerak. Masala echimi juda oddiy: dastlab faylni ochish kerak, so‘ngra birinchi satrni o‘qish kerak, keyin ikkinchisini, uchinchisini va hokazo fayl oxiriga etguncha o‘qish kerak. Lekin fayl oxiriga etganini qanday bilish mumkin?

Fayl oxirini aniqlash uchun EOF (End of File) funksiyasidan foydalanish mumkin. EOF funksiyasining bitta fayl tipidagi parametri bor. Agar o‘qilgan element faylda so‘ngisi bo‘lmasa EOF funksiyasining qiymati False bo‘ladi, agar o‘qilgan element faylda so‘ngisi bo‘lsa, u holda EOF ning qiymati True bo‘ladi.

EOF funksiyasining qiymatini fayl ochilishi bilan tekshirish mumkin. Agar uning qiymati True bo‘lsa, bu fayl bitta ham elementga ega emasligini bildiradi (bunday fayl hajmi nolga teng).

7.5-listingda qo‘yilgan masalani bajaruvchi protsedura keltirilgan. U foydalanuvchi tomonidan berilgan fayldan satrlarni o‘qiydi va Memo maydoniga o‘qilgan satrlarni chiqaradi. 7.6-rasmda dasturning muloqot oynasi berilgan.