April 2012 Blog Posts

L’algoritmo di Berger scritto in Vb.Net

L’algoritmo di Berger, ideato dallo scacchista austriaco Johann Berger , è un metodo procedurale per stilare un calendario (diviso in giornate) di un torneo sportivo svolto con il sistema del “girone all’italiana ” composto da un qualsiasi numero di concorrenti o squadre. Ecco la traduzione in Vb.Net: Private Function CreaCalendario(Squadre() As String) As String Dim buffer As String = "" Dim numero_squadre As Integer = Squadre.Length Dim giornate As Integer = numero_squadre - 1 Dim casa(0) As String Dim trasferta(0) As String Array.Resize(casa, numero_squadre / 2) Array.Resize(trasferta, numero_squadre / 2) For i As Integer = 0 To (numero_squadre / 2) - 1 ...