Определить, является ли заданная целая квадратная матрица n го порядка симметричной (относительно главной диагонали) - VBA

Узнай цену своей работы

Формулировка задачи:

Помогите составить программу пожалуйста!

Решение задачи: «Определить, является ли заданная целая квадратная матрица n го порядка симметричной (относительно главной диагонали)»

textual
Листинг программы
Sub sdssdsd()
Dim mARR(), i&, j&
   ActiveSheet.Cells.ClearContents:  [b2:f6].Value = 1
   mARR = ActiveSheet.UsedRange.Value
   For i = LBound(mARR, 1) To UBound(mARR, 1)
      For j = i+1 To UBound(mARR, 2)
         if i<>j then
            If mARR(i, j) <> mARR(j, i) Then MsgBox "This matrix is asymmetric": Erase mARR: End
         End If
      Next 'j
   Next 'i
   Erase mARR: MsgBox "This matrix is SYMMETRIC" & Chr(13) & Chr(13) & Space(4) & "D O N E!"
End Sub

Оцени полезность:

15   голосов , оценка 4.2 из 5
Похожие ответы