Массивы в языке Delphi

Массив – это упорядоченная по индексам конечная совокупность однотипных объектов, образованных по одному и тому же правилу. Если для индексирования элементов массива используется один индекс, то массив называется одномерным, если два или несколько, то многомерным. Для индексации элементов двумерного массива указывается два индекса: номер строки и номер столбца.

При работе с массивами, каждому массиву дается имя. Работа с массивом – это работа с элементами массива. Элементу массива дается имя, соответствующее имени массива, и указывается в квадратных скобках порядковый номер этого элемента в массиве.

Очевидно, чтобы задать массив (таблицу), необходимо:

1. указать, что однотипные объекты объединены в массив (таблицу);

2. указать имя массива (таблицы), начальный и конечный порядковые номера индексов его (ее) элементов;

3. указать тип значений элементов массива (таблицы).

Массивы имеют размер и размерность. Размер массива - количество элементов в данном массиве. Размерность – количество индексов необходимых для однозначного определения места фиксированного элемента массива.

Описание массива:

1) Type

< имя типа - массив> =array [< список значений индексов элементов массива, указанных через запятую> ] of < тип элементов массива>;

Var

< имя массива 1>, …, < имя массива n>: < имя типа – массив>;

2) Var

< имя массива 1>, …, < имя массива n>: array[< список значений индексов элементов массива, указанных через запятую> ] of< тип элементов массива>;

Array-массив, of-из;

В качестве типов индексов элементов массива в Delphi можно использовать любой порядковый тип. Обычно используют интервальный тип (тип-диапазон). Индексы у переменных могут задаваться константами, переменными, выражениями. Одна и та же переменная с индексом в процессе выполнения программы может обозначать различные компоненты массива. Элементами массива могут быть значения любого типа данной реализации языка.

Пример:

Const n=100;

m=5;

Type

Tletter=array [1..20] of char;

Treal=array [1..3, 1..4] of real;

Matr = array [1..N, 1..5] OF byte;

Var a, b: Tletter;

C: treal;

D: array [1..n] of real;

D: array [1..m, 1.. n] of real;

D: array [byte] of word;

C: array [1..N] of integer;

Примеры фрагментов программ для ввода элементов массива

procedure TForm1.Button1Click(Sender: TObject);

Const

n=3;

Type

Tmass= array [1..n] of integer;

Var

A: tmass; k: integer;

Begin

For k: =1 to n do

Begin

a[k]: = StrToInt(InputBox('Ввод', 'Введите a['+ IntToStr(k)+'] ', ''));

End;

_______________________________________________________________

procedure TForm1.Button1Click(Sender: TObject);

Const

m=2; n=3;

Type

Tmass= array [1..m, 1..n] of integer;

Var

A: tmass; i, j: integer;

Begin

For i: =1 to m do

For j: =1 to n do

a[i, j]: = StrToInt(InputBox(' Ввод ', 'Введите элемент массива a ', ''));

End;

End.