Тема 3.2. Масиви.
Пошук мінімального (максимального) елементу масиву.
Пошук в масиві заданого елемента.
1. Пошук мінімального (максимального) елементу масиву.
Завдання|задачу| пошуку мінімального елементу масиву розглянемо|розглядуватимемо| на прикладі|зразку| масиву цілих чисел.
Алгоритм пошуку мінімального (максимального) елементу масиву досить очевидний: спочатку робиться|чинить| припущення|гадка|, що перший елемент масиву є|з'являється| мінімальним (максимальним), потім решта елементів масиву послідовно порівнюється з|із| цим елементом. Якщо під час чергової перевірки виявляється, що елемент, що перевіряється, менше (більше) прийнятого за мінімальний (максимальний), то цей елемент стає мінімальним (максимальним) і продовжується|триває| перевірка елементів, що залишилися.
Діалогове вікно додатку|застосування| пошуку мінімального елементу масиву містить|утримує| відповідним чином настроєний|налагоджений| компонент StringGrid1|, який застосовується для введення елементів масиву, два поля влучний (Label1| і Label2|), що використовуються для виведення інформаційного повідомлення|сполучення| і результату роботи програми, і командну кнопку (Buttonl|), при клацанні|натисненні| на якій виконується пошук мінімального елементу масиву. Нижче приведені значення властивостей компоненту StringGrid1|.
Значення властивостей компоненту stringGrid1
|
|
|
|
|
Властивість
|
Значення
|
|
|
ColCount
|
005 |
|
|
FixedCols
|
000 |
|
|
RowCount
|
001 |
|
|
DefaultRowHeight
|
024 |
|
|
Height
|
024 |
|
|
DefaultColWidth
|
064 |
|
|
Width
|
328 |
|
|
Options.goEditing
|
True
|
|
|
Options. AlwaysShowEditing
|
True
|
|
|
Options.goTabs
|
True
|
|
|
|
|
|
У лістингу приведена процедура обробки події Onclick| для командної кнопки Button1|, яка вводить|запроваджує| масив, виконує пошук мінімального| елементу і виводить результат – номер і значення мінімального елементу масиву.
Лістинг. Пошук мінімального елементу масиву
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}
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|
а[i]:=StrToInt(StringGridl|.Cells[i-1,0|]);
// пошук мінімального елементу
min:=1|; // хай|нехай| перший елемент мінімальний
for i:=2 to SIZE do
if а[i]< а[min]then min:=i;
// виведення результату
label2|.caption:='Мінімальний елемент масиву:'
+IntToStr|(а[min|]+#13+'Номер елементу:'+ IntToStr|(min|);
end|;
end|.
На малюнку приведений вид діалогового вікна додатку після клацання на кнопці Пошук.
Вікно додатку Пошук мінімального елементу масиву