Nom kiritish bosManishini

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 protsedura bilan ochiladi.

Program Madhiya2;

Var f : Text;naqorat: String; rminteger;

Begin

Assign(f, 'Madhiya.txt'); Append(f); For m:=l to 4 dobegin

Write('Naqoratning ', m, 'satrini kiriting: '); ReadLn(naqorat); WriteLn(f, naqorat); end; Close(f); End.

Reset(f) protsedurasi diskdagi fayllarni o'qish uchun ochadi. U Assign protsedurasi 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: