constante entier N <- ...

{ Methode de creation d'un tableau de reels   }
{ initialise avec des nombres aleatoires      }
{ compris entre 0.0 et 20.0                   }

Tableau [N] de reel fonction initRand()
  Locales
    i : entier
    tab : Tableau [N] de reel
  pour i de 0 à N-1 faire
    tab[i] <- random()*20.0
  fait
  retourner tab
fin fonction

{ Calcul des nombres de de valeurs            }
{ par intervalle de largeur 1.0               }
{ pour un tableau de reels compris            }
{ entre 0.0 et 20.0                           }

action principale()
  Locales
    t : Tableau [N] de reel
    classification : Tableau [20] de entier
    i : entier
    cl : entier
  t <- initRand()
  pour i de 0 à 19 faire
    classification[i] <- 0
  fait
  pour i de 0 à N-1 faire
    cl <- t[i]
    classification[cl] <- classification[cl]+1
  fait
  Ecran.afficherln("Nombres valeurs:")
  pour i de 0 à 19 faire
    Ecran.afficherln(i,"  ",classification[i])
  fait
fin action