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



Pdf көрінісі
бет47/122
Дата27.03.2022
өлшемі1,24 Mb.
#28970
түріПрограмма
1   ...   43   44   45   46   47   48   49   50   ...   122
Байланысты:
Дәріс (2)

unit Unit1; 

interface 

uses 

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,  Buttons, StdCtrls, Grids; 

type 

  TForm1 = class(TForm) 

    StringGrid1: TStringGrid; 

    //goEditing:= True, goTab:=True; ColCount=5 ; RowCount=1; 

   //FixedCols:=0; FixedRows:=0; 

    Label1: TLabel; 

    Label2: TLabel; 

    Button1: TButton; 

    BitBtn1: TBitBtn; 

Label1 


StringGrid1 

Label2 


Button1 

BitBtn1 



 

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   ...   43   44   45   46   47   48   49   50   ...   122




©emirsaba.org 2024
әкімшілігінің қараңыз

    Басты бет