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-Selection-sort/BBC-BASIC/sorting-algorithms-selection-sort.bbc
+++ b/Task/Sorting-algorithms-Selection-sort/BBC-BASIC/sorting-algorithms-selection-sort.bbc
@ -0,0 +1,9 @@
+DEF PROC_SelectionSort(Size%)
+FOR I% = 1 TO Size%-1
+   lowest% = I%
+   FOR J% = (I% + 1) TO Size%
+      IF data%(J%) < data%(lowest%) lowest% = J%
+   NEXT J%
+   IF I%<>lowest% SWAP data%(I%),data%(lowest%)
+NEXT I%
+ENDPROC