Matematica Senza Frontiere – 14/3/2013 n. 8
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.
Senza tante sottigliezze per l’algoritmo
- prova tutte le combinazioni per le palline (2^15 = 32768)
- visualizza una combinazione se soddisfa le 2 condizioni.
Program MSF_14_3_2013_n_8;
Var
a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,
somma1,
somma2: Byte;
Begin
Writeln;
Writeln(' 15 14 13 12 11 10 9 8 7 6 5 4 3 2 1');
Writeln;
For a:=1 DownTo 0 Do
For b:=1 DownTo 0 Do
For c:=1 DownTo 0 Do
For d:=1 DownTo 0 Do
For e:=1 DownTo 0 Do
For f:=1 DownTo 0 Do
For g:=1 DownTo 0 Do
For h:=1 DownTo 0 Do
For i:=1 DownTo 0 Do
For j:=1 DownTo 0 Do
For k:=1 DownTo 0 Do
For l:=1 DownTo 0 Do
For m:=1 DownTo 0 Do
For n:=1 DownTo 0 Do
For o:=1 DownTo 0 Do
Begin
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 < 8) And (somma2 = 80) Then
Writeln(a:3,b:3,c:3,d:3,e:3,f:3,g:3,h:3,i:3,j:3,k:3,l:3,m:3,n:3,o:3);
End;
Readln;
End.
Ecco il risultato
