Sorting algorithms/Bubble sort: Difference between revisions
→{{header|RapidQ}}: Added a solution.
(→{{header|Minimal BASIC}}: Added a solution.) |
(→{{header|RapidQ}}: Added a solution.) |
||
Line 1,737:
Before: 22 60 45 44 54 93 84 27 21 64
After: 21 22 27 44 45 54 60 64 84 93
</pre>
==={{header|RapidQ}}===
{{trans|QuickBASIC}}
<syntaxhighlight lang="basic">
' Sorting algorithms/Bubble sort
' Prepare data
size = 10
DIM nums(1 TO size)
RANDOMIZE TIMER
PRINT "Before:";
FOR I = 1 TO size
nums(I) = INT(RND * 100)
PRINT FORMAT$(" %2d", nums(I));
NEXT I
PRINT
' Sort
counter = size
DO
changed = 0
FOR I = 1 TO counter - 1
IF nums(I) > nums(I + 1) THEN
tmp = nums(I)
nums(I) = nums(I + 1)
nums(I + 1) = tmp
changed = -1
END IF
NEXT I
counter = counter - 1
LOOP UNTIL NOT changed
' Display result
PRINT "After: ";
FOR I = 1 TO 10
PRINT FORMAT$(" %2d", nums(I));
NEXT I
PRINT
END
</syntaxhighlight>
{{out}} (2 samples)
<pre>
Before: 82 34 57 44 48 71 19 33 73 62
After: 19 33 34 44 48 57 62 71 73 82
</pre>
<pre>
Before: 4 15 96 93 27 24 9 80 10 21
After: 4 9 10 15 21 24 27 80 93 96
</pre>
| |||