{ Calcul des nombres de de valeurs            }
{ par intervalle de largeur 1.0               }
{ pour un tableau de reels compris            }
{ dans l'intervalle [0.0,20.0[                }

action principale()
  { Taille du tableau                         }
  constante entier TAILLE <- 20
  { Déclaration du tableau                    }
  reel [TAILLE] tab
  entier i
  entier [20] classification
  entier cl
  { Remplissage du tableau                    }
  pour i de 0 à longueur(tab)-1 faire
    tab[i] <- random()*20.0
  fait
  { Affichage des valeurs du tableau          }
  pour i de 0 à longueur(tab)-1 faire
    afficherln(tab[i])
  fait
  sautDeLigne()
  { Calcul puis affichage des nombres         }
  { de valeurs par intervalle de largeur      }
  { 1.0 pour le tableau de double compris     }
  { dans l'intervalle [0.0,20.0[              }
  pour i de 0 à longueur(classification)-1 faire
    classification[i] <- 0
  fait
  pour i de 0 à longueur(t)-1 faire
    cl <- (entier) t[i]
    classification[cl] <- classification[cl]+1
  fait
  afficherln("Nombres valeurs:")
  pour i de 0 à longueur(classification)-1 faire
    afficherln(i,"  ",classification[i])
  fait
fin action