Организация работы с массивами.

Работа с элементами массива.

Для доступа к элементам массива необходимо указать имя массива с одним или несколькими индексами в квадратных скобках.

Общий вид:

Имя массива [<idx1>, <idx2>, …, <idxN>]

Пример.

Рассмотрим массив а из примера 1 § 3.

a[3] - значение элемента ( элемент)

3 - индекс элемента

a[3]:=-5

Рассмотрим массив * из § 3.

matr[2, 3]

matr[2, 3]:=-1.8

matr[1, 2]:=a[3]+a[5];

a[3]:=-5;

В общем случае при использовании массивов для решения различных задач выделяют этапы:

1. Объявление массива;

2. Генерация массива (инициализация - установка начальных значений);

3. Визуализация массива (первоначальный вывод на экран);

4. Обработка массива;

5. Вывод результата на экран.

1. Объявление массива( см. § 3, тема 7);

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

Различают несколько способов генерации:

1) Ввод с клавиатуры.

Пример.

var a:array[1..n] of integer;

begin

for i:=1 to n do

begin

write(‘a[‘,i,’]= ‘);

readln(a[i]);

end;

2) Генерация по формуле

Пример.

a_i =i²–i+1

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

begin

for i:=1 to n do

begin

a[i]:=i*i-i+1;

end;

3) Генерация элементов случайным образом.

Random(р) – генерация случайных чисел от 0 до p.

Пусть заданы границы изменения элементов а и b. Требуется сгенерировать массив, все элементы которого лежат в интервале от а до b.

var a:array[1..n] of integer;

begin

for i:=1 to n do

begin

a[i]:=a+Random(b-a);

4) Получение элементов массива с внешнего источника данных (файл)

3. Визуализация массива представляет собой вывод элементов массива на экран. Наиболее рациональным можно считать вывод элементов массива через пробел. Так же можно использовать процедуру gоtoхy.

Пример.

var a:array[1..n] of integer;

begin

for i:=1 to n do

begin

write(a[i],’ ‘);

end;

writeln;

4. Под обработкой понимают выполнение некоторых действий с элементами массива согласно условию задачи.

Пример.

Подсчитать количество элементов массива меньших семи.

k:=0;

for i:=1 to n do

if a[i]<7 then k:=k+1;

Подсчитать сумму элементов массива с четными индексами.

s:=0;

for i:=1 to n do

if (i mod 2)=0 then s:=s+ a[i];

5. Здесь необходимо либо вывести результат обработки массива на экран, либо вывести на экран массив, являющийся результатом обработки.

Замечание: пункты 2 - 5 должны быть оформлены в виде отдельных процедур или функций. Пункты 3 и 5 выполняют аналогичные действия, поэтому их следует оформить в виде одной универсальной процедуры.