16 lines
490 B
Text
16 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
|