Data update

Task/Sorting-algorithms-Gnome-sort/QBasic/sorting-algorithms-gnome-sort.basic

@@ -0,0 +1,43 @@
+RANDOMIZE TIMER 'RANDOMIZE for True BASIC
+DIM array(-5 TO 12)
+CALL iniciarray(array())
+PRINT "unsort: ";
+CALL escritura(array())
+CALL gnomeSort(array())
+PRINT
+PRINT "  sort: ";
+CALL escritura(array())
+END
+
+SUB escritura (array())
+    FOR i = LBOUND(array) TO UBOUND(array)
+        PRINT array(i);
+    NEXT i
+    PRINT
+END SUB
+
+SUB gnomeSort (array())
+    LET i = LBOUND(array) + 1
+    LET j = i + 1
+    DO WHILE i <= UBOUND(array)
+       IF array(i - 1) <= array(i) THEN
+          LET i = j
+          LET j = j + 1
+       ELSE
+          LET T = array(i - 1)
+          LET array(i - 1) = array(i)
+          LET array(i) = T
+          LET i = i - 1
+          IF i = LBOUND(array) THEN
+             LET i = j
+             LET j = j + 1
+          END IF
+       END IF
+    LOOP
+END SUB
+
+SUB iniciarray (array())
+    FOR i = LBOUND(array) TO UBOUND(array)
+        LET array(i) = (RND * 98) + 1
+    NEXT i
+END SUB