Определение размерности массива, заполнение массива

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

Например,

Задача 1. «Дан одномерный массив из 10 компонент...» - эта формулировка означает, что и при описании и при обработке массива всегда будут использоваться 10 ячеек.

Задача 2. «Дан массив размерность N…» - данная формулировка означает, что размерность массива будет определяться самим пользователем. Т.е. от разработчика такой программы требуется:

· определить максимальную размерность массива (как правило, вполне достаточно 100 ячеек);

· дать возможность пользователю указать количество требуемых ячеек (writeln(“Введите размерность массива”);

readln(n)- теперь n обозначает размерность).

 

Для того чтобы заполнить массив необходимо последовательно перебрать все ячейки (компоненты) массива и записать в них некоторые значения. Для перебора ячеек массива используется цикл for, в котором с помощью счетчика перебираются индексы ячеек. Заносимые в массив данные могут запрашиваться как с клавиатуры, так и выбираться случайным образом с помощью генератора случайных чисел Random.

 

Например,

Способ 1. Заполнение одномерного массива с клавиатуры

writeln(“Введите размерность массива”);

readln(n);

For i:=1 to n do

Begin

Writeln(“Введите ”,i,” элемент массива”);

Readln(mas[i]);

End;

 

Ход выполнения:

	i =	Writeln	Readln	Действие
Шаг 1	1	Введите 1 элемент массива	Mas[1]	Считываем число в 1 ячейку
Шаг 2	2	Введите 1 элемент массива	Mas[2]	Считываем число в 2 ячейку
Шаг 3	3	Введите 1 элемент массива	Mas[3]	Считываем число в 3 ячейку
…	…	…	…	…
Шаг n	n	Введите n элемент массива	Mas[n]	Считываем число в последнюю ячейку

 

Способ 2. Заполнение массива случайными числами

writeln(“Введите размерность массива”);

readln(n);                  {определяем размерность массива}

Randomize;                {включаем генератор случайных чисел}

For i:=1 to n do           {начинаем перебирать массив}

Mas[i]:=random(100)    {выбор любого числа из указанного диапазона и размещение его в массиве}

 

Ход выполнения:

	i =	Random	Mas[i]	Действие
Шаг 1	1	Любое число до 100	Любое число до 100	Считываем выбранное число в массив
Шаг 2	2	Любое число до 100	Любое число до 100	Считываем число в 2 ячейку
Шаг 3	3	Любое число до 100	Любое число до 100	Считываем число в 3 ячейку
…	…			…
Шаг n	n	Любое число до 100	Любое число до 100	Считываем число в последнюю ячейку

 

Примечание: в случае, если размерность массива известна заранее, то чикл for выполняется от 1 до определенного числа.

Например, for i :=1 to 5 do – перебор 5 ячеек массива.

 

Вывод массива на экран

Для вывода массива необходимо последовательно перебрать все ячейки (компоненты) массива и вывести лежащие там значения на экран с помощью оператора write / writeln.

Оператор write выведет значения массива в строку

Оператор writeln выведет значения массива в столбец

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

 

Способ 1. Вывод одномерного массива размерностью 3 с помощью оператора writeln

Writeln(‘Массив’);

For i:=1 to 3 do

Массив 1 2 3

Writeln(mas[i]);

 

Экранное представление

 

Способ 2. Вывод одномерного массива размерностью 3 с помощью оператора write

Writeln(‘Массив:’);

For i:=1 to 3 do

Массив 1 2 3

Write(mas[i],’ ‘);

 

Экранное представление

Поиск требуемого элемента в массиве

Общий алгоритм поиска в массиве определенного элемента можно представить следующим образом:

 

Рисунок 1. Блок-схема поиска требуемого элемента в массиве

 

Например,

Дан одномерный массив из 7 ячеек. Определить, сколько в нем чисел кратных 7.

Var

mas:array[1..7] of integer;

i:integer;          {необходима для перебора массива}

kol:integer;      {количество подходящих элементов}

begin

for i:=1 to 7 do

begin

write(‘Введите’ ,i, ‘ элемент’);

readln(mas[i]); {заполняем массив}

if (mas[i] mod 7 =0) and (mas[i]<>0) then kol:=kol+1 

{если элемент делится на 7 и в остатке ноль и при этом сам элемент не равен нулю, то увеличиваем счетчик kol}

end;

writeln(“Количество чисел кратных 7 -”, kol) {вывод результата}

end.

 

Ход выполнения:

9	-7	0	14	5	21	-5	Элементы
1	2	3	4	5	6	7	Индексы

Введенный массив

 

 

	i =	Readln(mas[i])	Проверка (mas[i] mod 7 =0) and (mas[i]<>0)	Действие
Шаг 1	1	Mas[1]=9	ложь	Kol=0
Шаг 2	2	Mas[2]=-7	истина	Kol=0+1
Шаг 3	3	Mas[3]=0	ложь	Kol=1
Шаг 4	4	Mas[4]=14	истина	Kol=1+1
Шаг 5	5	Mas[5]=5	ложь	Kol=2
Шаг 6	6	Mas[6]=21	истина	Kol=2+1
Шаг 7	7	Mas[7]= -5	ложь	Kol=3
Вывод результата на экран