{ Declaration d'un tableau de variables           }
{ de type agrege position en deux dimensions      }

structure position2D
  reel x <- 0.0
  reel y <- 0.0
fin structure

{ Action d'affichage d'une position 2D            }
{ p : La position2D à afficher                    }

action affichage(p)
  Entrées
    position2D p
  afficher("[",p.x,",",p.y,"]")
fin action

{ Action d'affichage d'un tableau de position 2D  }
{ tpos : Le tableau de position 2D à afficher     }

action affichage(tpos)
  Entrées
    tableau [] de position2D tpos
  Locales
    entier i
  pour i de 0 à longueur(tpos)-1 faire
    affichage(tpos[i])
    Ecran.sautDeLigne()
  fait
fin action

{ Programme principal                             }

constante entier TAILLE <- 3

action principale()
  Locales
    Tableau[TAILLE] de position2D tpos
  affichage(tpos)
fin action