all tasks

2013-04-11 01:07:29 -07:00 · 2013-04-11 01:07:29 -07:00 · 68f8f3e56b
commit 68f8f3e56b
parent b83f433714
14735 changed files with 178959 additions and 0 deletions
--- a/Task/Sorting-algorithms-Bubble-sort/PureBasic/sorting-algorithms-bubble-sort.purebasic
+++ b/Task/Sorting-algorithms-Bubble-sort/PureBasic/sorting-algorithms-bubble-sort.purebasic
@ -0,0 +1,15 @@
+Procedure bubbleSort(Array a(1))
+  Protected i, itemCount, hasChanged
+
+  itemCount = ArraySize(a())
+  Repeat
+    hasChanged = #False
+    itemCount - 1
+    For i = 0 To itemCount
+      If a(i) > a(i + 1)
+        Swap a(i), a(i + 1)
+        hasChanged = #True
+      EndIf
+    Next
+  Until hasChanged = #False
+EndProcedure