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

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

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

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

textual
                            Листинг программы 
                        

                            Function isSym(A() as Integer) As boolean
   isSym=True
   for i%=1 to Ubound(A,1)
       for j%=1 to Ubound(A,2)
            If A(i%,j%) <> A(j%,i%) then
               isSym=False
               Exit Function
            End if
       Next j%
   Next i%  
End Function
                        

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

12 голосов , оценка 4.417 из 5

Похожие ответы