Tasdiqlayman” Qo`shtepa ixtisoslashtirilgan maktabi mmibdo`: S. Egamov

Read(f, ); va ReadLn(f, );
Bu yerda f – faylli o‘zgaruvchi. – bitta yoki o‘zaro vergul bilan ajratilgan bir nechta o‘zgaruvchilar. Mazkur operatorlar ko‘rsatilgan o‘zgaruvchilarning qiymatlarini fayldan o‘qib oladi.
Read operatori asosan faylda sonli ma’lumotlar yozilgan bo‘lsa, ya’ni faylning satri o‘zaro probel bilan ajratilgan sonlardan iborat bo‘lsa qo‘llaniladi. Read operatori bu sonlarning har birini alohida o‘qib oladi. Bitta satrdagi ma’lumotlar tugagach keyingi satrga o‘tadi.
3–misol. Tomonlarining uzunliklari “uchbur.in” faylida berilgan uchburchak yuzini hisoblash dasturini tuzing. “uchbur.in” fayli bitta satrdan iborat bo‘lib, unda uchburchak tomonlarining uzunliklarini ifodalovchi uchta son o‘zaro probel bilan ajratib yozilgan.
Yechish: “uchbur.in” faylidagi ma’lumotlarni o‘qish uchun Read operatoridan foydalanamiz. Uchburchak yuzini Geron formulasidan foydalanib hisoblaymiz.
Program Uchburchak_yuzi;
Uses crt;
Var f : Text; a, b, c, yp, s : Real;
Begin
Clrscr;
Assign(f, ‘uchbur.in’);
Reset(f); {“uchbur.in” fayli o‘qish uchun ochildi}
Read(f, a); Read(f, b); Read(f, c);
{a,b,c larning qiymatlari “uchbur.in” faylidan o‘qib olindi}
Close(f); {“ uchbur.in” fayli yopildi }
yp:=(a+b+c)/2; s:=sqr(yp*(yp-a)*(yp-b)*(yp-c));
WriteLn(‘Uchburchak yuzi=’, s); readln;
End.
ReadLn operatori fayldagi satrni to‘lig‘icha o‘qiydi. Matnli fayllardan satrlarni tartib bilan navbatma-navbat o‘qish mumkin. Masalan, faylning 10-satrini o‘qish uchun undan oldingi 9 ta satr albatta o‘qib olinishi kerak.
4–misol. “sinf.txt” faylida 9-sinf o‘quvchilarining ro‘yxati (har bir satrda bittadan o‘quvchining familiyasi) berilgan. Shu ro‘yxatdagi 12-o‘quvchining familiyasini ekranga chiqaruvchi dastur tuzing.
Yechish: 12-o‘quvchining familiyasi “sinf.txt” faylining 12-satrida yozilgan. Uni o‘qib olish uchun avvalgi 11 ta satrni o‘qib olish kerak. Buning uchun parametrli takrorlash operatoridan foydalanamiz.
Program Sinf;
var fio : Text; i : Integer; fam : String;
Begin
Assign(fio, ‘sinf.txt’); Reset(fio);
For i:=1 to 11 Do ReadLn(fio, fam);
ReadLn(fio, fam); Close(fio);
WriteLn(’12-o`quvchining familiyasi:’, fam);
End.
Ushbu misolda “sinf.txt” faylida berilgan barcha o‘quvchilarining familiyalarini ekranga chiqarish talab etilsa, muammo kelib chiqadi. Chunki “sinf.txt” fayli necha satrdan iboratligi no‘malum. Bunday hollarda Paskalning Eof(f) funksiyasi qo‘llaniladi. Eof – mantiqiy funksiya bo‘lib, faylda o‘qish uchun ma’lumotlar qolmagan bo‘lsa “Rost”, aks holda “Yolg‘on” qiymatini qabul qiladi.