Un petit jeu.

Voici un petit jeu assez simple:

Chaque joueur à son tour lance un dé autant de fois qu'il le désire. S'il obtient le 1, il ne marque pas de points et passe la main à son adversaire. S'il décide d'arrêter sa série (sans 1 donc), il marque autant de points que de points amenés par les différents lancers. Le premier à obtenir ou dépasser 100 gagne.
L'ordinateur sera un des 2 joueurs et vous le doterez d'une des 3 stratégies suivantes:
* il réalise, si c'est possible (s'il ne tire pas de 1), des tirages jusqu'au moment où sa série lui rapporte au moins 20 points
* il réalise, si c'est possible (s'il ne tire pas de 1), 5 tirages
* il utilise pour chaque série la méthode parmi les 2 décrites ci-dessus qui demande le moins de tirages.


Le lancer du dé est réalisé par l'instruction 1+RANDOM(6).

entier SH, SO, S, i, Max
booléen JH, Fin

Max ß 100
S0 ß 0
SH ß 0
JH ß RANDOM(2) mod 2 = 0
tant que NOT ((SO³Max) ou (SH³Max)) faire
  JH ß NOT JH
  si JH alors S ß 0
              répéter
              de ß 1+RANDOM(6)
              si de¹1 alors S ß S+de
                            écrire "Arrêter (o/n)?"
                            lire Rep
                            Fin ß (Rep="o") ou (Rep="O")
              fsi
              jusqu'à (de=1) ou Fin
              si de¹1 alors SH ß SH+S
              fsi
  sinon	S ß 0
        répéter
          de ß 1+RANDOM(6)
          si de¹1 alors S ß S+de
                        Fin ß (i=5) ou (S³20) ou (SO+S³Max)
          fsi
        jusqu'à (de=1) ou Fin
        si de¹1 alors SH ß SH+S
        fsi
  fsi
fsi
ftant
si JH alors écrire "Bravo, vous êtes le plus fort!"
sinon écrire "Une nouvelle preuve de la prééminence de la machine sur l'homme!"
fsi