Определить, является ли заданная целая квадратная матрица 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