Sorting algorithms/Bubble sort: Difference between revisions
→{{header|FTCBASIC}}
Basicgames (talk | contribs) |
Basicgames (talk | contribs) |
||
Line 1,402:
==={{header|FTCBASIC}}===
<syntaxhighlight lang="basic">
use random.inc
define sorting = 0, index = 0, size = 0
dim list[10]▼
define timestamp = 0, sorttime = 0
define temp1 = 0, temp2 = 0
cls
print "Bubble sort benchmark test"
print "How many elements to generate and sort (max 32000)? " \
input size
gosub fill
gosub sort
print sorttime
print "Press any key to view sorted data..."
pause
gosub output
Line 1,414 ⟶ 1,434:
sub fill
print "filling..."
0 index
Line 1,419 ⟶ 1,441:
do
gosub generaterand
▲ print ": " \
+1 index
Line 1,432 ⟶ 1,452:
sub sort
print "sorting..."
gosub systemtime
let timestamp = loworder
do
Line 1,459 ⟶ 1,484:
loop sorting = 1
gosub systemtime
let sorttime = ( loworder - timestamp ) / 18
return
sub output
print "printing..."
0 index
Line 1,468 ⟶ 1,498:
do
▲ print ": " \
print @list[index]
| |||