Листинг 7.6

procedure TForm1.SpeedButton1Click(Sender: TObject);

type

mas=array [1..5] of Integer;

var

List:mas;

i,min:Integer;

begin

ListBox1.Clear;

// Заполнение массива

for i:=1 to 5 do

begin

List[i]:=StrToInt(InputBox('Ввод элемента','List'+

' '+IntToStr(i),''));

ListBox1.Items.Add('List['+IntToStr(i)+']='+

IntToStr(List[i]));

end;

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

min:=1;

for i:=2 to 5 do

begin

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

end;

// Ввод List[min]

ShowMessage('Минимальный элемент:'+#13+

'List['+IntToStr(min)+']='+IntToStr(List[min]));

ListBox1.Items.Add('--------------');

ListBox1.Items.Add('min='+'List['+IntToStr(min)+']='+

IntToStr(List[min]));

end;

Пример 7.7

Приложение во время выполнения

Листинг 7.7

type

mas=array [1..5] of Integer;

var

List:mas;

i,buf:Integer;

begin

// Заполнение массива

with StringGrid1 do

begin

for i:=1 to 5 do

begin

List[i]:=StrToInt(Cells[i-1,0]);

end;

end;

// Перестановка элементов

for i:=1 to (5 div 2) do

begin

buf:=List[2*i-1];

List[2*i-1]:=List[2*i];

List[2*i]:=buf;

end;

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

with StringGrid2 do

begin

for i:=1 to 5 do

begin

Cells[i-1,0]:=IntToStr(List[i]);

end;

end;

end;

// Очистка компонентов StringGrid

procedure TForm1.SpeedButton2Click(Sender: TObject);

var

j:Integer;

begin

with StringGrid1 do

begin

for j:=1 to 5 do

begin

Cells[j-1,0]:='';

end;

end;

with StringGrid2 do

begin

for j:=1 to 5 do

begin

Cells[j-1,0]:='';

end;

end;

end;

Примеры использования многомерных массивов

Многомерные массивы – массивы, элементами которых являются массивы.

Например, двумерный массив можно описать так:

Var

A1:array [1..10] of array [1..3] of Integer;

Следующая запись аналогична первой, но выглядит компактнее:

Var

A1:array [1..10,1..3] of Integer;

Можно сначала определить соответствующий тип, а затем – переменные или типизированные константы этого типа:

Type

Ar = array [1..4, 1..3, 1..2] of Integer;

Var

A1,A2: Ar;

Const

A3: Ar = (((0, 1),(2, 3),(4, 5)),

((6, 7),(8, 9),(10,11)),

((12,13),(14,15),(16,17)),

((18,19),(20,21),(22,23)));

......

Данный массив можно изобразить графически.

Пример 7.8. Заполнить матрицу посредством ввода её элементов в таблицу (компонент StringGrid1), для контроля вывести элементы матрицы в таблицу (StringGrid2).

Приложение во время выполнения

Дата добавления: 2015-07-10