{ fonction de calcul des nombres de valeurs   }
{ par intervalle de largeur 1.0               }
{ pour un tableau de reels compris            }
{ dans l'intervalle [0.0,20.0[                }
{ et retour de ces valeurs dans un tableau    }
{ t : Le tableau de réel de recherche         }

entier [] fonction classification(-> reel [] t)
  entier i
  entier cl
  entier [20] classification
  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
  retourner classification
fin fonction