Составить программу упорядочения элементов второго столбца по убыванию массива X(K, L),...

Question

Составить программу упорядочения элементов второго столбца по убыванию массива X(K, L), K>=4, L>=4 методом пузырька. в basic

Comments

в basic

Answer 1

MS DOS QBasic 1.0:

CLS
RANDOMIZE TIMER
INPUT "K = ", K
INPUT "L = ", L
DIM X!(K, L)
FOR i = 1 TO K
    FOR j = 1 TO L
        X(i, j) = RND * 21 - 10
        PRINT USING "###"; X(i, j);
        PRINT ; " ";
    NEXT j
    PRINT
NEXT i
FOR i = 1 TO L * 4 - 1
    PRINT ; "_";
NEXT i
PRINT
FOR N = 1 TO L
    FOR i = 1 TO L - N - 1
        IF X(i, 2) < X(i + 1, 2) THEN
        B = X(i, 2)
        X(i, 2) = X(i + 1, 2)
        X(i + 1, 2) = B
        END IF
    NEXT i
NEXT N

FOR i = 1 TO K
    FOR j = 1 TO L
        PRINT USING "###"; X(i, j);
        PRINT " ";
    NEXT j
    PRINT
NEXT i
END