1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 | CLSDIM A(4, 4) DATA 1, 2, 0.5, 3 DATA -1, 0.5, 2, -1.5 DATA 1.7, 0.3, 1, 2 DATA 2, -1, 0, 0.7 ' Прочтем массивFOR iy = 1 TO 4: FOR ix = 1 TO 4 READ A(ix, iy) PRINT A(ix, iy);NEXT: PRINT : NEXT: PRINT ' Поменяем столбцы местамиFOR iy = 1 TO 4 SWAP A(1, iy), A(2, iy)NEXT ' Выведем результатFOR iy = 1 TO 4: FOR ix = 1 TO 4 PRINT A(ix, iy);NEXT: PRINT : NEXT |
Тестирование выполнено в программе QB64 ( Скачать )