"'O
0
c
:J
0
:<:;
li)
.,,
..--t
c::
:l
0
~
N
"
@
~
.......
0
J::
:;
O'l
"'
·;::::
c::
0
>c::
o.
c::
0
.9
u
ü
:l
.,,
2
o.
~
"
:;
0
11
.,,
0
c:
:l
0
QJ
9.6 • Fonctions et procédures
De même pour toutes les autres fonctions.
Procédure nom_procédure(liste des paramètres et types)
Rôle : description rapide du rôle de la procédure
Variables locales : nom_var _locale l (type), nom_var _locale2 (type), etc.
Début
1

Fin Procédure
De même pour toutes les autres procédures .
. . . . . . . . . . . . . . . . . . . . . . . Partie principale . . ... .. . ...... .. . ... .. . ... .
Début
1.
Fm
Exemple
Le plus petit chiffre de 3 528 est 2. L'algorithme suivant détermine combien
d'entiers naturels de 4 chiffres ont leur plus petit chiffre égal à 2. Celui-ci fait appel
à la fonction pluspetitchiffre(n) qui renvoie à tout entier n ~ 0 le plus petit chiffre
den.
Algorithme corn bien_n bde4ch iffres_pl us petitch iffre2
Rôle : détermine combien de nb de 4 chiffres ont pour plus petit chiffre 2
Entrée : -------------Sortie : Nombre de nb de 4 chiffres de plus petit chiffre 2
Variables globales : nb, compt (entiers)
.......................... Fonction ............................. .
Fonction pluspetitchiffre(n: entier) : entier
Rôle : renvoie le plus petit chiffre du nombre n
Variables locales : k, min (entiers), ch (chaîne)
Début .... . ..... . ....... . ... .
chiffremin +--- 9
#initialisation : plu s petit chiffre = 9
ch +--- str(n)
# chaîne de caractères associée à n
Pour k de 0 à longueur(ch)-1 Faire
l
Si int(ch[k])< chiffremin Alors
1
chiffremin +--- int(ch[k])
Fin Si
in Pour
Retourner chiffremin
in Fonction
.. .. .. . ... . ... . .. .. .. . . Partie principale ... . ...... .. ...... . ... . ... . .
Début
compt +--- 0
# initialisation du compteur
Pour nb de l 000 à 9999 Faire
Si pluspetitchiffre(nb)==2 Alors
1
compt +--- compt + l
Fin Si
Fin Pour
Afficher co mpt
Fin
207