Переставить местами столбцы матрицы - QBasic

Узнай цену своей работы

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

Всем доброго времени суток! Помогите пожалуйста написать код программы! Дан массив A(N,N). Переставить местами столбцы массива: 1<->N, 2<->(N-1)... Отсортировать предпоследний столбец в порядке возрастания.
совсем некому помочь?

Решение задачи: «Переставить местами столбцы матрицы»

textual
Листинг программы
CLS
OPTION BASE 1
CONST n = 7
DIM A(n, n) AS INTEGER
 
FOR i = 1 TO n
FOR j = 1 TO n
   A(i, j) = 9 * RND
   PRINT A(i, j);
NEXT j: PRINT
NEXT i: PRINT
 
FOR i = 1 TO n
FOR j = 1 TO n \ 2
   SWAP A(i, j), A(i, n + 1 - j)
NEXT j, i
 
FOR i = 1 TO n - 1
FOR j = i + 1 TO n
   IF A(i, n - 1) > A(j, n - 1) THEN SWAP A(i, n - 1), A(j, n - 1)
NEXT j, i
 
FOR i = 1 TO n
FOR j = 1 TO n
   PRINT A(i, j);
NEXT j: PRINT
NEXT i
END

Объяснение кода листинга программы

  1. Объявляется переменная n и присваивается ей значение 7 (количество строк и столбцов в матрице).
  2. Объявляется двумерный массив A размером n на n для хранения чисел.
  3. Заполняется массив A случайными числами от 0 до 9 с помощью функции RND.
  4. Выводится на экран содержимое матрицы A.
  5. Производится перестановка строк матрицы A с помощью цикла FOR и функции SWAP.
  6. Производится сортировка столбца n-1 матрицы A по убыванию с помощью цикла FOR и условного оператора IF.
  7. Выводится на экран отсортированное содержимое матрицы A.

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

13   голосов , оценка 3.846 из 5
Похожие ответы