Déterminer si une phrase est un palindrome

Version imprimable

Bonjour,
Suite à de petit problème de santé, je n'ai pu suivre certain cour. Et malheureusement pour moi, nous avons reçu comme travail de fin d'étude un programme a faire. Mais je suis bloquer comme vous pouvez le voir : au moment où je dois comparer le 1er caractère avec le 2ème et ensuite dire si oui ou non le mot ou la phrase est un palindrôme. HELP ME :cry:

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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
program ProjetPalindrome;
 
var phraseA : string;           //Variable A
    phraseB : string;           //Variable B
    phraseC : string;           //Variable C
    phraseD : string;           //Variable D
    i : integer;                //Variable de contrôle
    phraseE : string;
 
begin
     //Lecture phrase de départ
     write('Entrer la phrase : ');
     readln(phraseA);
 
     //Convertion en majuscule
     phraseB := UpCase(phraseA);
 
     //Conversion en mot sans accents avec le code ascii
     phraseC:='';
     for i:=1 to length(phraseB) do
     begin
        case ord(phraseB[i]) of
          130,138,136,137,144,210,211,212 : begin
                               phraseC := phraseC + 'E';
                            end;
          135 : begin
                               phraseC := phraseC + 'C';
                            end;
          139,140,214,215,216: begin
                               phraseC := phraseC + 'I';
                            end;
          131,132,133,134,142,181,182,183 : begin
                               phraseC := phraseC + 'A';
                            end;
          129,150,151,154,163,233,234,235 : begin
                               phraseC := phraseC + 'U';
                            end;
          147,148,149,153,162,224,226,227 : begin
                               phraseC := phraseC + 'O';
                            end;
          152,236,237 : begin
                               phraseC := phraseC + 'Y';
                            end;
        else
           phraseC := phraseC + phraseB [i];
        end;
     end;
 
     //Ne garde que les lettres si situant entre A et Z, plus d'espace
     phraseD :='';
     for i:=1 to length (phraseB) do
         if (phraseC[i]>='A') and (phraseC[i]<='Z') then
            phraseD := phraseD + phraseC[i];
 
     writeln(phraseD);
 
     //Inverse les lettres de la fin au début
     phraseE :='';
     for i:= length (phraseD) downto 1 do
     phraseE:= phraseE + phraseD[i];
 
     readln;
end.

Tu as fait le plus difficile. Qu'est-ce qui t'arrête ?

Quelque chose me dit que tu auras résolu le problème de toi-même lorsque tu liras ce message. Autrement je crois que tu as bien mérité un petit coup de pouce. :)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
     //Inverse les lettres de la fin au début
     phraseE :='';
     for i:= length (phraseD) downto 1 do
     phraseE:= phraseE + phraseD[i];
 
     // affichage des résultats
     // pour détecter une éventuelle erreur
     writeln('Phrase A :', phraseA);
     writeln('Phrase B :', phraseB);
     writeln('Phrase C :', phraseC);
     writeln('Phrase D :', phraseD);
     writeln('Phrase E :', phraseE);
 
     // conclusion
     writeln('Palindrome, oui ou non ?');
     if phraseE = phraseD then
       writeln('Oui.')
     else
       writeln('Non.');
 
     readln;
end.

10/06/2012, 10h38
gilldas

Merci beaucoup

Bonjour,
Je te remercie pour cette réponse rapide et tellement correct que j'en pleure en se moment. Un grand merci Roland pour cette aide d'une valeur incroyable, alors encore une fois merci:ccool::ccool::ccool: