Discussion :

[imeys]

bonjour,

je dois tester si un mot est palindrome cad kayak à lenvers donne kayak
mon problème est que lorsque je test le programme, le label ne saffiche pas

voici mon 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
procedure Test(st1:string;var st2:string);
var i:integer;
var s,pal:string;
begin
     st2:='';
     for i:=1 to Length(st1) do
      if st1=st2 then
      s:=pal;
     end;
 
 
procedure TForm1.BTNtesterClick(Sender: TObject);
var s,pal:string;
begin
       s:=editentree.text;
       Test(s,pal);
       labelresultat.caption:=pal;
 
end;

FRANK

[qi130]

Dabs la procédure test,

Code :

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

 if st1=st2 then...

ne fait que comparer les 2 chaines, pas les lettres....en plus, st2 est vide

Dans la même proc:

Code :

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

1
2
 if st1=st2 then
s:=pal;

tu mets pal dans s, mais que vaut pal ?


Merci de penser aux balises de code.....

[anapurna]

salut

voila ce que je ferait pour tester ton texte et savoir si c'est un palandrome

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
26
27
28
29
30
31
 
  procedure Test(st1:string;var st2:string);
  var i      :integer;
       s,pal :string;
 begin
    st2:='';
    pal:=st1;
    lg := Length(st1);
    i := 1;
    Bool := true; 
    while (i < lg) and not(bool ) do
    begin
      if st1[lg+1-i]<>pal[i] then
         Bool := False;
      inc(i)
    end;
    if Bool Then  
       st2:=pal;
end;
 
 
procedure TForm1.BTNtesterClick(Sender: TObject);
var s,pal:string;
begin
  s:=editentree.text;
  Test(s,pal);
  if trim(pal) <> '' Then
    labelresultat.caption:=pal
  else 
    labelresultat.caption:= 'Pas un palandrome';
end;

@+ Phil