First commit

IUT/Info1/TD/Exercices/3.3.md

@@ -0,0 +1,71 @@
+Lexique: {Principal}
+    Presentation: Fonction d'explication (vide) -> vide
+    Saisie_rayon: Fonction de saisie (vide) -> un réel
+    Perimetre: Fonction de calcul (rayon: un réel) -> un réel
+    Surface: Fonction de calcul (rayon: un réel) -> un réel
+    Affiche_resultats: Fonction d'affichage (perimetre: un réel, surface: un réel) -> vide    
+
+    rayon: réel
+    perimetre: réel
+    surface: réel
+
+Algorithme:
+    Debut
+        Presentation()
+        rayon <- Saisie_rayon()
+        perimetre <- Perimetre(rayon)
+        surface <- Surface(rayon)
+        Affiche_resultats(perimetre, surface)
+    Fin
+
+
+Presentation: Fonction d'explication (vide) -> vide
+Lexique:
+    vide
+Algortihme:
+    Debut
+        Ecrire("Cet algortihme calcule le périmètre et la surface d'un disque de rayon saisi")
+    Fin
+
+
+Saisie_rayon: Fonction de saisie (vide) -> un réel
+Lexique:
+    rayon: un réel
+Algorithme:
+    Debut
+        Ecrire("Saisir un rayon")
+        Lire(rayon)
+        Retourner rayon
+    Fin
+
+
+Perimetre: Fonction de calcul (rayon: un réel) -> un réel
+Lexique:
+    perimetre: un réel
+    PI: un constante réele := 3.14159265
+Algortihme:
+    Debut
+        perimetre <- PI * rayon * 2
+        Retourner perimetre
+    Fin
+
+
+Surface: Fonction de calcul (rayon: un réel) -> un réel
+Lexique:
+    surface: un réel
+    PI: un constante réele := 3.14159265
+Algorithme:
+    Debut
+        surface <- PI * rayon²
+        Retourner surface
+    Fin
+
+
+Affiche_resultats: Fonction d'affichage (perimetre: un réel, surface: un réel) -> vide
+Lexique:
+    vide
+Algortihme:
+    Debut
+        Ecrire("Perimetre: ", perimetre, "u.a.")
+        Ecrire("Surface: ", surface, "u.a.²")
+    Fin