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 :

Twitter