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

{ Constante de définition du nombre maximum      }
{ de valeurs stockables dans un ensemble         }
{ de reels                                       }
  
constante entier TAILLE <- ...
  
{ Type agrege de stockage d'un ensemble de reels }
  
structure ensembleDeReel
  entier n <- 0
  reel [TAILLE] t
fin structure
  
{ Action d'initialisation d'un ensemble de reels }
{ nb : Le nombre de valeurs a initialiser        }
{ v : La valeur d'initialisation                 }
{ e : L'EnsembleDeReel a initialiser             }

action initialisation(-> entier nb,-> réel v,ensembleDeReel e ->)
  entier i
  e.n <- nb
  pour i de 0 à nb-1 faire
    e.t[i] <- v
  fait
fin action

{ Programme principal                            }

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