fonction alea(E N:entier):entier // retourne un entier entre 0 et N-1

procédure occurrence(E nblances:entier, S Voccurrence: vecteur de 6 entier)
{
        variable i, limoges : entier
        
        Pour i de 0 à 5
        {
                Voccurrence[i] <-- 0 
        }
        
        Pour i de 1 à nblances
        {
                limoges <-- alea(6)+1
                Voccurrence[limoges] <-- Voccurrence[limoges] + 1
        }
        
}

procedure affichage_occurrence(E Voccurrence: vecteur de 6 entier)
{
        variable i,j,s,p : entier

        s <-- 0
        
        Pour i de 0 à 5
        {
                s<--s+ Voccurrence[i]
        }

        Pour i de 0 à 5
        {
                p<--Voccurrence[i]*100 div s
         
                Afficher(i+1," ")
       
                Pour j de 1 à p
                        Afficher("|")
       
                Afficher("(",p,"%)\n")
        }
}

Algorithme Lance_un_de
{
        constante entier NB_FACES <-- 6
        variable Vocc : vecteur de NB_FACES entier
                 nblance : entier
                 
                 
        Afficher("Saisir le nombre de lancés à effectuer, svp : ")
        Saisir(nblance)
        
        occurrence(nblance,vocc)
        affichage_occurrence(vocc)
}