Транспонируйте массив, и выведите элементы главной диагонали и диагонали, расположенной под главной - VB
Формулировка задачи:
Сформируйте двумерный массив K(8,8) по правилу:
Kij=8∙(i - j)+j. Транспонируйте массив (поменяйте местами строки и столбцы), и выведите элементы главной диагонали и диагонали, расположенной под главной, разместив их в двух строках экрана
немного наработок
Решение задачи: «Транспонируйте массив, и выведите элементы главной диагонали и диагонали, расположенной под главной»
textual
Листинг программы
CLS DIM K(8, 8) AS LONG FOR i = 1 TO 8 FOR j = 1 TO 8 K(i, j) = 8 * (i - j) + j PRINT K(i, j); NEXT: PRINT NEXT: PRINT FOR i = 1 TO 8 FOR j = i TO 8 R = K(i, j) K(i, j) = K(j, i) K(j, i) = R NEXT j, i FOR i = 1 TO 8 FOR j = 1 TO 8 PRINT K(i, j); NEXT: PRINT NEXT: PRINT FOR i = 1 TO 8 PRINT K(i, i); NEXT: PRINT FOR i = 1 TO 7 PRINT K(i + 1, i); NEXT: PRINT
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д