Mirsaid Aripov, Nurillo Otaxanov

8.6-listing. Faylga ma`lumotlarni yozish

procedure TForm1.Button1Click(Sender: TObject);

var f: file of integer ;

x, n, k,m : integer ; y : string[3]; s:string;

begin

assignfile(f,'C:  Tub.son');

rewrite (f) ;  faylni ochish

n : 2; write (f, n) ;

n : 1 ; m : 1;

while n< 1000 do begin

n : n2; y : 'ha' ;

k : 2;  N ning tubligi tekshirilmoqda

while (k<sqrt(n)) and (y'ha') do

begin

if n mod k  0 then y : 'yuq' ;

k : k  1;

end;

if y  'ha' then begin

write(f, n);  tub sonni faylga yozish

 faylning har bir satriga 10 tadan tub yozish

m : m  1;

 10 ta tub son yozilgan bo`lsa, yangi satrga o`tish

if m  10 then s :s  inttostr(n) #13

else s : s  inttostr(n)  ' ' ;

if m  11 then m : 1;

end;

end;

Bu dastur C diskda TUB.SON faylini hosil qiladi va unga 1000 gacha bo`lgan tub sonlarni yozadi. Bu sonlar dialog oynasining Label1 oynasiga ham chiqariladi (8.7-rasm). Endi bu fayldagi ma`lumotlardan foydalanib, ko`plab masalalarni xal kilish mumkin. Keltirilayotgan masalalar ana shular jumlasidandir:

1. 
   1 dan 1000 gacha bo`lgan tub sonlar fayli TUB.SON dagi sonlarning o’rta arifmetigini toping.
   
2. 
   1 dan 1000 gacha bo`lgan tub sonlar fayli TUB.SON dagi "egizak" tub sonlarni aniqlang.
   
3. 
   1 dan 1000 tacha bo`lgan tub sonlar fayli TUB.SON dagi eng katta sonni toping. Va hokazo.
   

Yuqoridagi ikkinchi masalani yechish uchun quyidagicha fikr yuritish tavsiya qilinadi :

4. 
   Yechish g’oyasi: "Egizak" deb orasidagi farqi 2 ga teng bo`lgan tub sonlarga aytiladi. Bu masala uchun tub sonlar qayta topilmaydi, balki
   

8.7-rasm. 1000 gach bo`lgan tub sonlar dasturining dialog oynasi

Tub.son faylidagi ma`lumotlardan foydalaniladi. Buning uchun faylda faqat tub sonlar saqlanayotganligini bilgan holda, ketma-ket kelgan ikki son ayirmasi olinadi. Agar ayirma 2 ga teng bo`lsa, bu sonlar ekranga chiqariladi. Shundan so`ng, navbatdagi songa o`tiladi. Aniqlik uchun birinchi sonni A, ikkinchisini B bilan belgilaymiz. Fayldagi ma`lumot-lar soni ma`lum bo`lmagani uchun eof() funksiyasidan foydalaniladi.