–misol. 1-misolda hosil qilingan “Madhiya.txt” faylini oching va madhiyamizning 4 satri davomiga naqoratni qo‘shib qo‘yuvchi dastur tuzing.
Yechish

|
–misol. 1-misolda hosil qilingan “Madhiya.txt” faylini oching va madhiyamizning 4 satri davomiga naqoratni qo‘shib qo‘yuvchi dastur tuzing.
Yechish
|
bet | 8/11 | Sana | 20.05.2024 | Hajmi | 3,02 Mb. | | #246220 |
Bog'liq Документ Microsoft Word2–misol. 1-misolda hosil qilingan “Madhiya.txt” faylini oching va madhiyamizning 4 satri davomiga naqoratni qo‘shib qo‘yuvchi dastur tuzing.
Yechish: Faylni davom ettirish uchun uni Append operatori bilan ochamiz.
Program Madhiya2;
Var f : Text; naqorat: String; m:integer;
Begin
Assign(f, ‘Madhiya.txt’); Append(f);
For m:=1 to 4 do begin
Write(‘Naqoratning ‘, m, ‘satrini kiriting: ‘); ReadLn(naqorat);
WriteLn(f, naqorat); end;
Close(f);
End.
Reset(f) operatori diskdagi fayllarni o‘qish uchun ochadi. U Assign operatori yordamida tashqi xotiradagi biror faylga bog‘langan bo‘lishi kerak. Ko‘rsatilgan fayl tashqi xotirada bo‘lmasa, xatolik yuz beradi.
O‘qish uchun ochilgan fayldan ma’lumotlar quyidagi operatorlar yordamida o‘qiladi:
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.
|
|
Bosh sahifa
Aloqalar
Bosh sahifa
–misol. 1-misolda hosil qilingan “Madhiya.txt” faylini oching va madhiyamizning 4 satri davomiga naqoratni qo‘shib qo‘yuvchi dastur tuzing.
Yechish
|