Mirsaid Aripov, Nurillo Otaxanov

for I : 0 to Memo1.Lines.Count do

writeln(f, Memo1.Lines[i]);

CloseFile(f);  faylni yopish

MessageDlg('faylga yozildi', mtInformation, [mbOk],0);

end;

end.

Faylni qayta ishlashni tashkil qilish uchun while buyrug’idan foydalanildi. U har gal (shu jumladan, birinchi martada ham), navbatdagi ma`lumotni o`qishdan avval, EOF funksiyasining qiymatini tekshiradi. Bu tsikl faylda o`qiladigan ma`lumotlar tugaguncha bajarilaveradi.

Odatda fayllar bilan ishlash jarayoni kamida ikki bosqichdan iborat bo`ladi: a) faylni yaratish; b) fayldan foydalanish. Agar talab qilingan fayl ilgari yaratilgan bo`lsa, to`g’ridan to`g’ri ikkinchi bosqichga o`tish mumkin. Aks holda avval birinchi bosqichni albatta bajarish lozim.

Masala-1. 1 dan 1000 gacha bo`lgan butun sonlar ichidagi tub sonlarni F fayliga yozing.

Yechish g’oyasi: Ihtiyoriy N butun sonning 1 dan farqli bo`luvchilari [2, ] oraliqda bo`ladi. Masalani yechish uchun 2 dan boshlab 1000 gacha barcha sonlarni shu oraliqdagi sonlarga birma-bir bo`lib chiqiladi. Agar son bu sonlardan birortasiga bo`linsa, demak u murakkab, aks holda tekshirilayotgan son faylga yoziladi. Shundan keyin navbatdagi sonni tekshirishga o`tiladi. 2 dan boshqa barcha tub sonlar toq bo`lgani uchun, tekshirishni tezlashtirish maqsadida 2 ni to`g’ridan-to`g’ri faylga yoziladi, so`ngra tub sonlarni faqat toq sonlar ichidan qidiriladi.