AlgoBox : PerimetrePolygoneboucle

Calcule du périmètre d'une série de polygone régulier afin de montrer que le périmètre diminue en fonction du nombre de côtés.

Tester l'algorithme
Cliquer sur ce bouton pour exécuter l'algorithme : 

Résultats

Code de l'algorithme
1   VARIABLES
2     AirePolygone EST_DU_TYPE NOMBRE
3     AireTriangle EST_DU_TYPE NOMBRE
4     NbCotes EST_DU_TYPE NOMBRE
5     AngleCentre EST_DU_TYPE NOMBRE
6     AnglesIso EST_DU_TYPE NOMBRE
7     CotesIso EST_DU_TYPE NOMBRE
8     CotePolygone EST_DU_TYPE NOMBRE
9     NbCotesMax EST_DU_TYPE NOMBRE
10  DEBUT_ALGORITHME
11    AirePolygone PREND_LA_VALEUR 72
12    LIRE NbCotesMax
13    POUR NbCotes ALLANT_DE 3 A NbCotesMax
14      DEBUT_POUR
15      AireTriangle PREND_LA_VALEUR AirePolygone/NbCotes
16      AngleCentre PREND_LA_VALEUR (360/NbCotes)
17      AnglesIso PREND_LA_VALEUR ((180 - AngleCentre)/2)
18      //Transformation des angles (DEG -> RAD)
19      AngleCentre PREND_LA_VALEUR AngleCentre * (Math.PI / 180)
20      AnglesIso PREND_LA_VALEUR AnglesIso * (Math.PI / 180)
21      //Calcul des mesures des côtés du triangle isocèle
22      CotesIso PREND_LA_VALEUR sqrt(2*AireTriangle/sin(AngleCentre))
23      CotePolygone PREND_LA_VALEUR CotesIso*sin(AngleCentre)/sin(AnglesIso)
24      AFFICHER "Le périmètre du polygone de "
25      AFFICHER NbCotes
26      AFFICHER " côtés est "
27      AFFICHERCALCUL NbCotes*CotePolygone
28      AFFICHER " cm."
29      FIN_POUR
30  FIN_ALGORITHME