Вычисление минимального и максимального элементов в одномерных массивах

Вычисление суммы, произведения и количества элементов в одномерном массиве

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

Для распечатки полученного массива на рабочий лист Excel используется следующая конструкция:

For i = 1 To n

Cells(k, i) = A(i) ‘ вывод массива в ячейки электронной таблицы

Next i ‘ k – номер строки для заполнения ячеек.

Вместо переменной k можно использовать конкретное значение, например 3, тогда массив распечатается в третьей строке рабочего листа.

После заполнения ячеек их содержимое можно посмотреть, свернув окно программного кода при помощи кнопки “Свернуть” или переключившись в окно Excel с помощью соответствующей кнопки на панели задач.

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

Например, в одномерном массиве, состоящем из пяти элементов, для вычисления суммы следует записать следующее:

sum = 0

For i = 1 To 5

sum = sum + A(i)

Next i

MsgBox (sum)

Для вычисления произведения:

pr = 1

For i = 1 To 5

pr = pr * A(i)

Next i

MsgBox (pr)

Для вычисления количества:

kol = 0

For i = 1 To 5

kol = kol + 1

Next i

MsgBox (kol)

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

Пример

Задан целочисленный массив А, состоящий из N элементов. Вычислить среднее арифметическое четных элементов и среднее геометрическое нечетных элементов.

Программный код

Option Explicit

Sub PR16()

Dim i As Integer, S As Integer

Dim K1 As Integer, K2 As Integer, N As Integer

Dim PR As Double, SA As Double, SG As Double

Dim A(50) As Integer

N = Val(InputBox("Введите N"))

S = 0: PR = 1: K1 = 0: K2 = 0

For i = 1 To N

A(i) = Cells(1, i)

Next i

For i = 1 To N

If A(i) mod 2 = 0 Then

S = S + A(i) ‘ вычисление суммы и

K1 = K1 + 1 ‘ количества четных элементов

End If

If A(i) mod 2 < > 0 Then

PR = PR * A(i) ‘ вычисление произведения и

K2 = K2 +1 ‘ количества нечетных элементов

End If

Next i

MsgBox("S=" & S & " K1=" & K1)

MsgBox("PR=" & PR & " K2=" & K2)

If K1 < > 0 Then

SA = S / K1 ‘ вычисление среднего арифметического

MsgBox("SA=" & SA)

Else

MsgBox("четных элементов нет")

End If

If K2 < > 0 And PR>0 Then

SG = PR ^ (1 / K2) ‘ вычисление среднего геометрического

MsgBox("SG=" & SG)

Else

MsgBox("нечетных элементов нет")

End If

End Sub

При вычислении минимального или максимального элементов в одномерном массиве должны выполняться следующие условия:

Y(i), если Y(i) > Max;

Max =

Max, если Y(i) £ Max.

Y(i), если Y(i) < Min;

Min =

Min, если Y(i) ³ Min.

За первоначальное значение максимального элемента можно принять очень маленькое число или первый элемент массива, а за первоначальное значение минимального элемента – очень большое число или первый элемент массива, т.е., например, если массив состоит из целых чисел, то

Max = – 32000 или Max = Y(1),

Min = 32000 или Min = Y(1).

Пример 1

Прочитать с рабочего листа Excel одномерный массив. Вычислить минимальный и максимальный элементы этого массива и поменять их местами. Новый массив поместить на тот же лист ниже первого. Минимальный и максимальный элементы также напечатать на рабочем листе.

Программный код

Sub PR17()

Dim A(10) As Integer

Dim i As Integer, R As Integer

Dim Min As Integer, Max As Integer, IMin As Integer, IMax As Integer

For i = 1 To 10

A(i) = Cells(1, i) ‘ ввод массива

Next i

Min = 32000: Max = –32000

For i = 1 To 10

If A(i) > Max Then

Max = A(i) ‘ вычисление максимума

IMax = i ‘ и его номера

End If

If A(i) < Min Then

Min = A(i) ‘ вычисление минимума

IMin = i ‘ и его номера

End If

Next i

Cells(2, 1) = "Max="

Cells(2, 2) = Max

Cells(2, 4) = "IMax"

Cells(2, 5) = IMax

Cells(3, 1) = "Min="

Cells(3, 2) = Min

Cells(3, 4) = "IMin"

Cells(3, 5) = IMin

R = A(IMax) ‘ меняем местами

A(IMax) = A(IMin) ‘ максимальный и

A(IMin) = R ‘ минимальный элементы

For i = 1 To 10

Cells(5, i) = A(i) ‘ вывод массива

Next i

End Sub

В результате работы этой программы на рабочем листе Excel появятся следующие данные (рис. 5).

Рис. 5. Вычисление минимального и максимального элементов массива

Пример 2

Задан одномерный массив Х(N). Вычислить максимальный из отрицательных элементов этого массива.

Программный код

Sub PR18()

Dim Х(100) As Integer

Dim i As Integer, N As Integer, Max As Integer

N = Val(InpurBox(“Введите N”))

For i = 1 To 10

Cells(1, i) = Int(Rnd * 100 – 50)

X(i) = Cells(1, i)

Next i

Max = –32000

For i = 1 To 10

If X(i) > Max And X(i) < 0 Then Max = X(i)

Next i

MsgBox(“Max=” & Max)

End Sub