10-sinf informatika 16. pdf

3. Tub sonlar ilovasi. 2017 tub sonrni? Agar u tub bo'lrnasa, unga eng yaqin tub sonni toping. Eslatib o'tarniz, tub son deb, faqat o'ziga va 1 ga qoldiqsiz bo'linadigan natural songa aytiladi. Agar son rnurakkab bo'lsa, uning bo'luvchilaridan hech bo'lrnaganda biri uning kvadrat ildizidan kichik bo'ladi. Aks holda barcha bo'luvchilarning ko'paytrnasi berilgan sondan katta bo'lib ketadi. Dernak, berilgan son n ning tub ekanligini
aniqlash uchun uni n gacha bo'lgan sonlarga bo'linrnasligini tekshirish yetarli.
Bu rnasalani yechish uchun n va undan keyingi k ta natural sonlar
orasidagi tub sonlarning barchasini topadigan ilova yaratarniz. Berilgan pararnetrlarni kiritish uchun ikkita Label, ikkita Edit, bitta Button va bitta Memo obyektlarini yaratiladigan ilova oynasiga joylayrniz va uning xossalarini bizga kerak ko'rinishda o'rnatarniz:

OK tugrnasini ikki rnarta bosib, unga quyidagi kodni kiritarniz: procedure TForml.ButtonlClick(Sender: TObject); var i,j,n,k,a:integer;

b:boolean; begin
n:=StrTolnt(Editl.Text); k:=StrTolnt(Edit2.Text); for i:=n to n+k do begin
b:=true; a:=round(sqrt(i));j:=2; while band (j<=a) do
if i mod j = 0 then b:=false else j:=j+l;
if b then Memol.Lines.Add(IntToStr(i)); end; end;
130