Массивы в языке 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;

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

________________________________ Randomize; For k:=1 to n do begin A[k]:= (b-a)*random + a; end;

_______________________________ Randomize; For i:=1 to m do For j:=1 to n do begin A[i,j]:= (b-a)*random + a; end;

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.

Дата добавления: 2015-11-03