Discussion :

[VassR]

Bonjour,

J'ai un peu de mal avec cet énoncé :

On souhaite disposer d'une application permettant d'afficher les lettres
communes à deux mots tapés au clavier. On suppose que les mots ne
peuvent pas comporter plus de 26 lettres. Le programme doit faire un affichage du type :
Donnez un premier mot : pain
Donnez un deuxième mot : maison
La lettre a est commune aux deux mots
La lettre i est commune aux deux mots
La lettre n est commune aux deux mots

Pouvez-vous m'aider ?

Merci d'avance.

[M.Dlb]

As-tu déjà codé quelque chose ? Sinon il faut voir ton algo à la main d'abord puis le traduire en Pascal.

Petite aide: il faut parcourir le mot n°1 lettre par lettre, et pour chaque lettre, si elle n'a pas déjà été trouvée dans le mot n°1, parcourir le mot n°2 et la chercher.

[VassR]

Je suis en BTS IG 1ère année et nous codons des choses assez simples pour l'instant. J'ai toujours eu du mal avec les souschaîne, longueurchaîne etc. Je vais tenter d'y réfléchir.

Merci pour l'aide

[Wachter]

Bonjour,

La solution proposée par wormful_sickfoot est correcte, sauf qu'il faut vérifier à chaque fois si la lettre courante a déjà été parcourue (trouvée) ou non dans le premier mot. Si tu veux t'éviter cela, tu n'as qu'à parcourir les vingt-six lettres non accentuées de l'alphabet et vérifier une à une son appartenance aux deux mots lus au clavier :

Code :

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

1
2
3
4
 
Pour chaque lettre de l''alphabet
  Si la lettre existe dans les deux mots
    Afficher cette lettre;

--
Wachter

[VassR]

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
Program Lettres Communes ;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
Var mot1 , mot2 , let1, rep : String ;
Var i , j : Integer ;
 
Begin
 
     WriteLn ('Programme permettant de trouver les lettres communes a deux mots');
     WriteLn;
 
     rep := 'oui';
     While rep = 'oui' Do Begin
 
     WriteLn ( 'Veuillez saisir le premier mot' ) ;
     ReadLn (mot1) ;
     WriteLn;
 
     WriteLn ( 'Veuillez saisir le deuxieme mot' ) ;
     ReadLn (mot2) ;
     WriteLn;
 
 
     //Structure permettant de comparer chaque lettre du premier mot au deuxieme mot
 
     For i := 1 to Length ( mot1 ) DO BEGIN;
          Let1 := mot1[i] ;
 
          For j := 1 to Length ( mot2 ) DO BEGIN;
               If let1 = mot2[j] Then Begin
                    WriteLn ( 'La lettre, ' , let1 , ' est commune aux deux mots' ) ;
 
               End;
 
          End;
     End;
     WriteLn ('Voulez-vous rejouer ? oui/non');
     ReadLn (rep);
 
 
End;
End.

Voilà ce que j'ai fais. Cependant j'ai une autre question. Lors de l'execution de mon programme (mot1 = avion et mot2 = bateau) il m'affiche :

'La lettre, a est commune aux deux mots'
'La lettre, a est commune aux deux mots'

Comment faire pour mettre qu'une seule fois la réponse ?

[krachik]

Bonjour
C'est pour régler ce problème que precedement :

Petite aide: il faut parcourir le mot n°1 lettre par lettre, et pour chaque lettre, si elle n'a pas déjà été trouvée dans le mot n°1, parcourir le mot n°2 et la chercher.

Meme chose :

sauf qu'il faut vérifier à chaque fois si la lettre courante a déjà été parcourue (trouvée) ou non dans le premier mot. Si tu veux t'éviter cela, tu n'as qu'à parcourir les vingt-six lettres non accentuées de l'alphabet et vérifier une à une son appartenance aux deux mots lus au clavier :

Cordialement

[M.Dlb]

J'ajouterai que, si la lettre a été trouvée dans le mot n°2, il faut sortir de la boucle qui parcourt le mot n°2.

[Mc_Chiken]

j'aimerais savoir comment faire pour quitter la boucle après lecture de lettre similaire mais si les mot sont : barbara et ravage comment je peut faire pour que cela maffiche 2 a et non 3