constante entier N <- ...

/* Type agrege de stockage d'un sommet 3D      */

structure sommet3D
  x : reel <- 0.0
  y : reel <- 0.0
  z : reel <- 0.0
fin structure

/* Methode de calcul du barycentre d'un nuage  */
/* de points stocke dans un tableau            */
/* de sommet3D                                 */
  
sommet3D fonction barycentre(tp)
  Données
    tp : Tableau [N] de sommet3D
  Locales
   p : sommet3D
   i : entier
  pour i de 0 à N-1 faire
    p.x <- p.x+tp[i].x
    p.y <- p.y+tp[i].y
    p.z <- p.z+tp[i].z
  fait
  p.x <- p.x/N
  p.y <- p.y/N
  p.z <- p.z/N
  retourner p
fin fonction