M1102-TD6 Exercie3 Corrigé

fonction isspace (C : in caractere) renvoie booleen
debut
renvoie (C vaut ' ' OU_SINON C vaut '\t' OU_SINON C vaut '\n');
fin

fonction CompterDoublonsV3 (Chaine : in string) renvoie entier_naturel
debut

si (taille(Chaine) < 2) renvoie 0;

declarer Compt : entier_naturel;
Compt <- 0;

declarer CarPrec : caractere;
CarPrec <- Chaine [0];

pour (i variant_de 1 a taille (Chaine) - 1)
faire
si (isspace (Chaine [i])) continue;
si (CarPrec vaut Chaine [i])
Compt <- Compt + 1;
fsi
CarPrec <- Chaine [i];
ffaire
renvoie Compt;
fin

algorithme Nb_de_Doublons
debut

boucle
// Saisie

declarer LigneLue : string;
afficher ("Entrer une string (ligne vide pour sortir) : ");
saisir (LigneLue);

si (taille (LigneLue) vaut 0) sortie;

// La ligne traitée est non vide

// Comptage

declarer NbreDoublons : entier_naturel;

NbreDoublons <- CompterDoublonsV3 (LigneLue);

// Affichage
afficher (LigneLue);
ligne_suivante;
afficher ("Nombre de doublons : ", NbreDoublons);
ligne_suivante;
fboucle

fin