1.7 KiB
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