Lancer les dés Version 1
GW-Basic, utilisé par PC-Basic
Programme avec Texte Seulement
PC-BASIC
Lancez juste un seul dé: il y a six résultats possibles, un pour chaque face. Lancez deux dés et le nombre de résultats passe à trente-six : vous pouvez lancer un un et un deux, un deux et un trois, un trois et un quatre...
Considérons maintenant la somme des lancers des deux dés. (Le jeu de craps de casino voir Tirer au Craps est structuré autour de ces sommes.)
Sept est la somme la plus probable, alors que les sommes de deux et douze sont les moins probables.
Bien que nous puissions démontrer les probabilités de manière empirique en prenant deux dés physiques et en les lançant plusieurs fois tout en enregistrant nos résultats, GW-BASIC peut facilement effectuer le même processus et afficher les sommes à l'écran.
Vous pouvez définir la vitesse de chaque lancer (demandée au début du programme via l'invite Délais ?), et arrêter les lancers de dés à tout moment en appuyant sur la touche ESCAPE.
Remarquez la fonction de randomisation :
INT(1+6*RND(1))
Cela ne fonctionnera pas simplement pour coder, disons, RND(6), puisque la
fonction RND produira simplement un nombre aléatoire dans un intervalle borné de
zéro à un. La partie INT de l'expression de randomisation garantit que la valeur
de sortie est un entier, et la partie 1+6 garantit que le nombre aléatoire est
compris entre un et six : l'une des six faces d'un dé lancé.
Eh fait RND
ne produit pas vraiment un nombre aléatoire; c'est en fait pseudo-aléatoire,
comme nous le verrons dans une section ultérieure, le nombre étant basé sur une
graine initiale produite par l'horloge interne de l'ordinateur, d'où la fonction
RANDOMIZE TIMER. Bien que, pour nos besoins, le pseudo-aléatoire soit
suffisamment indiscernable du véritable aléatoire.
Ces lancers de deux dés ne sont que des dés équitables. Que se passe-t-il si, à la place, vous souhaitez lancer deux dés injustes (c'est-à-dire pondérés) ? Les probabilités d'atterrir sur chaque face changeraient. De plus, que se passe-t-il si vous souhaitez lancer des dés qui n'ont pas six faces ? Peut-être qu'un programme avec plus d'options de lancer de dés est de mise.
