ТОР 5 статей: Методические подходы к анализу финансового состояния предприятия Проблема периодизации русской литературы ХХ века. Краткая характеристика второй половины ХХ века Характеристика шлифовальных кругов и ее маркировка Служебные части речи. Предлог. Союз. Частицы КАТЕГОРИИ:
|
Вычисление суммы, произведения, количества, минимума и максимума в двумерных массивах
Сумма, произведение, количество, минимум и максимум в двумерных массивах вычисляются точно также, как и в одномерных, только после задания начальных значений нужно открыть не один, а два цикла (по строкам и по столбцам).
S = 0: P = 1: K = 0: Min = 32000: Max = – 32000 For i = 1 To N For j = 1 To N S = S + x(i, j) P = P * x(i, j) K = K + 1 If x(i, j) < Min Then Min = x(i, j) If x(i, j) > Max Then Max = x(i, j) Next j Next i
Пример Задана целочисленная матрица X(5, 5). Вычислить значение выражения
,
где Р – произведение четных элементов матрицы, S – сумма нечетных элементов, Max – максимальный из положительных элементов, iMin, jMin – номер строки и столбца минимального элемента матрицы.
Программный код
Option Explicit Sub PR23() Dim X(5, 5) As Integer Dim i As Integer, j As Integer Dim T As Double, S As Double, P As Double, Q As Double Dim Max As Integer, Min As Integer Dim iMin As Integer, jMin As Integer ‘ очистка ячеек электронной таблицы Range(Cells(1, 1), Cells(100, 100)).Select Selection.Clear Cells(1, 1).Select ‘ ввод матрицы For i = 1 To 5 For j = 1 To 5 Cells(i, j) = Int(Rnd * 100 - 50) X(i, j) = Cells(i, j) Next j Next i P = 1: S = 0: Max = -32000: Min = 32000 For i = 1 To 5 For j = 1 To 5 If X(i, j) Mod 2 = 0 Then P = P * X(i, j) If X(i, j) Mod 2 <> 0 Then S = S + X(i, j) If X(i, j) > 0 And X(i, j) > Max Then Max = X(i, j) If X(i, j) < Min Then Min = X(i, j) iMin = i jMin = j End If Next j Next i T = P * S - Max * iMin * jMin If T >= 0 Then Q = Sqr(T) MsgBox ("Q=" & Q) Else MsgBox ("нет решения") End If End Sub Не нашли, что искали? Воспользуйтесь поиском:
|