1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54
| Fonction DonneOccurence (LaChaine:Tableau(80) de CARACTERE,CarRech:Caractère,Position:IN OUT NOMBRE):NOMBRE
VAR
Indice:Nombre
CptOCC /compteur Occurence/
Premier:Boolean
i:NOMBRE
DEBUT
Position = -1 /Valeur d'erreur au cas ou pas occcurence trouvée/
Premier = Vrai /Initialisation du Flag/
CptOcc = 0
Pour i = 1 à longueur (LaChaine) Faire
Si LaChaine [i] = CarRech Faire
Si Premier Alors
Premier=Faux
Posistion = i
Fin si
CptOCC = CptOCC +1
Fin si
Fin Pour
Retourne CptOCC
Fin Fonction
Programme OccurenceEtPostion
Var
LaChaine:Tableau (80) de CARACTERE
Carlu:CARACTERE
LaPostion:NOMBRE
NombreOccu:NOMBRE
Debut
/Saisir les infos souhaitées/
Afficher "Entrez une chaine de caractères"
Saisir: LaChaine
Afficher "Entrez un caractère"
Saisir:Carlu
NombreOCC=DonneOccurence (LaChaine,Carlu,LaPostion)
Si LaPosition = -1 Alors
Afficher "Pas d'occurence du caractère dans la chaine"
Sinon
Afficher "Le nombre d'occurences est de ", NombreOCC
Afficher "La position de la première occurrence est:",LaPosition
Fin Si
Fin |
Partager