Ввод, вывод и присваивание массивов

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

Далее будут использоваться массивы МуАггау (одномерный целочисленный массив размерности п) и MyDArray (двумерный целочисленный массив размерности п Хщ).

Ввести (заполнить значениями) массив можно непосредственным запросом значений элементов, используя операторы read или readln, например:

readln (МуАггау[3]); или readln (MyDArray[2,5]).

Если число вводимых элементов достаточно большое, то используют циклические конструкции. Примеры ввода одномерного и двумерного массивов приведены в листинге 6.2.

Листинг 6.2

for i:=l to n do begin

write ('Введите элемент массива с индексом ' i ¹ • ') •

Readln (МуАггау[i]); end;

for i:=l to n do for j: =1 to m do begin

write (' Введите элемент массива с индексами ' i ' ' i • • ¹ ) •

/ / / / j / • /t

Readln (MyDArray[i, j]);

end; .

В приведенных примерах счетчики циклов принимают значения индексов массивов, последовательно изменяясь от минимального до максимального. Для двумерного массива внешний цикл определяет значения первого индекса, внутренний — для второго. Сначала происходит заполнение элементов с индексами [1,1], [1,2],…, [ 1, ш], затем — [2,1], [2,2],…, [ 2, ш] и так далее до [П, 1], [п, 2 ][п, ш].

Также значения элементов массива могут вычисляться в процессе выполнения циклов. В листинге 6.3 приведены примеры заполнения одномерного массива нечетными значениями, случайными целыми числами от 5 до 25, а двумерного массива — суммами индексов.

for i:=1 to n do MyArray[i]:=2*i-l;

for i:=l to n do MyArray [ i ] : =random (5, 2 5); for i:=l to n do for j:=1 to m do

MyDArray[ i, j ]: =i+j;

Вывод элементов массивов осуществляется с помощью операторов вывода write или writeln, например writeln (MyArray [7]); или writeln (MyDArray [3,4 ]);.

При выводе массивов, содержащих большое количество элементов, стараются использовать так называемый дружественный вывод, когда элементы массива разделяют (например, пробелами) и применяют форматирование. Массивы с большим количеством элементов могут выводиться с принудительной разбивкой на строки для более удобного восприятия информации пользователем.

В листинге 6.4 приведены примеры различных способов дружественного вывода массивов на экран. В программе используется вспомогательный одномерный массив АггТшр из целых чисел. Результат выполнения этой части программы приведен в листинге 6.5.

Листинг 6.4

// Заполнение массивов.

for i:=1 to n do MyArray[i]: =random (5,25);

for i:=l to n do write (MyArray[i],' ');

writeln; writeln;

// Вывод массивов.

for i:=l to k do ArrTmp [ i ]:^random (5,25) ;

for i:=l to k do begin

write (ArrTmp[i], ' ^y');

if i mod 10=0 then writeln;{После каждых 10 элементов массива происходит принудительный переход на другую строку} end;

writeln;

for i:=l to k do begin

write (ArrTmp[i]: 4);

if i mod 10=0 then writeln;

end;

Дружественный вывод является предпочтительным, если пользователь программы будет воспринимать информацию визуально. Очевидно, что в рассмотренном примере данные массива наиболее наглядны в последнем случае.

Если массивы имеют одинаковую размерность и базовые типы, то возможно выполнить присваивание вида массив₁:=массив₂;.

При этом всем элементам массив₁ присваиваются такие же значения, какие имеют соответствующие элементы массив₂.

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

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

Листинг 6.6

for i: =1 to n do a [ i ]: =MyArray [ i ]; {Массиву a присваиваются значения массива MyArray}.

for i:=l to n do

for j:=1 to m do b[i, j]: =2*MyDArray[i, j];

{Массиву b присваиваются удвоенные значения элементов массива MyDArray}.

for i:=l to n do a[i]: =MyDArray[i, 3]; {Массиву a присваиваются значения третьего столбца массива MyDArray}.

for i:=1 to n do

for j:=l to m do {Обмен значениями элементов массива b и массива MyDArray} begin

tmp:=b[i, j]; {В этой переменной временно хранится значение элемента массива Ь} b[i, j]: =MyDArray[i, j] ;

MyDArray[i, j]: =tmp; {Элементу массива.

MyDArray присваивается значение временной переменной}.

end.