Question

Нужна ваша . vba excel определить столбец матрицы в, сумма модулей элементов которого максимальна, если b=3a^2-a-7e , где e - единичная матрица, a - матрица размерности 5x5 , элементы которой определяется по формуле aij= i - j,если i=j i - 2*j если i неравно j вывести на печать указанный столбец и его номер. оформление на подобие этого! sub pr() dim a(1 to 5, 1 to 5) as single dim b(1 to 5, 1 to 5) as single dim c(1 to 5, 1 to 5) as single dim d(1 to 5) as single dim i as integer, j as integer, k as integer for i = 1 to 5 step 1 for j = 1 to 5 step 1 if i = j then a(i, j) = 5 - i - j else a(i, j) = i - j next

Answer 1

Option Explicit

Sub aaa()
    Const n = 5
    Dim A(1 To n, 1 To n) As Long, E(1 To n, 1 To n) As Long
    Dim i As Integer, j As Integer, k As Integer
    ' инициализация матриц
    For i = 1 To n
        For j = 1 To n
            If i = j Then
                A(i, j) = 0 ' глупо тут вычислять i-j
                E(i, j) = 1
            Else
                A(i, j) = i - 2 * j
                E(i, j) = 0
            End If
        Next j
    Next i
    ' A^2 - просто умножение матрицы самой на себя
    Dim B(1 To n, 1 To n) As Long
    For i = 1 To n
        For j = 1 To n
            B(i, j) = 0
            For k = 1 To n
                B(i, j) = B(i, j) + A(i, k) * A(k, j)
            Next k
        Next j
    Next i
    ' 3A^2 - A + 7E
    For i = 1 To n
        For j = 1 To n
            B(i, j) = 3 * B(i, j) - A(i, j) + 7 * E(i, j)
        Next j
    Next i
    ' Поиск столбца B с максимальной суммой модулей элементов
    Dim S As Long, Max As Long, jj As Long
    Max = -1000000
    For j = 1 To n
        S = 0
        For i = 1 To n
            S = S + Abs(B(i, j))
        Next i
        If S > Max Then
            Max = S
            jj = j
        End If
    Next j
    ' Вывод на лист Excel
    Range(Cells(1, 1), Cells(n + 1, 2)).Clear
    Cells(1, 1) = "Столбец " + CStr(jj)
    For i = 1 To n
        Cells(i + 1, 1) = B(i, jj)
    Next i
End Sub