Упорядочить строки матрицы по возрастанию сумм их элементов - QBasic (27861)

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

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

                    Листинг программы
                
 
                        
                          
                    
INPUT "Enter the value of N"; N
INPUT "Enter the value of M"; M
DIM X(N, M)
FOR i = 1 TO N
FOR j = 1 TO M
INPUT ; " "; X(i, j)
NEXT j
PRINT
NEXT i

А дальше не могу понять( Путаюсь и не запускается программа.

Решение задачи: «Упорядочить строки матрицы по возрастанию сумм их элементов»

textual
                            Листинг программы 
                        
 
                        
                          
                    
CLS
INPUT "enter n: ", n
INPUT "enter m: ", m
DIM x(n, m)
FOR i = 1 TO n
    FOR j = 1 TO m
        PRINT "enter x("; i; ","; j; ")";
        INPUT ": ", x(i, j)
    NEXT
NEXT
FOR i = 1 TO n
    FOR j = 1 TO m
        PRINT x(i, j);
    NEXT
    PRINT
NEXT
FOR i = 1 TO n
    FOR j = 1 TO m
        x(i, 0) = x(i, 0) + x(i, j)
    NEXT
NEXT
FOR i = 1 TO n
    min = x(i, 0)
    q = i
    FOR u = i + 1 TO n
        IF x(u, 0) < min THEN min = x(u, 0): q = u
    NEXT
    IF q <> i THEN
        FOR j = 1 TO m
            SWAP x(i, j), x(q, j)
        NEXT
    END IF
NEXT
PRINT "new matrix: "
FOR i = 1 TO n
    FOR j = 1 TO m
        PRINT x(i, j);
    NEXT
    PRINT
NEXT

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

12 голосов , оценка 4.167 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы