{ Declaration d'un type agrege avec un tableau   }
{ parmi ses champs: Un ensemble de reels         }

constante entier TAILLE <- 15
  
{ Type agrege de stockage d'un ensemble de reels }
  
structure ensembleDeReel
  n : entier <- 0
  t : Tableau[TAILLE] de reel
fin structure
  
{ Action d'initialisation d'un ensemble de reels }

action initialisation(nb,v,e)
  Données
    nb : entier
    v : réel
  Résultats
    e : ensembleDeReel
  locales
    i : entier
  e.n <- nb
  pour i de e.n à n faire
    e.t[i] <- v
  fait
fin action

{ Programme principal                            }

action principale()
  Locales
    i : entier
    e : ensembleDeReel
  initialisation(5,1.0,e)
  Ecran.afficher("Nombre valeurs : ",e.n)
  pour i de 0 à e.n faire
    Ecran.afficher(e.t[i])
  fait
fin action