Matematica Senza Frontiere – 14/3/2013
Il biliardo americano è un gioco che presenta 15 palle numerate da 1 a 15 e una palla bianca.
La partita finisce quando sul tavolo rimane solamente la palla bianca.
Alla fine della loro partita Bonnie e Clyde contano i rispettivi punti.
Tutte le palle sono state vinte da uno o dall’altro giocatore.
Bonnie raggiunge il doppio dei punti di Clyde benché abbia vinto meno palle.Indicate le suddivisioni possibili dei punti ottenuti da Bonnie.
Soluzione
Dall’analisi del quesito si deduce che bisogna ottenere 80 punti utilizzando al più 7 palle…
Il programma prova tutte le combinazioni per le palline (2^15 = 32.768) e visualizza le 5 combinazioni che soddisfano le 2 condizioni.
TextWindow.WriteLine("15_14_13_12_11_10__9__8__7__6__5__4__3__2__1")
TextWindow.WriteLine("")
For a=1 To 0 Step -1
For b=1 To 0 Step -1
For c=1 To 0 Step -1
For d=1 To 0 Step -1
For e=1 To 0 Step -1
For f=1 To 0 Step -1
For g=1 To 0 Step -1
For h=1 To 0 Step -1
For i=1 To 0 Step -1
For j=1 To 0 Step -1
For k=1 To 0 Step -1
For l=1 To 0 Step -1
For m=1 To 0 Step -1
For n=1 To 0 Step -1
For o=1 To 0 Step -1
somma1=a+b+c+d+e+f+g+h+i+j+k+l+m+n+o
somma2=15*a+14*b+13*c+12*d+11*e+10*f+9*g+8*h+7*i+6*j+5*k+4*l+3*m+2*n+1*o
If(somma1 <= 7) And (somma2 = 80) Then
TextWindow.WriteLine("_" + a + "__" + b + "__" + c + "__" + d + "__" + e + "__" + f + "__" + g + "__" + h + "__" + i + "__" + j + "__" + k + "__" + l + "__" + m + "__" + n + "__" + o)
EndIf
EndFor
EndFor
EndFor
EndFor
EndFor
EndFor
EndFor
EndFor
EndFor
EndFor
EndFor
EndFor
EndFor
EndFor
EndFor
TextWindow.WriteLine("")