Nom kiritish bosManishini

Write(f, ); va WriteLn(f, ); bunda 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, klavia-turadan kiritilgan madhiyamizning 4 satrini faylning alohida satrlariga yozib qo'yuvchi dastur tuzing.

Yechish. Kiritilgan ma'lumotlarni faylning alohida satrlariga yozish uchun WriteLn operatoridan foydalaniladi. Program Madhiyal;

Var _madh : Text;satr : String; rminteger;

Begin

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

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 tashqj xotirada saqlanayotgan biror matnli faylni davom ettirish ya'ni, unga yang¹

ma'lumotlar qo'shish zarur boiib qoladi. Bu holda Rewrite protsedurasi o'rniga Append(f) protsedurasi qo'llanadi. Bu protsedura ko'rsatilgan tashqi ^-xotiradagi faylni «yozish uchun» ochadi. Ko'rsatilgan fayl tashqi xotirada bo'lmasa, xatolik yuz beradi. Demak, Append nro'sedumsi yo'^imida ochilishi lozim bo'lgan fayl tashqi xotirada albatta mavjud bo li^h: shart.