2.3. Использование счетчика

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

  

{Определим количество положительных элементов Count (типа Integer)}

Count := 0; {Подготовка переменной Count для суммирования!!!}

for i: =1 to m do {Поочередно фиксируем номер строки матрицы}

for j: =1 to n do {Проходим по столбцам матрицы}

if A[i,j] > 0 then {Определение положительного элемента}

Count:=Count+1; {Увеличение счетчика положительных эл-тов}

{После выполнения циклов в Count находится кол-во положит. эл-тов массива A}

  

Кроме этого, теперь Вы можете использовать этот алгоритм для определения:

1. числа отрицательных или нулевых элементов;

2. числа элементов, равных заданному числу;

3. числа элементов массива, содержащих числа превышающие или не превышающие заранее заданное число;

4. числа элементов, содержащих значения, находящиеся в заданном интервале и т.д.

2.4. Определения максимального или минимального элемента

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

{Определим максимальный элемент массива А}

  

Max := A[1,1]; {Считаем, что первый элемент массива – максимальный }

for i: =1 to m do {Поочередно фиксируем номер строки матрицы}

for j: =1 to n do {Проходим по столбцам матрицы}

if A[i,j] > Max then {Сравниваем каждый последующий элемент}

{массива с текущим максимальным значением }

Max:= A[i,j];{Заменяем старое значение Max новым}

{После выполнения циклов в Max находится максимальное значение из массива A}

  

2.5. Работа с чётными/нечётными элементами

Ещё одним достаточно полезным алгоритмом, который может Вам понадобиться при работе с массивами, является поиск чётных/нечётных элементов целых массивов и их суммирование. Для этого в Турбо Паскале существует специальная встроенная логическая функция Odd(x), которая при целом аргументе x возвращает значение True при x нечётном и False в случае чётного числа:

... {Нахождение суммы нечетных элементов двумерного массива (матрицы)}

  

Type

MatrixType = Array[1..m,1..n] of Integer;

Var

B: MatrixType; {Целый массив для хранения матрицы}

Sum : Integer; {Целая переменная для хранения суммы}

  

{Находим сумму нечётных элементов с использованием функции Odd(i)}

Sum := 0; {Подготовка переменной Sum для суммирования!!!}

for i: =1 to m do {Поочередно фиксируем номер строки матрицы}

for j: =1 to n do {Проходим по столбцам матрицы}

if Odd(B[i,j]) then {для чётных – условие – not Odd(i)}

Sum := Sum + B[i,j]; {Суммируем нечетные эл-ты}

{После выполнения циклов в Sum находится сумма нечётных элементов массива B}

  

3. Этапы создания программы

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