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



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

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Листинг 5.6. Поиск минимального элемента массива  

unit lookmin_; 

interface 

Windows, Messages, SysUtils, Classes, Graphics,  

Controls, Forms, Dialogs, StdCtrls, Grids; 

type 

TForm1 = class(TForm) 

Label1: TLabel; 

Button1: TButton; 

Label2: TLabel; 

StringGridl: TStringGrid; 



procedure ButtonlClick(Sender: TObject); private 

{ Private declarations )  



public 

{ Public declarations }  



end; 

var 

Form1: TForm1; 



implementation 

{$R *.DFM} 




 

28 


procedure TForm1.ButtonlClick(Sender: TObject); 

const 

SIZE=5; 


var 

a:array[l..SIZE]of integer; // массив целых  

min:integer; // номер минимального элемента массива  

i:integer; // номер элемента, сравниваемого с минимальным  



begin 

// ввод массива for i:=1 to SIZE do 

a[i]:=StrToInt(StringGridl.Cells[i-1,0]); 

// поиск минимального элемента  

min:=1; // пусть первый элемент минимальный  

for i:=2 to SIZE do 

if a[i]< a[min]then min:=i; 

// вывод результата  

label2.caption:='Минимальный элемент массива:' 

+IntToStr(a[min] +#13+'Номер элемента:'+ IntToStr(min); 



end; 

end. 

На рис. 5.8 приведен вид диалогового окна приложения после щелчка на кнопке Поиск. 

 

Рис. 5.8. Окно приложения Поиск минимального элемента массива 

 

  

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 



 

29 


Мысал.  100  метрлік  қашықтыққа  жүгіру  барысында  үш  топтың  әрқайсысынан  үш  студент  іріктеп 

алынды.  Олардың  секундпен  ӛлшенген  жүгіру  нәтижелері  1-  кестеге  енгізілген.  Қайсы  топтың 

студенттері бірінші орынға шықты? Орта есеппен олардың әрқайсысы 100 метрді қанша уақытта ӛтті? 

1                                                      



3  1-кесте   1-топ             2-топ               3-топ 

 

1.  Жаңа  жоба  ашып,  формада  Memo1,    StringGrid1,  BitBtn1,  BitBtn2,  Label1  компоненттерін 



орнату (4-сурет). 

TStringGrid  –  ұяшықтарында  кез-келген  ұзындықтағы  жолдық  шамаларды  орналастыруға  болатын 

кестелік компонент. 

 

Қасиет  


Мағынасы  

Cells[n,n]  

 

ColCount 



RowCount 

 

GridLineWidth 



 

FixedCols 

FixedRows 

FixedColor 

 

ColWidths[i] 



RowHright[j] 

nхn 


ӛлшемді 

кесте 


ұяшықтарының мәндері 

Кестенің баған саны 

Кестенің жол (қатар) саны 

Кесте  сызылатын  сызықтың 

қалыңдығы 

Ерекше жолдар саны 

Ерекше бағандар саны 

Ерекше  жолдар  мен  бағандар 

түсі 

i – бағанның ені 



j – жолдың биіктігі 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

                          

 

 

 

 

4- сурет. Жарыс нәтижесі 

 

 

 

 

 

 

 

 

Компоненттер  қасиеттеріне мәндер меншіктеу: 

12,69    13,25   12,98 

14,05    13,16   13,08 

13,32    14,27    14,02  




 

30 


Компонент  

Қасиет  


Мән  

BitBtn1 


BitBtn2 

StringGrid1 

 

Label1 


Memo1 

Kind 


Kind 

FixedCols 

FixedRows 

Caption 


Strings 

 

bkOK 



bkClose 



Бос ету 

Бос ету 


 

3.  Код терезесінде BitBtn1 батырмасын OnClick оқиғасын  ӛңдеуіш процедурасын құру. 



Procedure TForm1.BitBtn1Click(Sender:TObject); 

Const n=3; 

var nomer, k, j, i: longint; 

s: array [1..n,1..n] of real; 

p: array[1..n] of real;                                               // матрица 

         min: real; nomerT: string;                                      //қосындылар жиымы 



Begin 

{кесте құру} 

          Stringgrid1.Font.Name:=‘TimesKaz‘; 

          Stringgrid1.Colcount:=n+1; 

          Stringgrid1.Rowcount:=n+2; 

          Stringgrid1.Cells[0, n+1]:=‘Орт.жылд.‘ 



          For i:=1 to n do 

                      Begin  

                      p[i]:=0;  //қосынды жиымға бастапқы мәндер меншіктеу 

                      Stringgrid1.Colwidth[i]:=60; 

                      Stringgrid1.Rowheights[i]:=15; 

                      Stringgrid1.Cells[0,i]:=‘ ‗+FloatToStr(i); 

                      Stringgrid1.Cells[I,0]:=‘ ‗+FloatToStr(i)+‘ –топ‘; 





Достарыңызбен бөлісу:
1   ...   44   45   46   47   48   49   50   51   ...   122




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

    Басты бет