Sorting algorithms/Bubble sort: Difference between revisions
Content added Content deleted
(Sorting algorithms/Bubble sort in True BASIC) |
|||
Line 2,112: | Line 2,112: | ||
:End |
:End |
||
:L<sub>1</sub> |
:L<sub>1</sub> |
||
==={{header|True BASIC}}=== |
|||
<syntaxhighlight lang="qbasic">OPTION BASE 1 |
|||
LET size = 10 |
|||
DIM nums(0) |
|||
MAT REDIM nums(size) |
|||
RANDOMIZE |
|||
PRINT "Before:"; |
|||
FOR i = 1 TO size |
|||
LET nums(i) = INT(RND*100) |
|||
PRINT USING " ##": nums(i); |
|||
NEXT i |
|||
PRINT |
|||
! Sort |
|||
LET counter = size |
|||
DO |
|||
LET changed = 0 |
|||
FOR i = 1 TO counter-1 |
|||
IF nums(i) > nums(i+1) THEN |
|||
LET tmp = nums(i) |
|||
LET nums(i) = nums(i+1) |
|||
LET nums(i+1) = tmp |
|||
LET changed = 1 |
|||
END IF |
|||
NEXT i |
|||
LET counter = counter-1 |
|||
LOOP WHILE (changed<>0) |
|||
! Display result |
|||
PRINT "After: "; |
|||
FOR i = 1 TO 10 |
|||
PRINT USING " ##": nums(i); |
|||
NEXT i |
|||
PRINT |
|||
END</syntaxhighlight> |
|||
{{out}} |
|||
<pre>Similar as QuickBASIC entry.</pre> |
|||
==={{header|uBasic/4tH}}=== |
==={{header|uBasic/4tH}}=== |