Упорядочить столбцы матрицы по убыванию произведений их элементов

@numizmat7 · Регистрация: 10.05.2015

Дана матрица целых чисел X(n, m). Упорядочить ее столбцы по убыванию произведений их элементов. Вывести исходную и полученную матрицы. Значения буквенных переменных задавать с клавиатуры.

В тупике, помогите пожалуйста.

QBasic/QuickBASIC

CLS
INPUT "N = "; N
DIM X(N, N) AS INTEGER
FOR i = 1 TO N
  FOR j = 1 TO N
    INPUT ; " "; X(i, j)
  NEXT j
  PRINT
NEXT i
PRINT : PRINT
FOR i = 1 TO N
  FOR j = 1 TO N
    PRINT USING "#####"; X(i, j);
  NEXT j
  PRINT
NEXT i
FOR j=1 TO N

echs · 21.05.2016, 14:25

Программа проверена

QBasic/QuickBASIC

CLS
n = 4
m = 6
DIM x(1 TO n, 1 TO m) AS INTEGER
DIM y(1 TO m) AS INTEGER
 
RANDOMIZE TIMER
 
FOR i = 1 TO n
FOR j = 1 TO m
   x(i, j) = 9 * RND
   PRINT x(i, j);
NEXT j: PRINT
NEXT i: PRINT
 
FOR j = 1 TO m
   y(j) = 1
NEXT j
 
FOR j = 1 TO m
FOR i = 1 TO n
   y(j) = y(j) * x(i, j)
NEXT i, j
 
FOR j = 1 TO m - 1
FOR k = j + 1 TO m
   IF y(j) < y(k) THEN
      SWAP y(j), y(k)
      FOR i = 1 TO n
         SWAP x(i, j), x(i, k)
      NEXT i
   END IF
NEXT k
NEXT j
 
FOR i = 1 TO n
FOR j = 1 TO m
   PRINT x(i, j);
NEXT j: PRINT
NEXT i
END

Опции темы