{ 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(-> 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(-> position2D [] tpos)
  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()
  position2D [TAILLE] tpos
  affichage(tpos)
fin action