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

“Options” 
parametirini 
“+”
ishorasini 
“-”
ishoraga o`tkazga-
nimizdan so`ng oynani ko`rinishi quyidagicha bo`ladi:
2. 
“Label1” 
tugmasidan foydalanib 
“Massiv” 
so`zini kiritamiz.
3. 
“Label2” 
tugmasiga 
“Natija” 
so`zini kiritamiz.
2-bosqich. 
1. Dasturlash maydoniga quyidagi dasturni kiritamiz 
procedure TForm1.Button1Click(Sender: TObject);
var a : array[1..5] of integer; summ: integer; sr: real; i: integer;
begin
for i:= 1 to 5 do if Length(StringGrid1.Cells[i-1, 0]) <>0
then a[i] := StrToInt(StringGrid1.Cells[i-1,0]) else a[i] := 0;
summ := 0;
for i :=1 to 5 do
summ := summ + a[i]; sr := summ / 5;
Label1.Caption :=
'Elimentlari yig`indisi: ' + IntToStr(summ)
+ #13+ 'O`rta arfimetigi: ' + FloatToStr(sr);
end;
procedure TForm1.StringGrid1Click(Sender: TObject);
var Key: Char;
begin
case Key of
#8,'0'..'9' : ;
#13:
if StringGrid1.Col < StringGrid1.ColCount-1
then StringGrid1.Col := StringGrid1.Col + 1;

---

189 
else key := Chr(0);
end;
end; 
 
Ikki o‘lchovli massivlar 
Misol.
A(5,5) matritsa elementlarining yig‘indisi va o‘rta 
arfimetigini hisoblovchi dastur tuzing.
Ikki o‘lchovli massiv elimentalri yig‘indisi va o‘rta arfimetigini 
hisoblash 
uchun, 
button, 
memo 
va 
StringGrid 
tugmalaridan 
foydalanamiz. 
procedure TForm1.Button1Click(Sender: 
TObject); 
Var i,j,cod:integer;A:array[1..5,1..5] of Real; 
S:real; s1:String; 
begin For i:=1 to 5 do 
For j:=1 to 5 do
Val(StringGrid1.cells[i-1,j-1],a[i,j],cod); 
S:=0; 
For i:=1 to 5 do 
For j:=1 to 5 do 
s:=s+a[i,j]; 
Str(s:7:2,s1); 
Memo1.Clear; 
Memo1.Lines.add('Yig‘indi ='+s1); 
s:=s/25; 
Str(s:7:2,s1); 
Memo1.Lines.add('O‘rtacha='+s1); 
end; 
end.

---

190 
2-misol
. A(N,N) kvadrat matritsaning ustun va satr elementlari 
yig’indisini topish dasturi. 
procedure Form1.Button2Click 
(Sender: TObject); 
var i,k:integer; S:real; 
x:array [1..10,1..10] of integer; 
s1:string; 
begin 
for i:=1 to strtoint(edit1.Text) do 
for k:=1 to strtoint(edit1.Text) do 
x[i,k]:= strtoint(StringGrid1.Cells[i,k]); 
for i:=1 to strtoint(edit1.Text) do 
begin s:=0; for k:=1 to 
strtoint(edit1.Text) do
s:=s+x[i,k]; Str(s:7:2,s1); 
Memo1.Lines.add(inttostr(i)+'-
ustun'+' '+'Yig‘indi ='+s1); end; 
for k:=1 to strtoint(edit1.Text) 
do begin s:=0; 
for i:=1 to strtoint(edit1.Text) do s:=s+x[i,k]; Str(s:7:2,s1); 
Memo2.Lines.add(inttostr(k)+'-satr'+' '+'Yig‘indi ='+s1); 
end; end; end.