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

 

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                                                      

2 

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 

1 

1 

Бос ету 

Бос ету 

 

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,24 Mb.

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