Parol kiritish oynasi” loyixasi. O’quv mashg’ulotining o’qitish texnologiyasi modeli

Download 0.67 Mb.
bet	17/17
Sana	23.02.2024
Hajmi	0.67 Mb.
	#161358

1 ... 9 10 11 12 13 14 15 16 17

Bog'liq
20-Mavzu Edit komponenti. ”Parol kiritish oynasi” loyixasi. O’q-fayllar.org
Министерство russha, Alisher Navoiy, 4555555

Memo1.Clear; Memo1.Lines.add(Summa =+s1); s:=s/4/4; Str(s:7:2,s1); Memo1.Lines.add(Ortacha=+s1); end;

Var i,j,cod:integer;

A:array[1..4,1..4] of Real;

S:real; s1:String;

begin

For i:=1 to 4 do For j:=1 to 4 do

Val(StringGrid1.cells[i-1,j-1],a[i,j],cod);

S:=0;

For i:=1 to 4 do For j:=1 to 4 do s:=s+a[i,j];

Str(s:7:2,s1);

Memo1.Clear;

Memo1.Lines.add('Summa ='+s1);

s:=s/4/4; Str(s:7:2,s1);

Memo1.Lines.add('Ortacha='+s1);

end;

end.
http://fayllar.org

Download 0.67 Mb.

1 ... 9 10 11 12 13 14 15 16 17

Download 0.67 Mb.