To sort numbers in ascending order (Qbasic Code)

To sort numbers in ascending order (Qbasic Code)
  • CLS
    FOR i = 1 TO 5
        INPUT "Enter the numbers"; n(i)
    NEXT i
    FOR p = 5 TO 1 STEP -1
        FOR q = 1 TO p - 1
            IF n(q) > n(q + 1) THEN SWAP n(q), n(q + 1)
        NEXT q
    NEXT p
    FOR j = 1 TO 5
        PRINT n(j);
    NEXT j
    END

Share :

Facebook Twitter Google+
Back To Top

facebook main

counter

Powered by Blogger.