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)+‘ –топ‘;
Достарыңызбен бөлісу: