Accueil > Algorithmes > Vérifier si une chaîne est un tautogramme (Méthode Après Espaces)
Vérifie le tautogramme en comparant la 1ère lettre avec la lettre suivant chaque espace.
Fonction tautogramme(ch : chaine) : Booléen DÉBUT ch ← Majus(ch) Tant que Pos(" ", ch) ≠ -1 et ch[0] = ch[Pos(" ", ch) + 1] Faire ch ← Effacer(ch, Pos(" ", ch), Pos(" ", ch) + 1) Fin Tant que Retourner Pos(" ", ch) = -1 FIN