Quite BASIC -- Bubble Sort

Output

Canvas

BASIC Program

REM Quite BASIC Computer Science Project
REM Bubble Sort program

REM Initialize the array
LET N = 10
ARRAY A
GOSUB 3000
REM Print the random array
PRINT "Random list:"
GOSUB 4000
REM Sort the array
GOSUB 2000
PRINT "Sorted list:"
REM Print the sorted array
GOSUB 4000
END

REM Bubble sort the list A of length N
FOR I = 1 TO N - 1
FOR J = 1 TO N - I
IF A[J] <= A[J+1] THEN GOTO 2070
LET X = A[J]
LET A[J] = A[J+1]
LET A[J+1] = X 
NEXT J
NEXT I
RETURN

REM Create a random list of N integers
FOR I = 1 TO N
LET A[I] = FLOOR(RAND(100))
NEXT I
RETURN 

REM PRINT the list A
FOR I = 1 TO N
PRINT A[I];
PRINT ", ";
NEXT I
PRINT
RETURN
      
  

Controls

Line:

Expr:

Value:

>QUITE BASIC
>

fun and learning for smart kids

nostalgia for the rest of us

>QUITE BASIC>

fun and learning for smart kids

nostalgia for the rest of us

>QUITE BASIC
>