Data commit

Task/Ranking-methods/True-BASIC/ranking-methods.basic

@@ -0,0 +1,56 @@
+LET n = 7
+DIM puntos(7), ptosnom(7), nombre$(7)
+
+SUB MostarTabla
+    FOR i = 1 to n
+        PRINT str$(ptosnom(i)); "   "; puntos(i); "  "; nombre$(i)
+    NEXT i
+    PRINT
+END SUB
+
+PRINT "Puntuaciones a clasificar (mejores primero):"
+FOR i = 1 to n
+    READ puntos(i), nombre$(i)
+    PRINT "      "; puntos(i); "  "; nombre$(i)
+NEXT i
+
+PRINT
+PRINT "--- Standard ranking ---"
+LET ptosnom(1) = 1
+FOR i = 2 to n
+NEXT i
+CALL MostarTabla
+
+PRINT "--- Modified ranking ---"
+LET ptosnom(n) = n
+FOR i = n-1 to 1 step -1
+    IF puntos(i) = puntos(i+1) then LET ptosnom(i) = ptosnom(i+1) else LET ptosnom(i) = i
+NEXT i
+CALL MostarTabla
+
+PRINT "--- Ordinal ranking ---"
+FOR i = 1 to n
+    LET ptosnom(i) = i
+NEXT i
+CALL MostarTabla
+
+PRINT "--- Fractional ranking ---"
+LET i = 1
+LET j = 2
+DO
+   IF j <= n then
+      IF (puntos(j-1) = puntos(j)) then
+         LET j = j + 1
+      END IF
+   END IF
+
+   FOR k = i to j-1
+       LET ptosnom(k) = (i+j-1) / 2
+   NEXT k
+   LET i = j
+   LET j = j + 1
+LOOP UNTIL i > n
+CALL MOSTARTABLA
+
+DATA 44, "Solomon", 42, "Jason", 42, "Errol", 41, "Garry", 41, "Bernard", 41, "Barry", 39, "Stephen"
+END