Le programme simule le tirage au sort d'une série de N lancers du dé, puis compte le nombre de singletons 6 , de couples de 6 , de triplets de 6, ..., contenus dans la série obtenue.
Nombre de lancers de dé ( entrer un entier naturel )

 

Le programme

<?
$n=$_POST[nb]; // nombre de lancers récupéré à partir du formulaire
for ($i=1;$i<=$n;$i++) // boucle
{
$d[$i]=rand(1,6); // entier choisi aléatoirement entre 1 et 6 ( stockage dans un tableau )
echo "$d[$i] " ; // affichage de l'entier
}
While ( $j<=$n) // parcours de la suite ( du tableau ) en entier
{
$k=0; // mise du compteur à 0
     if ($d[$j]==6) // test pour voir si le début d'une suite de 6 apparaît
     {
      while ( $d[$j]==6) // boucle pour voir le nombre de terme de la suite
     {
      $k++;
      if (isset($d[$j+1]) and $d[$j+1]<>6)
      {
      if (isset($nb_fois[$k])) $nb_fois[$k]++;
      else $nb_fois[$k]=1;// incrémentation du nombre de suites de longueur $k dans un tableau
      }
      $j=$j+1;

     }
     else $j++;
}
for ($i=1;$i<=$n;$i++) // affichage des résultats
{
unset($s);
unset($s1);
if ( isset($nb_fois[$i]) and $nb_fois[$i]>1) $s='s'; //Pour éviter les fautes d'orthogaphes !!!
else $s='';
if ($i>1) $s1='s';
else $s1='';
if ( isset($nb_fois[$i]))echo "<br>il y a $nb_fois[$i] suite$s de $i nombre$s1 ";
}
?>