Pour gagner, bien sûr ! Je plaisante...
Voici, parmi les innombrables possibilités, une utilisation du module de tirage aléatoire proposé pour le langage PERL. Ce mini-programme fournit un jeu de 6 numéros distincts compris entre 1 et 49 (bornes incluses). Mais à quoi donc cela peut-il bien servir ?
use integer; # var num = entiers
#-----------------------------------------------------
for ($i=0;$i<6;$i++) { # boucle de 6 tirages
$x=int(rand 49); # tirage aléatoire
while ($TTOP[$x] eq "Oui") { # si numéro déjà tiré,
$x=int(rand 49); # refaire le tirage
}
$TTOP[$x]="Oui"; # marquage numéro tiré
$t=$x+1; # [0,49[ -o-> [1,49]
print ("$t "); # impression du numéro
}
#-----------------------------------------------------
$r=<STDIN>; # maintien fenêtre
exit; # fin de programme
Pour traiter ta seconde question, il faut se pencher sur la théorie des probabilités. Si en tout cas il existe des études allant dans ce sens, il est clair qu'elles ne concluent qu'à des potentialités, et ne donnent probablement guère plus de chances de gagner que la constitution pifométrique d'une grille sur un coin de table de café. Sinon, ça se saurait !
Un mathématicien chevronné, à qui l'on demandait comment il jouait au loto, répondit que primo il ne jouait jamais, et que secundo s'il était amené à jouer, ce serait la combinaison 1-2-3-4-5-6, parce qu'elle avait autant de chances de sortir qu'une autre, qu'il était probable que si elle sortait il aurait été le seul à l'avoir jouée, et que du coup il toucherait le jackpot ! Déroutant...