O‘zbekiston Respubllkasi Xalq ta'limi vazirligi tasdiqlagan

3. Tub sonlar ilovasi. 2017 tub sonmi? Agar u tub bo‘lmasa, unga eng yaqin tub sonni toping. Eslatib o‘tamiz, tub son deb, faqat o‘ziga va 1 ga qoldiqsiz bo‘linadigan natural songa aytiladi. Agar son murakkab bo‘lsa, uning bo‘luvchilaridan hech bo‘lmaganda biri uning kvadrat ildizidan kichik bo‘ladi. Aks holda barcha bo‘luvchilarning ko‘paytmasi berilgan sondan katta bo‘lib ketadi. Demak, berilgan son ning tub ekanligini

aniqlash uchun uni gacha bo‘lgan sonlarga bo‘linmasligini tekshirish

yetarli.

Bu masalani yechish uchun va undan keyingi ta natural son

orasidagi tub sonlarning barchasini topadigan ilova yaratamiz. Berilgan parametrlarni kiritish uchun ikkita Label, ikkita Edit, bitta Button va bitta Memo obyektlarini yaratiladigan ilova oynasiga joylaymiz va uning xossalarini bizga kerak ko‘rinishda o‘rnatamiz:

OK tugmasini ikki marta bosib, unga quyidagi kodni kiritamiz: procedure TForm1.Button1Click(Sender: TObject); var

i,j,n,k,a:integer;
b:boolean; begin
n:=StrToInt(Edit1.Text);
k:=StrToInt(Edit2.Text); for i:=n to n+k do begin
b:=true; a:=round(sqrt(i));j:=2; while b and (j<=a) do
if i mod j = 0 then b:=false else j:=j+1;
if b then Memo1.Lines.Add(IntToStr(i)); end; end;

130

YODDA SAQLANG !

Memo obyektida bir necha ming satr matn joylashishi mumkin.