Sorting algorithms/Bubble sort: Difference between revisions
→{{header|FTCBASIC}}
Basicgames (talk | contribs) |
|||
Line 1,402:
==={{header|FTCBASIC}}===
<syntaxhighlight lang="basic">
rem compile with FTCBASIC
use time.inc
use random.inc
define
define sorting = 0, index = 0, elements = 0
define timestamp = 0, sorttime = 0
define temp1 = 0, temp2 = 0
▲dim list[32000]
cls
print "Bubble sort benchmark test"
print "How many elements to generate and sort (max 32000)? " \▼
do
print size \
print ")? " \
input elements
loop elements > size
gosub fill
Line 1,447 ⟶ 1,459:
+1 index
loop index <
return
Line 1,481 ⟶ 1,493:
+1 index
loop index <
loop sorting = 1
Line 1,502 ⟶ 1,514:
+1 index
loop index <
return</syntaxhighlight>
|