• 1–misol.
  • 2–misol.
  • Tasdiqlayman” Qo`shtepa ixtisoslashtirilgan maktabi mmibdo`: S. Egamov




    Download 5,1 Mb.
    bet155/174
    Sana22.05.2024
    Hajmi5,1 Mb.
    #250400
    1   ...   151   152   153   154   155   156   157   158   ...   174
    Bog'liq
    Tasdiqlayman” Qo`shtepa ixtisoslashtirilgan maktabi mmibdo` S.

    Write(f, ); va WriteLn(f, );
    bu yerda f – faylli o‘zgaruvchi, o‘zaro vergul bilan ajratilgan bitta yoki bir nechta o‘zgaruvchi yoki o‘zgarmas. Mazkur operatorlar da ko‘rsatilgan o‘zgaruvchi va o‘zgarmaslarning qiymatlarini faylga yozadi.
    1–misol. Joriy katalogda “Madhiya.txt” nomli fayl hosil qilib, klaviaturadan kiritilgan madhiyamizning 4 satrini faylning alohida satrlariga yozib qo‘yuvchi dastur tuzing.
    Yechish: Kiritilgan ma’lumotlarni faylning alohida satrlariga yozish uchun WriteLn operatoridan foydalanamiz.
    Program Madhiya1;
    Var _madh : Text; satr : String; m:integer;
    Begin
    Assign(_madh, ‘Madhiya.txt’); Rewrite(_madh);
    For m:=1 to 4 do begin
    Write(‘Madhiyamizning ‘, m, ‘satrini kiriting: ‘); ReadLn(satr);
    WriteLn(_madh, satr); end;
    Close(_madh);
    End.
    Biz tashqi xotirada yangi fayl hosil qilishni ko‘rdik. Ba’zan tashqi xotirada saqlanayotgan biror matnli faylni davom ettirish, ya’ni, unga yangi ma’lumotlar qo‘shish zarur bo‘lib qoladi. Bu holda Rewrite operatori o‘rniga Append(f) operatori qo’llanadi. Bu operator ko‘rsatilgan tashqi xotiradagi faylni “yozish uchun” ochadi. Ko‘rsatilgan fayl tashqi xotirada bo‘lmasa, xatolik yuz beradi. Demak, Append operatori yordamida ochilishi lozim bo‘lgan fayl tashqi xotirada albatta bo‘lishi shart.
    2–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:

    Download 5,1 Mb.
    1   ...   151   152   153   154   155   156   157   158   ...   174




    Download 5,1 Mb.

    Bosh sahifa
    Aloqalar

        Bosh sahifa



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

    Download 5,1 Mb.