Массивы

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

Описание типа массив производится в разделе описаний и имеет следующий формат.

Type

<имя типа>=array <диапазон индексов> of <имя базового типа>;

Диапазон индексов определяет количество измерений и набор значений каждого из них.

Диапазон индексов задается перечисляемым типом и является чаще всего отрезком такого типа. Применение в качестве индексов отрезков типа Char или определенного пользователем перечисляемого типа повышает наглядность и, в некоторых случаях, упрощает программирование. Однако все реальные потребности могут быть покрыты применением отрезков целого типа.

Пример

Type Ar1=array [1..20] of real;

Ar2=array ['a'..'z'] of integer;

Ar3=array [1..10,1..5] of integer;

Ar4=array [1..10] of ar1;

Приведенный пример описывает типы одномерных массивов Ar1, Ar2, двумерный массив Ar3 и массив Ar4, компонентами которого являются одномерные массивы типа Ar1.

Описание переменных имеющих тип массив может выглядеть следующим образом:

Var A:ar1;

B:ar4;

C:ar3;

Доступ к компонентам массивов производится указанием в квадратных скобках выражений, определяющих значение индекса.

Для приведенного выше примера описания переменных возможны следующими способами.

1. A[1]:=3.5;

2. B[6]:=A;

3. B[5][4]:=A[3];

4. C[2,4]:=10;

Для массива массивов возможны присваивания приведенные во втором примере. Для массива имеющего в качестве базового типа сложный (B типа Ar4) обращение к компонентам вложенного типа производится через приписывание справа дополнительных скобок с указанием индекса.

Пример

Program NF3;

Type Ar=array[1..20] of real;

Var N,m:integer;

A:Ar;

Function nff1(k:integer):real;

Var

I:integer;

X:real;

Begin

X:=1;

For I:=1 to k do

X:=X*I;

nff1:=X

end;

Begin

Write('N=');

Readln(N);

For m:=1 to N do

Begin

A[m]:=nff1(m);

Writeln(A[m])

end

End.

Приведенный выше пример программы формируем и распечатывает массив значений факториала.