Déterminer si une chaîne est un palindrome

Version imprimable

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:

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

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:

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")

09/11/2008, 13h30
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. :)

Son programme marche bien moyennant quelques modifications.

Code:

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.

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:

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 ^^:lol:
Code:

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

12/11/2008, 17h13
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.:oops:

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

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.

Bonjour,

J'ai essayer de faire une fonction avec le pseudo-code de Alcatiz mais j'ai toujours "false" comme retour.

Voila le programme.

Code:

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
26
27
28
29
30
31
32
33
34
35
 
program palindrome;
 
FUNCTION palindrome ( ch : string) : boolean;
 
VAR g,d : integer ;
    ok : boolean;
 
 
BEGIN
 
g := 1;
d := length(ch);
ok := true;
 
while (g<d) AND ok do
begin
if ch[g] = ch[d] then g := g+1;
if ch[g] = ch[d] then d := d-1
else ok := false;
end;
 
palindrome := ok;
 
END;
 
 
var matin : boolean ;
 
BEGIN
 
matin := palindrome('radar');
writeln(matin);
 
END.

Merci pour votre aide

22/12/2009, 13h55
droggo

Noa,

Regarde bien le pseudo-code d'Alcatîz, et vérifie ton code. :)

(Pour vérifier ton code, le meilleur moyen est de l'exécuter à la main : tu prends un mot, et tu appliques ton code, et notant ce qui se passe. Tu appliques ton code tel qu'il est écrit, pas ce que tu penses qu'il fait. :))

Citation:

Envoyé par droggo

Noa,

Regarde bien le pseudo-code d'Alcatîz, et vérifie ton code. :)

(Pour vérifier ton code, le meilleur moyen est de l'exécuter à la main : tu prends un mot, et tu appliques ton code, et notant ce qui se passe. Tu appliques ton code tel qu'il est écrit, pas ce que tu penses qu'il fait. :))

Je suis débutant, j'ai essayer l'exécution à la main, mais je comprend pas.
J'ai essayé de faire une fonction à partir de ce pseudo-code
Code:

1 2 3 4 5 6 7 8 9 10 g := 1; d := length(ch); d=5 ok := true; while (g<d) AND ok do tant que 1<5 ET ok fait begin if ch[g] = ch[d] then g := g+1; si 1=5 alors g = 2 if ch[g] = ch[d] then d := d-1 else ok := false; end;
Donc c'est toujours faux...
Je suis perdu

Je me suis basé aussi sur ce pseudo code
Code:

1 2 3 4 5 6 7 8 9 10 FONCTION palindrome(IN ch :Alpha) : Logique EST VAR g,d : Entier ; ok :Logique ; DEBUT g := 1 ; d := Longueur(ch) ; ok := Vrai ; TANTQUE g<d ET ok BOUCLE ok:= ch[g]=ch[d] ; g := g+1 ; d := d-1 ; FIN BOUCLE ; palindrome := ok ; FIN palindrome ;

Bonjour,

Citation:

Envoyé par Mercenaire

J'ai essayer de faire une fonction avec le pseudo-code de Alcatiz mais j'ai toujours "false" comme retour.

Traduit en Pascal, l'algorithme est légèrement différent de ce que tu as fait :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 FUNCTION palindrome (ch : string) : boolean; VAR g, d : integer; ok : boolean; BEGIN g := 1; d := length(ch); ok := true; while (g < d) and ok do if ch[g] = ch[d] then begin g := g + 1; d := d - 1; end else ok := false; palindrome := ok; END;
Droggo parle d'or : si tu exécutes ton code et celui-ci sur papier, tu verras les conséquences de la petite différence entre les deux.
;)

j'avais fait un truc identique à l'epoque ...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure IsPalindrome(const S : string; var result: boolean);
var PA, PB : integer;
begin
  PA := 1;
  PB := Length(S);
  result := PA <= PB;
  while (PA < PB) and Result do
  begin
    result := S[PA] = S[PB];
    inc(PA);
    dec(PB);
  end;
end;

23/12/2009, 10h40
Mercenaire

Merci à vous,

je comprend pas là

Code:

if ch[g] = ch[d]

g ne sera jamais égale a la longueur du mot.

Donc toujours false...
23/12/2009, 11h39
droggo

Foe,

Citation:

Envoyé par Mercenaire

Merci à vous,

je comprend pas là

if ch[g] = ch[d]

g ne sera jamais égale a la longueur du mot.

Donc toujours false...

Déjà, en regardant le code, tu vois bien que g et d varient, non ?

Retour aux bases : papier + crayon.

Tu choisis un mot, et tu exécutes manuellement le programme, en notant les valeurs successives des variables.

Que te dire de plus ? La programmation demande de faire quelques efforts. :)
23/12/2009, 14h00
Mercenaire

Merci droggo

Pour les efforts, c'est pas ça qui me manque, je reste parfois 5 heures bloqué sur un exercice..

J'ai examen en janvier et je ne sais pas quel pseudo-code il va nous dire de réaliser (est oui on n'a appris les principes qu'en pseudo-code).

Sinon vous avez des conseils ? moi je trouve que c'est pas suffisant.

J'utilise pascal, c'est pour moi se qui se rapproche le plus..

Je vais faire un write de ch[g] et ch[d] pour voir leurs valeurs, car c'est là que je me perd...

A ce moment là je comprendrai mieux sur papier :)
25/12/2009, 12h37
isooh

1 pièce(s) jointe(s)

un autre essai :D

fichier .pas à télécharger:

Pièce jointe 56769

:ccool:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
uses wincrt;
var
  ch:string;
  i,n:byte;
  palind:boolean;
BEGIN
  repeat
    write('ch=  '); readln(ch);
    n:=length(ch);
  until (n<>0);
  i:=1;
  palind:=false;
  repeat
    palind:=(upcase(ch[i])=upcase(ch[n-i+1]));
    i:=i+1;
  until not(palind) OR (i=(n DIV 2));
  IF palind THEN write('palindrome')
    else write ('non palindrome');
end.

palindrome_solution1

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
program palindrome_solution1;
  uses wincrt;
  var
     ch,inv:string;
     i:integer;  
 
  begin
    repeat
    writeln('Entrer une chaine :'); readln(ch);
    until(length(ch) in [4..50]);
    inv:='';
    for i:=1 to length(ch)do
    inv:=inv+ch[length(ch)-i+1] ;
    if(ch=inv)then
    writeln('palindrome')
    else
    writeln('non palindrome');
  end.

palindrome_solution2

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
program palindrome_solution2;
  uses wincrt;
  var
     ch,msg:string;
     i:integer;  
 
  begin
    repeat
    writeln('Entrer une chaine :'); readln(ch);
    until(length(ch) in [4..50]);
    i:=1;
    while(i<=length(ch)/2)do
    begin
    if(ch[i]=ch[length(ch)-i+1])then
    msg:='palindrome'
    else
    msg:='non palindrome';
    i:=i+1;
    end;
  writeln(msg);
  end.

Palindrome_Solution3

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
program Palindrome_Solution3;
  uses wincrt;
  var
     ch,msg:string;
     i:integer;  
 
  begin
  repeat
    writeln('Entrer une chaine :'); readln(ch);
    until(length(ch) in[4..50]);
    i:=1;
    msg:='non palindrome';
    while((i<=length(ch) div 2)and(ch[i]=ch[length(ch)-i+1]))do
    begin
    i:=i+1;
    end;
    if(i=(length(ch) div 2)+1)then
    msg:='palindrome';
    writeln(msg);
    End.