1   VARIABLES
2     R EST_DU_TYPE NOMBRE
3     n EST_DU_TYPE NOMBRE
4     i EST_DU_TYPE NOMBRE
5     p EST_DU_TYPE NOMBRE
6   DEBUT_ALGORITHME
7     AFFICHER "Entrez une valeur de R comprise entre 4 et 10"
8     LIRE R
9     LIRE n
10    //p prend la valeur pi (le nom pi soit 3.14159... pour une variable n'étant pas autorisé)
11    p PREND_LA_VALEUR Math.PI
12    //Trace en bleu le polynôme régulier de rayon R ayant n côtés.
13    POUR i ALLANT_DE 0 A n-1
14      DEBUT_POUR
15      TRACER_SEGMENT (R*cos(2*p*i/n),R*sin(2*p*i/n))->(R*cos(2*p*(i+1)/n),R*sin(2*p*(i+1)/n))
16      FIN_POUR
17    n PREND_LA_VALEUR 360
18    //Trace en rouge le polynôme régulier de rayon R ayant n côtés.
19    POUR i ALLANT_DE 0 A n-1
20      DEBUT_POUR
21      TRACER_SEGMENT (R*cos(2*p*i/n),R*sin(2*p*i/n))->(R*cos(2*p*(i+1)/n),R*sin(2*p*(i+1)/n))
22      FIN_POUR
23  FIN_ALGORITHME