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 Assignoperatori 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:
Do'stlaringiz bilan baham: |