15 lines
490 B
Text
15 lines
490 B
Text
Algorithme : Vérifie si un mot est palidrome
|
|
|
|
Début
|
|
Fonction EstPalindrome(Mot : str) : bool
|
|
Si Mot[0] != Mot[Longueur(Mot) - 1]
|
|
Retourner(Faux)
|
|
Sinon si Longueur(Mot) < 2 /* vrai pour 0 ou 1 lettre */
|
|
Retourner(Vrai)
|
|
Sinon
|
|
Mot.Effacer(0) /* efface la première lettre */
|
|
Mot.Effacer(Longueur(Mot) - 1) /* efface la dernière lettre */
|
|
Retourner(EstPalindrome(Mot))
|
|
FinSi
|
|
FinFonction
|
|
Fin
|