O‘zbekiston respublikasi oliy va o‘rta maxsus ta’lim vazirligi samarqand davlat universiteti

Takrorlanuvchi dastur 
 
Misol. 
1 dan 100 gach ketma- ket 
keluvchi 
natural 
sonlarning 
yig`insisini 
hisoblash dasturini tuzing. 
1-ko‘rinish 
procedure Tform1.Button1Click(Sender: 
Tobject);
var I,s:integer;

---

187 
begin
s:=0;
for i:=1 to 100 do s:=s+I;
showmessage(‘Sonning yig`indisi S=’+floattostr(S)+’ ga teng`);
end;
end.
2-ko‘rinish 
procedure 
TForm1.Button1Click(Sender: 
TObject); 
var I,s,n:integer; 
begin n:=strtoint(edit1.Text); 
s:=0; 
for i:=1 to n do s:=s+I; 
label3.caption:=('Sonning 
yig`indisi 
S='+floattostr(S)+' ga teng'); 
end; end.
 
Massiv elementlari bilan ishlash 
Misol. A(15) massiv elementlarini yig`indisi va o`rta 
arfimetigini topish dasturi tuzilsin. 
1-bosqich.
1. Komponеntalar ro`yxatini Additional bandidan StringGrid1(abc) 
tugmani tanlaymiz. 
Hosil bo`lgan jadavaldan 5 ta 
ustun, 1 ta satr yarating. Bu jadvalni 
yaratish uchun, parametrlar va xossalar 
bo`limidan 
ColCount 
hodisalar bandiga 
5 
raqamini kiritamiz
. 
Satr bo`yicha 
o`zgartirish kiritish uchun
, RowCount 
bandiga
 1 
raqamini kiritamiz.

---

188 
Hodisalar bo`limining 
goEditing
bandida 2 
ta False 
va 
True
buyrug`i 
mavjud. 
True
buyrug`ini 
tanlasangiz katakchaga ma’lumot kiritgan-
dan so`ng dastur bilan bog`lanish hosil 
qiladi aks holda ya’ni False buyrug`i 
tanlasangiz kiritilgan ma`lumot dastur bilan 
bog`lashga ruxsat etmaydi.Parametrlar va 
xossalar bo`limidan