26
procedure Button1Click(Sender: TObject);
procedure StringGrid1KeyPress(Sender: TObject; var Key: Char);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
var
a: array [1..5] of integer; // массив анықтамасы
s,i:integer;
sr:real;
begin
for i:=1 to 5 do
if Length(StringGrid1.Cells[i-1,0])<>0 //массив элементтерiн енгiзу
then
a[i]:=StrToInt(StringGrid1.Cells[i-1,0])
// жолдар және бағаналар нөмiрлерi 0 - ден басталады
else a[i]:=0;
s:=0; for i:=1 to 5 do
s:=s+a[i]; sr :=s/5;
Label2.Caption := 'Элементтер қосындысы
=' + IntToStr(s)+ #13+
'Арифметикалық орташасы ='+ FloatToStr(sr);
end;
procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
begin //енгiзуде кеткен қателiктердi өңдеу процедурасы
case Key of
#8,'0'..'9': ; // цифрлар және BackSpace пернесi
#13: // Enter
if StringGrid1.Col< StringGrid1.ColCount-1
then StringGrid1.Col:=StringGrid1.ColCount+1;
'.',',':
begin
Key:=DecimalSeparator; //үтiр және нүкте орнына бөлгiш қою
end;
else Key:=Chr(0); //басқа символдар
end; end; end.
Массив элементтерiн StringGrid терезесiнен кӛрсету мысалының орындалғандағы кӛрiнiсi
27
Негізгі әдебиет: 5 [бет 252-297]
Қосымша әдебиет: 7[бет 283-406]
Бақылау сұрақтар
1. Массивтер. Массивтерді сипаттау.
2. Массивтердің түрлері, динамикалық массивтер дегеніміз не?
3. Delphi ортасында массив элементтерiмен жұмыс жасау жолдары.
4. Object Pascal тiлiндегi қолданылатын берiлгендердiң түрлерi атаңыз?
Достарыңызбен бөлісу: