Informatika va axborot

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; 

---

131 
SAVOL VA TOPSHIRIQLAR
 
1.
Memo
obyekti obyektlar panelining qayerida joylashgan?
2.
Edit
maydonchasiga kiritilgan matn satrini 
Memo
ga har bir harfi
alohida qatorda joylashadigan qilib chiqaring. 
3.
Memo
gа 50 ta satrdan iborat matn kiriting. Ularning juft nomerli
satrlarni matndan olib tashlang. 
UYGA VAZIFA
1.
Memo
obyektining 
Text
xossasi qanday vazifa bajaradi?
2.
Memo
obyektining 
Lines
elementi matn bilan qanday ishlaydi?