72 lines
1.7 KiB
Markdown
72 lines
1.7 KiB
Markdown
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
|