Программа кодының терезесі. Delphi ортасы программист жұмысының ӛте жоғары тиімділігін қамтамасыз ететін орта

 

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 атаңыз? 

 

жүктеу/скачать 1,24 Mb.

Достарыңызбен бөлісу: