Détection d'anagramme

Version imprimable

Bonjour à tous,

Mon problème est le suivant:

je dois réaliser une fonction booléenne qui indique si deux mots sont des anagrammes.

Voici le 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 24 25 26 27 28 29 30 31 32 33 34 program Exercice5; function Anagramme(const s1:string;var s2:string):boolean; var i,c:integer; begin i:=1; result:=(s2=' '); if length(s1)=length(s2) then begin while(i<length(s1)+1) and not result do begin c:=pos(s1[i],s2); if (c<>0) then begin delete(s2,c,1); writeln(s2); inc(i); end; end; end; end; var ch1,ch2:string; begin // PROGRAMME PRINCIPAL writeln('Veuillez entrer 1 mots: '); readln(ch1); writeln('Veuillez entrer un 2e mot: '); readln(ch2); writeln(Anagramme(ch1,ch2)); end.
Donc l'idée est de regarder d'abord le caractère d'indice i dans le string 1 avec sa place dans le string 2 puis dans la boucle l'effacer du string 2.
Le problème c'est que la console me renvoie comme réponse FALSE....

Merci de me lire.

Merci pour l'explication des balises :)

01/05/2009, 16h21
droggo

Boa,

Pour la présentation du code, il faut l'encadrer par les balises [*code] [*/code], sans les * qui ne sont là que pour les invalider.

Pour les anagrammes, il faut prendre des précautions :
- on ne tient pas compte des signes diacritiques (accents, cédilles)
- on ne tient pas compte de la casse (majuscules/minuscules)
Ces contraintes impliquent de mettre les mots en forme avant de tester.

Je n'ai pas regardé le code en détail, mais l'idée pour détecter l'anagramme est correcte.

Bonjour,

En fait, dans ta boucle while, la valeur de result n'est nulle part modifiée. ;)
Tu pourrais faire quelque chose comme ceci :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
  Result := (Length(s1) = Length(s2));
  i := 1;
  while (i <= Length(s1)) and Result do
    begin
      c := Pos(s1[i],s2);
      if c <> 0
         then
           begin
             Delete(s2,c,1);
             WriteLn(s2);
             Inc(i);
           end
         else
           Result := False;
    end;

Bonjour Alacatîz!

Il y a un truc pour lequel je ne suis pas d'accord avec ton code:
La valeur booléenne que renvoie la fonction doit porter sur 'Oui ou Non les deux mots entrés par l'utilisateur sont des anagrammes'. Or là, la valeur renvoyée par la fonction dit: 's'il les 2 strings ont la même longueur envoyer vrai ou faux'.
Et justement, dans mon code, le fait que je supprime à chaque fois le caractère correspondant au caractère d'indice i de la 1ere chaîne de caractère modifie le Result. Car au final, le Result doit contenir cette expression (s2=' '), ce qui est le cas... Enfin, voilà... je suis bloqué :)

J'ai ajouté des commentaires à mon code pour plus de clarté:
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 program Exercice5; // PAR EXEMPLE MARIE ET AIMER POUR LES ANAGRAMMES function Anagramme(const s1:string;var s2:string):boolean; var i,c:integer; begin i:=1; result:=(s2=' '); if length(s1)=length(s2) then // Length(s1)=Length(s2)=5 begin while (i<=length(s1)) and not result do //TANT QUE I<> Length(s1)+1 et que s2 n'est pas égal à chaîne de caractère vide alors on entre dans la boucle begin c:=pos(s1[i],s2); inc(i); if (c<>0) then begin delete(s2,c,1); // ici on modifie la chaîne s2 donc on modifie le Result.... writeln(s2); end; end;// On sortira de la boucle quand i=6 et s2= ' '... Le Result devrait renvoyer TRUE...Je ne comprends pas mon erreur... end; end; var ch1,ch2:string; begin // PROGRAMME PRINCIPAL writeln('Veuillez entrer 1 mots: '); readln(ch1); writeln('Veuillez entrer un 2e mot: '); readln(ch2); writeln(Anagramme(ch1,ch2)); end.
Merci de m'aider en tout cas :)

Le code proposé par Alacatîz me semble correcte.

Citation:

La valeur booléenne que renvoie la fonction doit porter sur 'Oui ou Non les deux mots entrés par l'utilisateur sont des anagrammes'. Or là, la valeur renvoyée par la fonction dit: 's'il les 2 strings ont la même longueur envoyer vrai ou faux'.

Pour que deux chaines puissent etre des anagrammes, il faut dejà qu'elles aient la meme longueur.
Citation:
Code:

1 2 Result := (Length(s1) = Length(s2));
Ce n'est pas forcement cette valeur de result qui sera renvoyer, puisque la fonction ne s'arrete là.
Si cette condition est verifiée, on peut maintenant verifier si elles ont les meme caracteres.
Citation:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 while (i <= Length(s1)) and Result do begin c := Pos(s1[i],s2); if c <> 0 then begin Delete(s2,c,1); WriteLn(s2); Inc(i); end else Result := False; end;

01/05/2009, 20h27
xinx1

Oui, le code proposé par alacatîz renvoie une valeur TRUE... je n'ai jamais dit le contraire... mais je trouve que c'est mieux de vérifier si la longueur des deux chaînes avant d'entrer dans une boucle et que la valeur booléenne renvoyée par la fonction ne devrait par porter sur la longueur des chaînes mais sur 'Oui ou Non ces deux nombres sont des anagrammes'. Et puis une fois qu'on rentre dans la boucle, les caractères de s2 sont supprimés donc d'office, la valeur de la longueur de la chaîne s2 va être différente de celle de s1.
C'est juste mon souci avec ce code :oops: :)

Voilà donc pourquoi je trouve plus clair de poser la condition sur l'équivalence des longueurs des deux chaînes de caractères proposées avant d'aller plus loin.
En même temps, on pourrait encore compliquer le problème en vérifiant si
***AIMER** et MARIE sont des anagrammes (*** pour les espaces)
Là, il faudrait appeler soit une fonction qui supprime les espaces et puis vérifier si les deux chaînes sont de même longueur... ou faire tout cela sans faire appel à une fonction... mais ça j'ai pas encore fait.

Enfin voilà, c'est toujours un plaisir de discuter avec vous :D
Je suis tout nouveau dans la programmation... et je peux vous dire que ça me passionne énormément :).....
D'ailleurs je compte entreprendre des études dans ce domaine en plus de ce que je fais déjà... Soit, je sors du sujet!

Encore merci!!!!

J'ai laissé murir le problème et un déclic s'est produit et ça marche!!!:mouarf:
Voilà ce que ça donne:

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
program Exercice5;
 
// PAR EXEMPLE MARIE ET AIMER POUR LES ANAGRAMMES
 
function Anagramme(const s1:string;var s2:string):boolean;
var i,c:integer;
 
begin
	i:=1;
	result:=False;
	if length(s1)=length(s2) then // Length(s1)=Length(s2)=5
		begin
 
			while (i<=length(s1)) and (length(s2)<>0) do //TANT QUE I<> Length(s1)+1 et que s2 n'est pas égal à chaîne de caractère vide alors on entre dans la boucle
				begin
					c:=pos(s1[i],s2);
					inc(i);
					writeln(result);
					if (c<>0) then
					begin
						delete(s2,c,1); // ici on modifie la chaîne s2 donc on modifie le Result.... 
						writeln(s2);
						writeln(length(s2));
 
					end;
				end;// On sortira de la boucle quand i=6 et s2= ' '... Le Result devrait renvoyer TRUE...Je ne comprends pas mon erreur...
			if length(s2)=0 then
				result:=True
			else 
				result:=False;
		end;
end;
 
var ch1,ch2:string;
 
begin // PROGRAMME PRINCIPAL
 
	writeln('Veuillez entrer 1 mots: ');
	readln(ch1);
	writeln('Veuillez entrer un 2e mot: ');
	readln(ch2);
	writeln(Anagramme(ch1,ch2));
end.

Qu'en pensez-vous?