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

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

Определить является ли целочисленная матрица симметричной относительно главной диагонали. При отсутствии симметрии заменить элементы на минимальный из них. Сформировать матрицу 7х7 элементов, заполненную согласно схеме. Вывести ее на экран, развернув на 90 градусов по часовой стрелке.

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

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

                            Function isSym(M() as integer) As Boolean
  for i%=1 to Ubound(M,1)-1
      for j%=i%+1 to Ubound(M,1)
           if M(i%,j%) <> M(j%,i%) then
              isSym=False
              Exit function
           End if
      Next j%
   Next i%
   isSym=True
End Function
                        

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

11 голосов , оценка 3.727 из 5

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