Sana:” ” 202 yil Informatika 10 Mavzu: 1-dars. Sodda ifodalarni hisoblash maqsad: Ta’limiy

3.Tub sonlar ilovasi. 2017 tub sonmi? Agar u tub bo‘lmasa, unga engyaqin 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;

YODDA SAQLANG !

Memo obyektida bir necha ming satr matn joylashishi mumkin.