1+ /****************************************** EXERCICE 29 *******************************************/
2+
3+ FONCTION afficherMenuPrincipal()
4+ VARIABLE
5+ msg : CHAINE DE CARACTERE
6+ DÉBUT
7+ msg → "------------------------\n"
8+ msg → msg + "-----Menu Principal-----\n"
9+ msg → msg + "A : Cercle\n"
10+ msg → msg + "B : Rectangle\n"
11+ msg → msg + "Q : Quitter\n"
12+ msg → msg + "------------------------\n"
13+ AFFICHER msg
14+ FIN
15+
16+ FONCTION afficherMenu()
17+ VARIABLE
18+ msg : CHAINE DE CARACTERE
19+ DÉBUT
20+ msg → "------------------------\n"
21+ msg → msg + "----------Menu----------\n"
22+ msg → msg + "1 : Périmètre\n"
23+ msg → msg + "2 : Aire\n"
24+ msg → msg + "------------------------\n"
25+ AFFICHER msg
26+ FIN
27+
28+ FONCTION calculerAireCercle(rayon)
29+ DÉBUT
30+ RETOURNER rayon * rayon * π
31+ FIN
32+
33+ FONCTION calculerPerimetreCercle(rayon)
34+ DÉBUT
35+ RETOURNER 2 * rayon * π
36+ FIN
37+
38+ FONCTION gererCercle()
39+ VARIABLES
40+ rayon, saisie : ENTIER
41+ DÉBUT
42+ AFFICHER "Quel est le rayon du cercle ? "
43+ SAISIR rayon
44+
45+ afficherMenu()
46+
47+ FAIRE
48+ AFFICHER "Quel est votre choix ? : "
49+ SAISIR saisie
50+ TANT QUE (saisie != 1 ET saisie != 2)
51+
52+ SELON saisie
53+ CAS 1 : AFFICHER "Le périmètre d'un cercle de rayon ", rayon, " est de : ", calculerPerimetreCercle(rayon)
54+ CAS 2 : AFFICHER "L'aire d'un cercle de rayon ", rayon, " est de : ", calculerAireCercle(rayon)
55+ FINSELON
56+ FIN
57+
58+ FONCTION calculerPerimetreRectangle(longueur, largeur)
59+ DÉBUT
60+ RETOURNER 2 * (longueur + largeur)
61+ FIN
62+
63+ FONCTION calculerAireRectangle(longueur, largeur)
64+ DÉBUT
65+ RETOURNER longueur * largeur
66+ FIN
67+
68+ FONCTION gererRectangle()
69+ VARIABLES
70+ longueur, largeur, saisie : ENTIER
71+ DÉBUT
72+ AFFICHER "Quelle est la longueur du rectangle ? "
73+ SAISIR longueur
74+ AFFICHER "Quelle est la largeur du rectangle ? "
75+ SAISIR largeur
76+
77+ afficherMenu()
78+
79+ FAIRE
80+ AFFICHER "Quel est votre choix ? : "
81+ SAISIR saisie
82+ TANT QUE (saisie != 1 ET saisie != 2)
83+
84+ SELON saisie
85+ CAS 1 : AFFICHER "Le périmètre d'un rectangle de ", longueur, " par ", largeur, " est de ", calculerPerimetreRectangle(longueur, largeur)
86+ CAS 2 : AFFICHER "L'aire d'un rectangle de ", longueur, " par ", largeur, " est de ", calculerAireRectangle(longueur, largeur)
87+ FINSELON
88+ FIN
89+
90+ ALGORITHME main
91+ VARIABLE
92+ choixPrincipal : CHAINE DE CARACTERE
93+ DÉBUT
94+ FAIRE
95+ afficherMenuPrincipal()
96+ AFFICHER "Quel est votre choix ? : "
97+ SAISIR choixPrincipal
98+
99+ SELON choixPrincipal
100+ CAS "A" : gererCercle()
101+ AFFICHER "Le périmètre d'un rectangle de ", longueur, " par ", largeur, " est de ", calculerPerimetre(longueur, largeur)
102+ CAS "B" : gererRectangle()
103+ AFFICHER "L'aire d'un rectangle de ", longueur, " par ", largeur, " est de ", calculerAire(longueur, largeur)
104+ CAS "Q" : AFFICHER "À + !"
105+ AUTREMENT : AFFICHER "Cas non pris en compte, recommencez !"
106+ FINSELON
107+ TANT QUE (choixPrincipal != "Q")
108+ FIN
0 commit comments