CHAINES PALINDROMES

Fermé
hiba125 Messages postés 5 Date d'inscription vendredi 31 mars 2017 Statut Membre Dernière intervention 8 avril 2017 - 7 avril 2017 à 17:04
tarek_dotzero Messages postés 817 Date d'inscription jeudi 19 juillet 2007 Statut Membre Dernière intervention 12 avril 2022 - 4 mai 2017 à 02:04
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!!!

3 réponses

ThEBiShOp Messages postés 8378 Date d'inscription jeudi 22 mars 2007 Statut Contributeur Dernière intervention 8 février 2021 1 566
7 avril 2017 à 17:18
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.
0
Profil bloqué
7 avril 2017 à 21:11
----->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.
0
tarek_dotzero Messages postés 817 Date d'inscription jeudi 19 juillet 2007 Statut Membre Dernière intervention 12 avril 2022 121
4 mai 2017 à 02:04
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 :

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.
0