all tasks

Task/Sorting-algorithms-Bubble-sort/BASIC256/sorting-algorithms-bubble-sort.basic256

@@ -0,0 +1,24 @@
+Dim a(11): ordered=false
+print "Original set"
+For n = 0 to 9
+a[n]=int(rand*20+1)
+print a[n]+", ";
+next n
+#algorithm
+while ordered=false
+   ordered=true
+   For n = 0 to 9
+      if a[n]> a[n+1] then
+          x=a[n]
+          a[n]=a[n+1]
+          a[n+1]=x
+          ordered=false
+       end if
+    next n
+end while
+
+print
+print "Ordered set"
+For n = 1 to 10
+print a[n]+", ";
+next n