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