1- Fonction Reponse(C:caractère) :booleen ;
Debut
Reponse ← Faux ;
Si C=’o’ ou C=’O ‘ Alors Reponse ← Vrai Fsi ;
Fin ;
2- Procedure AfficheTable(A :entier) ;
Var I :entier ;
Debut
Pour I ← à 9
Faire Ecrire(A,’x’,I,’=’,A*I) ; Fait;
Fin ;
3- Algorithme TableM ;
Var A :entier ; Rep :caractère ;
Fonction Reponse(C:caractère) :booleen ;
. . . . . . .
Procedure AfficheTable(A :entier) ;
. . . . . . .
Debut
Repeter
Ecrire(‘Donner un entier’) ; Lire(A) ;
AfficheTable(A) ;
Ecrire(‘Voulez vous continuez O/N’) ; Lire(Rep) ;
Jusqu’à Non Reponse(rep) ;
Fin.
Ajouter un commentaire
Veuillez vous connecter pour ajouter un commentaire.
Pas encore de commentaires.