Solution 1 : en utilisant une boucle Répéter
Algorithme Appatition ;
Var ch :caractère ;
NbA :entier ;
Début
NbA ←0 ;
Répéter
Lire(ch) ;
Si ch=’A’ Alors NbA ←NbA+1 Fsi ;
Jusqu’à ch=’*’ ;
Ecrire(‘Nombre apparition de A est :’,NbA) ;
Fin;
Solution 2 : en utilisant une boucle Tantque +Initialisation
Algorithme Appatition ;
Var ch :caractère ;
NbA :entier ;
Début
NbA ←0 ;
Ch ←’X’ ; /* Initialiser Ch à un caractère autre que ‘*’
Tanque ch<>’*’ Faire
Fait ;
Lire(ch) ; /* la lecture se fait avant le traitement
Si ch=’A’ Alors NbA ←NbA+1 Fsi ;
Ecrire(‘Nombre apparition de A est :’,NbA) ;
Fin;
Solution 3 : en utilisant une boucle Tantque + Lecture avant la boucle
Algorithme Appatition ;
Var ch :caractère ;
NbA :entier ;
Début
NbA ←0 ;
Lire(ch) ; /* lecture la première valeur de ch avant la boucle
Tanque ch<>’*’ Faire
Fait ;
Si ch=’A’ Alors NbA ←NbA+1 Fsi ;
Lire(ch) ; /* La lecture suivante se fait après le traitement
Ecrire(‘Nombre apparition de A est :’,NbA) ;
Fin.
Ajouter un commentaire
Veuillez vous connecter pour ajouter un commentaire.
Pas encore de commentaires.