constante entier N <- ...
constante reel PI <- 3.14159

{ Type agrege de stockage d'un sommet 2D      }
  
structure sommet2D
  x : reel <- 0.0
  y : reel <- 0.0
fin structure

{ Methode de creation d'un tableau            }
{ de sommet2D initialise avec les positions   }
{ des sommets d'un polygone regulier          }
{ centre sur l'origine et de rayon r          }

Tableau [N] de sommet2D fonction polygoneRegulier(double r)
  Données
    r : reel
  Locales
    i : entier
    angle : reel
    t : Tableau [N] de sommet2D
  pour i de 0 à N-1 faire
    angle <- i*2.0*PI/N
    t[i].x <- r*cos(angle)
    t[i].y <- r*sin(angle)
  fait
  retourner t
fin fonction

{ Methode de calcul de la distance            }
{ entre deux sommet2D                         }
  
reel fonction distance(p1,p2)
  Données
    p1 : sommet2D
    p2 : sommet2D
  Locales
    l : réel
    dx : réel
    dy : réel
  dx <- p2.x-p1.x
  dy <- p2.y-p1.y
  l <- sqrt(dx*dx+dy*dy)
  retourner l
fin fonction

{ Methode de calcul de la longueur            }
{ d'une ligne polygonale ouverte stockee      }
{ dans un tableau de sommet2D                 }
  
reel fonction longueurLigne(t)
  Données
    t : Tableau [N] de sommet2D
  Locales
    l : reel
    i : entier
  l <- 0.0
  pour i de 0 à N-2 faire
    l <- l+distance(t[i],t[i+1])
  fait
  retourner l
fin fonction

{ Methode de calcul de la longueur            }
{ d'une boucle polygonale stockee             }
{ dans un tableau de sommet2D                 }
  
reel fonction longueurBoucle(t)
  Données
    t : Tableau [N] de sommet2D
  Locales
    l : réel
  l <- longueurLigne(t) + distance(t[0],t[N-1])
  retourner l
fin fonction