CHAINES PALINDROMES
hiba125
Messages postés
5
Date d'inscription
Statut
Membre
Dernière intervention
-
tarek_dotzero Messages postés 817 Date d'inscription Statut Membre Dernière intervention -
tarek_dotzero Messages postés 817 Date d'inscription Statut Membre Dernière intervention -
comment je peux resoudre ce probleme ???
SAISIR n CHAINES PUIS TESTER CHAQUE CHAINE SI elle est palindrome ou non???
(elle peut etre lue de la meme maniere a droite ou a gauche)
exp:REMER
MERCI D'avance!!!
SAISIR n CHAINES PUIS TESTER CHAQUE CHAINE SI elle est palindrome ou non???
(elle peut etre lue de la meme maniere a droite ou a gauche)
exp:REMER
MERCI D'avance!!!
3 réponses
Salut
j'imagine qu'il te faudrait un dictionnaire (ou au moins une liste de mots) permettant de déterminer si une chaine est correcte ou non.
Tu devras aussi faire une fonction qui déterminera si ta chaine est équivalente à la même chaine à l'envers.
j'imagine qu'il te faudrait un dictionnaire (ou au moins une liste de mots) permettant de déterminer si une chaine est correcte ou non.
Tu devras aussi faire une fonction qui déterminera si ta chaine est équivalente à la même chaine à l'envers.
----->REMER<-----
Partir du début et de la fin jusqu'au milieu de la chaine en comparant les caractères , si c'est vrai on incrémente le début d'un cran et on décrémente la fin d'un cran, si c'est pas vrai pour un seul caractère on quitte la boucle.
Partir du début et de la fin jusqu'au milieu de la chaine en comparant les caractères , si c'est vrai on incrémente le début d'un cran et on décrémente la fin d'un cran, si c'est pas vrai pour un seul caractère on quitte la boucle.
Bonjour,
Plus conretement :
Commencer à gauche ==> Un premier indice,
Commencer à droite ==> Un dexuième indice,
Vous vérifiez à chaque fois l'égalité des deux caractères.
Je commence :
Plus conretement :
Commencer à gauche ==> Un premier indice,
Commencer à droite ==> Un dexuième indice,
Vous vérifiez à chaque fois l'égalité des deux caractères.
Je commence :
program Palindrome;
uses crt;
var
i, j : Integer;
p : String;
ToutPasseBien : Boolean;
BEGIN
ReadLn(p);
i := 1;
j := Length(p);
ToutPasseBien := True;
While (ToutPasseBien and (i <= Length(p))) Do
Begin
{Quoi mettre dans la boucle ??}
End;
{Quiu faire après??}
END.
