Discussion :

[devnino]

Salut!

-j'ai trouvé un exemple sur ce site pour faire un Palindrome , j'ai fais une petite source , mais il m'affiche toujours que le mot n'est pas un palindrome :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
       var st : String;
          inver: String;
          i : Integer;
 
 
Begin
read(st);
                 for i:=0 to length(st) do
 
                  inver:=st[i] + inver ;
                  writeln(st , '=' , inver);
                 if (st[i]=inver[length(st)-i]) then
                                                Begin
                             writeln('Le mot est un palidrome');  
 
                        end
                 else  
                        Begin
                  writeln('Le mot n est pas un palidrome');
                              end
end.

merci

[Alcatîz]

Bonjour !

Attention que le premier caractère d'une chaîne de type String se trouve à l'indice 1, pas 0 (c'est l'emplacement de la longueur effective de la chaîne).
Si tu corriges cela, tu obtiendras bien une chaîne inversée mais, par la suite, ton test ne pourra se résumer à ce que tu as écrit : il faut une boucle.

Il existe plusieurs méthodes pour tester si un mot est un palindrome et il n'est pas nécessaire de créer une seconde chaîne pour le faire. Voici un petit exemple en pseudo-code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Variables :
CHAINE  st
ENTIER  iGauche
ENTIER  iDroite
BOOLEEN Est_Un_Palindrome

Traitement :
Est_Un_Palindrome <-- VRAI
iGauche <-- 1
iDroite <-- LONGUEUR(st)

TANT QUE (iGauche < iDroite) ET Est_Un_Palindrome FAIRE
  SI st[iGauche] = ST[iDroite]
    ALORS
      iGauche <-- iGauche + 1
      iDroite <-- iDroite - 1
    SINON
      Est_Un_Palindrome <-- FAUX
SI Est_Un_Palindrome
  ALORS
    AFFICHER("C'est un palindrome")
  SINON
    AFFICHER("Ce n'est pas un palindrome")

[droggo]

Lai,

Petites précisions.

Si on veut que ce soit assez général, c'est un peu plus compliqué.

Entre autres, attention aux tests d'égalité des caractères, car dans un palindrome :

*- on ne tient pas compte des signes diacritiques (accents, cédille, ...), il faut y faire attention.

*- ni, bien entendu, de la casse (majuscules/minuscules)

Quant au parcours de la chaîne, comme dans un palindrome

*- on ne tient pas compte des caractères spéciaux (espaces, ponctuation, ....)

ça complique un peu l'algorithme.

[darrylsite]

Son programme marche bien moyennant quelques modifications.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
program palindrome;
uses crt;
 
  var
          st : String;
          inver: String;
          i : Integer;
 
Begin
 clrscr;
 writeln('************ PALINDROME **************');
 write('Donnez un mot : ');
 readln(st);
 inver:='';
 for i:=1 to length(st) do
  inver:=st[i] + inver ;
 writeln(st , '=' , inver);
 if (st=inver) then
  writeln('Le mot est un palidrome')
 else
  writeln('Le mot n'' est pas un palidrome');
 writeln('************* Appuyez sur Entrée *************');
 readln;
 end.

[mf.chedly]

salut, ici nous somme dans le monde de la programmation. pour atteindre notre objectif a partir de la création des programmes tu peux trouver plusieurs chemin mais l'excellent programmeur c'est qui trouve le bon chemin.

La meilleur solution c'est Alcatiz:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Variables :
CHAINE  st
ENTIER  iGauche
ENTIER  iDroite
BOOLEEN Est_Un_Palindrome
 
Traitement :
Est_Un_Palindrome <-- VRAI
iGauche <-- 1
iDroite <-- LONGUEUR(st)
 
TANT QUE (iGauche < iDroite) ET Est_Un_Palindrome FAIRE
  SI st[iGauche] = ST[iDroite]
    ALORS
      iGauche <-- iGauche + 1
      iDroite <-- iDroite - 1
    SINON
      Est_Un_Palindrome <-- FAUX
SI Est_Un_Palindrome
  ALORS
    AFFICHER("C'est un palindrome")
  SINON
    AFFICHER("Ce n'est pas un palindrome")

car si il trouve que st[iGauche] <> st[iDroite] alors c'est finie pour quoi il faut vérifier les autres caractères du chaîne c'est seulement des instructions qui n'ont pas de but.


Remarque: tu peux forcer le boucle pour qu'il sera comme le boucle tant que ^^

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
test<--1
x<--long(ch)
pour i de 1 a long(ch) faire
si ch[i]<>ch[x] alors
test<--0
i<--long(ch)
si non x<-- x-1
fin si non
fin pour
 
si test=1 alors écrire("palindrome") si non ecrire("non palindrome")
fin si

[mf.chedly]

et tu peux utiliser aussi le boucle répéter comme j'ai dis il y a plusieurs solutions
dsl je suis faible en français.

[darrylsite]

Remarque: tu peux forcer le boucle pour qu'il sera comme le boucle tant que ^^

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
test<--1
x<--long(ch)
pour i de 1 a long(ch) faire
si ch[i]<>ch[x] alors
test<--0
i<--long(ch)
si non x<-- x-1
fin si non
fin pour
 
si test=1 alors écrire("palindrome") si non ecrire("non palindrome")
fin si

Je ne sais pas où tu as appris à modifier la valeur de la variable i à l'interieur de la boucle for. Mais sache que c' est toujours deconseiller. Ce genre de code ne pourra jamais compiler sous freepascal par exemple.