Algoritmo per calendario tornei!!!

[a2000]

per gli amanti (giustamente) delle interfacce, e per maggiore semplicità (ancora) mi piace questa nuova versione.

La Sub principale, dato il numero N di squadre, restituisce in una matrice Part(iG, iP, 1|2) gli indici numerici della coppia di squadre della partita iP alla giornata iG:

Sub Torneo(N, Part() As Integer)
 N1 = N - 1
 
 For i = 1 To N1
  j1 = i - 1: j2 = i + 1
  For iP = 1 To N / 2
   j1 = j1 + 1: If j1 > N1 Then j1 = 1
   j2 = j2 - 1: If j2 < 1 Then j2 = N1
   Part(i, iP, 1) = j1: Part(i, iP, 2) = j2
  Next iP
  Part(i, 1, 2) = N
 Next i

End Sub

L'algoritmo è self-explaining se si leggono in successione la prima e la seconda colonna di squadre per ogni giornata.
Giro girotondo, quanto è bello il mondo .... :o :o