Суммирование и перемножение элементов массивов

↑

▷ Содержание

⇐ ПредыдущаяСтр 4 из 6Следующая ⇒

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

Пример. Найти сумму элементов одномерного массива .

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

Dim A(1 То 15) As Single, i As Integer, S As Single

'Ввод массива

• • •

S = 0 'Начальное значение суммы

For i = 1 То 15

S = S + A(i) 'Накапливание суммы

Next i

Если требуется вычислить произведение, то в приведенном фрагменте достаточно заменить начальное значение переменной на 1, а знак «+» на «*».

Пример. Вычислить произведение элементов, расположенных ниже глав­ной диагонали квадратной матрицы .

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

Для перебора элементов матрицы ниже главной диагонали организуем двойной цикл. Во внешнем цикле будем изменять номер строки. Как видно из таблицы индекс i (номер строки) для элементов ниже главной диагонали изменя­ется от 2 до 5. Во внутреннем цикле будем изменять номер столбца. Как видно, что для второй строки индекс j изменяется от 1 до 1, для третьей - от 1 до 2, для четвертой - от 1 до 3, для пятой - от 1 до 4, т. е. в общем случае - от 1 до .

Sub Massiv7()

Dim B(l To 5, 1 To 5) As Single

Dim i As Integer, j As Integer

Dim P As Single 'Произведение

'Ввод матрицы

'----------------

'Начальное значение произведения

Р = 1

For i = 2 To 5

For j = 1 To i - 1

'Накопление произведения

Р = Р * B(i, j)

Next j

Next i

End Sub

Выбор элементов из массива

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

Пример. Сформировать вектор Y, состоящий из элементов кратных трём целочислен­ного вектора .

Для решения поставленной задачи необходимо в цикле для каждого эле­мента вектора X проверить, делится ли значение элемента на 3 без остатка. Если это условие выполняется, то добавить значение элемента в вектор Y. Так как нельзя заранее точно определить количество элементов в векторе Y, то следует описать его как динамический.

Sub Massiv8()

Dim Y() As Integer

Dim n As Integer 'Количество элементов в векторе Y

Dim X(35) As Integer

Dim i As Integer

'Ввод вектора Х

'-----------------

'Формирование вектора Y

n = О

For i = 1 To 35

If X(i) Mod 3 = 0 Then n = n + 1

ReDim Preserve Y(n)

Y(n) = X(i)

End If

Next

'Вывод массива

'---------------------

End Sub

Пример. Подсчитать количество элементов матрицы , значения ко­торых лежат в диапазоне от -30 до 50.

Sub Massiv9()

Dim A(l To 6, 1 To 8) As Single

Dim i As Integer, i As Integer

Dim n As Integer 'Искомая величина

'Ввод матрицы А

'---------------------

'Подсчет количества элементов по условию задачи

п = 0

For i = 1 To 6

For j = 1 To 8

If A(i, j) >= -30 And A(i, j) <= 50 Then

   n = n + 1

End If

Next j

Next i

End Sub

Познавательные статьи:



Коммуникативные барьеры и пути их преодоления

Рынок недвижимости. Сущность недвижимости

Решение задач с использованием генеалогического метода

История происхождения и развития детской игры