ТОР 5 статей: Методические подходы к анализу финансового состояния предприятия Проблема периодизации русской литературы ХХ века. Краткая характеристика второй половины ХХ века Характеристика шлифовальных кругов и ее маркировка Служебные части речи. Предлог. Союз. Частицы КАТЕГОРИИ:
|
Диагональное вычисление в матрице
Задана матрица Y(n, n). Вычислить сумму элементов в IV четверти, произведение четных элементов во II четверти, поменять местами минимальный элемент в I четверти и максимальный элемент в III четверти (рис. 10).
Рис. 10. Диагональное вычисление в матрице
Программный код
Option Explicit Sub PR24() Dim Y(50, 50) As Integer Dim n As Integer Dim i As Integer, j As Integer Dim R As Integer Dim S As Double Dim P As Double Dim Min As Integer Dim Max As Integer Dim iMin As Integer, jMin As Integer Dim iMax As Integer, jMax As Integer n = Val(InputBox("введите n")) ‘ очистка ячеек Range(Cells(1, 1), Cells(100, 100)).Select Selection.Clear Cells(1, 1).Select ‘ ввод матрицы For i = 1 To n For j = 1 To n Cells(i, j) = Int(Rnd * 100 - 50) Y(i, j) = Cells(i, j) Next j Next i P = 1: S = 0: Max = –32000: Min = 32000 For i = 1 To n For j = 1 To n If (i + j < n + 1) And (i > j) Then S = S + Y(i, j) If (Y(i, j) Mod 2 = 0) And (i < j) And (i + j > n + 1) Then P = P * Y(i, j) If (Y(i, j) > Max) And (i > j) And (i + j > n + 1) Then Max = Y(i, j) iMax = i jMax = j End If If (Y(i, j) < Min) And (i < j) And (i + j < n + 1) Then Min = Y(i, j) iMin = i jMin = j End If Next j Next i Cells(n + 2, 1) = "Сумма=" Cells(n + 2, 3) = S Cells(n + 3, 1) = "Произведение=" Cells(n + 3, 3) = P ‘ Перестановка минимума и максимума R = Y(iMax, jMax) Y(iMax, jMax) = Y(iMin, jMin) Y(iMin, jMin) = R Cells(n + 5, 1) = "новая матрица" For i = 1 To n For j = 1 To n Cells(n + i + 6, j) = Y(i, j) Next j Next i End Sub Не нашли, что искали? Воспользуйтесь поиском:
|