Индексные переменные

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

Характеристики массива:

- тип – общий тип элементов массива;

- размерность – количество индексов массива;

- диапазон – количество допустимых значений каждого индекса;

- форма – совокупность размерности и диапазонов.

Массив должен быть объявлен в разделе описания переменных:

Var имя массива : array [диапазон индексов] of тип;

Тип элементов массива может быть любым, кроме файлового; тип индексов любой порядковый тип.

Пример:

A: array [1..5, 1..5] of real;

X: array [1..10] of integer;

После объявления массива каждый его элемент можно обрабатывать, указав идентификатор (имя) массива и индекс элемента в квадратных скобках. Например, запись Mas[3], Vector[10] позволяет обратиться к третьему элементу массива Mas и десятому элементу массива vector. При работе с двумерными массивами указываются два индекса. Например, запись Matr[4, 6] делает доступным для обработки значение элемента, находящегося в четвертой строке шестого столбца массива Matr.

Рассмотрим типичные ситуации, возникающие при работе с данными типа array. Для этого опишем три массива и четыре вспомогательные переменные.

Var A, D: ARRAY [1..4] OF REAL;

B: ARRAY [1..10, 1..15] OF INTEGER;

I, J, K: INTEGER;

S:REAL;

Паскаль не имеет средств ввода-вывода элементов массива сразу, поэтому ввод-вывод значений производится поэтапно. Значения элементам массива можно присвоить с помощью оператора присваивания, однако чаще всего они вводятся с экрана с помощью оператора read или readln с использованием оператора цикла for:

For i:=1 to 4 do readln(a[i]);

Аналогично значения элементов двумерного массива вводятся с помощью сложенного оператора for:

For i:=1 to 10 do

For j:=1 to 15 do

Read(b[I, j]);

Можно ввести значения и отдельных элементов, а не всего массива. Так операторами read(A[3]), readln(b[6, 9]) вводятся значения третьего элемента вектора А и значения элемента, расположенного в шестой строке девятого столбца матрицы В.

Вывод значений элементов массива выполняется аналогичным образом, но используются операторы write и writeln:

For i:=1 to 4 do

Write(A[i]); writeln;

Или

For i:=1 to 10 do begin

For j:=1 to 15 do

Write(b[I, j]); writeln; end;

Иногда требуется осуществить поиск в массиве каких-либо элементов, удовлетворяющих неким условиям. Пусть, например, надо выяснить, сколько элементов массива А имеют нулевое значение. Для ответа на этот вопрос введем дополнительную переменную к и воспользуемся операторами for и if:

K:=0;

For i:=1 to 4 do

If a[i]=0 then k:=k+1;

После выполнения цикла переменная к будет содержать количество элементов массива А с нулевыми значениями.

Пример 1.Составить программу, которая формирует двумерный массив по формуле и выводит его на экран.

Program massiv_1;

Var Mas:array[1..5, 1..5] of real;

I, j:integer;

Begin

For i:1 to 5 do begin

For j:=1 to 5 do begin

Mas[I,j]:=sin(i*j)+cos(i/j);

Write(mas[I, j]:6:2);

End;

End;

End.

Пример 2. Составить программу, которая формирует вектор случайных чисел, выполняет поиск максимального элемента, а затем выводит на экран его значение и порядковый номер в векторе.

Program massiv_2;

Var mas:array[1..20] of integer;

I, max, nim:integer;

Begin

Randomize;

For i:1 to 20 do begin

Mas[i]:=random(99)+1;

Write(mas[i]:6);

End; writeln;

Max:=-100000000;

For i:=1 to 20 do

If mas[i]>max then begin

Max:=mas[i]; nim:=I;

End;

Writeln(‘max=’, max:6, ‘ nom=’, nom:2);

End.

Пример 3. Составить программу, которая сортирует по возрастанию целочисленный массив и выводит его на экран.

Program massiv_3;

Const n=10;

M:array[1..n] of integer=(9, 11, 12, 3, 19, 1, 5, 17, 10, 18);

Var s, I, j:integer;

Begin

For i:=1 to n-1 do

For j:=i+1 to n do

If m[i]>m[j] then begin

S:=m[i];

M[i]:=m[j];

M[j]:=s;

End;

For i:=1 to n do

Write(m[i]:6); writeln;

End.

Пример 4. Составить программу, которая сортирует по убыванию двумерный массив целых чисел (сортировка по строкам).

Program massiv_4;

Const n=4;

M:array[1..n, 1..4] of integer=((3,2,4,1),(5,7,6,8),(9,11,10,12),(15,14,16,13));

Var i, j, k:integer;

Buffer:integer;

Begin

For k:=1 to n do

For j:=1 to n-1 do

For j:=i+1 to n do

If m[k, i]<m[k, j] then begin

Buffer:=m[k, i];

M[k, i]:=m[k, j];

M[k,j]:=buffer;

End;

For i:=1 to n do begin

For j:=1 to n do

Write(m[i, j]:6); writeln;

End;

End.

Пример 5. Составить программу, которая формирует вектор и вычисляет значение среднего арифметического его элементов, больших, чем 10.

Program massiv_5;

Const n=5;

Var d:array [1..n] of integer;

I, k:integer;

S:real;

Begin

Randomize;

For i:=1 to n do begin

D[i]:=random(100);

Write(d[i]);

End; writeln;

K:=0; s:=0;

For i:=1 to n do

If d[i]>10 then begin

S:=s+d[i];

K:=k+1;

End;

S:=s/k;

Writeln(‘s=’, s:6:2);

End.