Initial data commit

Task/Ranking-methods/Yabasic/ranking-methods.basic

@@ -0,0 +1,55 @@
+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 ---"
+ptosnom(1) = 1
+for i = 2 to n
+    if puntos(i) = puntos(i-1) then ptosnom(i) = ptosnom(i-1) else ptosnom(i) = i : fi
+next i
+MostarTabla()
+
+print "--- Modified ranking ---"
+ptosnom(n) = n
+for i = n-1 to 1 step -1
+    if puntos(i) = puntos(i+1) then ptosnom(i) = ptosnom(i+1) else ptosnom(i) = i : fi
+next i
+MostarTabla()
+
+print "--- Ordinal ranking ---"
+for i = 1 to n
+    ptosnom(i) = i
+next i
+MostarTabla()
+
+print "--- Fractional ranking ---"
+i = 1
+j = 2
+repeat
+    if j <= n then
+        if (puntos(j-1) = puntos(j)) then j = j + 1 : fi
+    end if
+
+    for k = i to j-1
+        ptosnom(k) = (i+j-1) / 2
+    next k
+    i = j
+    j = j + 1
+until i > n
+MostarTabla()
+
+data 44, "Solomon", 42, "Jason", 42, "Errol", 41, "Garry", 41, "Bernard", 41, "Barry", 39, "Stephen"
+end