Поменять местами элементы матрицы симметрично относительно горизонтальной оси симметрии - QBasic
Формулировка задачи:
В матрице B(m,m) поменять местами элементы матрицы симметрично относительно горизонтальной оси симметрии.
Решение задачи: «Поменять местами элементы матрицы симметрично относительно горизонтальной оси симметрии»
textual
Листинг программы
- CLS
- RANDOMIZE TIMER
- m = 7
- DIM B(1 TO m, 1 TO m) AS INTEGER
- FOR i = 1 TO m
- FOR j = 1 TO m
- B(i, j) = 80 * RND - 40
- PRINT USING "####"; B(i, j);
- NEXT j: PRINT
- NEXT i: PRINT
- FOR j = 1 TO m
- FOR i = 1 TO m \ 2
- SWAP B(i, j), B(m + 1 - i, j)
- NEXT i, j
- FOR i = 1 TO m
- FOR j = 1 TO m
- PRINT USING "####"; B(i, j);
- NEXT j: PRINT
- NEXT i
- END
Объяснение кода листинга программы
Вот список действий, которые выполняет данный код:
- Устанавливает начальное значение для переменной m (7).
- Создает двумерный массив B размером 1x1 до 7x7.
- Заполняет массив B случайными числами от 0 до 79 с шагом 80.
- Выводит на экран первую строку массива B.
- Затем он выводит на экран каждую строку массива B.
- Затем он меняет местами элементы массива B, начиная со второй строки, и выводит на экран результат.
- Выводит на экран последнюю строку массива B.
- Код заканчивается.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
