Discussion :

[imene_s]

J'ai essayé de résoudre cet exercice :
Écrire un programme qui permet de :
o Saisir un entier N de trois chiffres non nuls.
o Déterminer et d’afficher tous les nombres qui peuvent être formés par les chiffres de N.
Exemple : Pour n=427, le programme affiche :
Les nombres formés par les chiffres de n sont : 427, 472, 724, 742, 247,274.

Voilà ma solution , elle marche bien mais je veux une solution itérative je ne veux pas remplir le tableau à la main case par case :

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
47
48
49
50
program nombre_possibles;
uses wincrt;
type
tab=array[1..6] of integer;
var
n:integer;
t:tab;
 
 
procedure saisie(var n:integer);
begin
     repeat
     writeln('saisir un entier de 3 chiffres');
     readln(n);
     until(n>=100) and (n<=999);
end;
 
 
 
procedure construire(n:integer; var t:tab);
var i, c, d, u:integer;
begin
c:=n div 100;
d:= (n mod 100) div 10;
u:=n mod 10;
 
t[1]:=c*100+d*10+u;
t[2]:=c*100+u*10+d;
t[3]:=d*100+u*10+c;
t[4]:=d*100+c*10+u;
t[5]:=u*100+c*10+d;
t[6]:=u*100+d*10+c;
end;
 
 
procedure affiche(t:tab);
var i:integer ;
begin
   writeln('Les nombres possibles sont :' );
   for i:=1 to 6 do
       writeln(t[i]);
 
end;
 
 
begin
saisie(n) ;
construire(n,t);
affiche(t);
end.

[droggo]

Hue,

Sais-tu ce qu'on dit sur tous les forums d'entraide quand on voit le mot urgent dans le titre d'un sujet ?

Je vais te l'apprendre : ça signifie qu'on dispose d'autant de temps qu'on le désire pour répondre.

[Roland Chastain]

je ne veux pas remplir le tableau à la main case par case

Bonjour ! A première vue, il paraît difficile de procéder autrement, vu que le programme ne fait pas la même opération sur les six lignes.

[imene_s]

Hue,

Sais-tu ce qu'on dit sur tous les forums d'entraide quand on voit le mot urgent dans le titre d'un sujet ?

Je vais te l'apprendre : ça signifie qu'on dispose d'autant de temps qu'on le désire pour répondre.

Bah je le savais pas, peut être vous avez plein de temps pour répondre. Pour moi le temps presse et j'ai essayé plusieurs solutions itératives mais ça n'a pas marché. Donc tout est relatif

[imene_s]

Bonjour ! A première vue, il paraît difficile de procéder autrement, vu que le programme ne fait pas la même opération sur les six lignes.

j'ai essayé de transformer n en une chaîne puis de faire le traitement suivant mais il m'affiche juste 3 nombres parmi 6

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
      nb:=0;
 
      str(n,ch);
 
for i:= 1 to 3 do
      begin
           c:=ch[i];
           j:=i;
            while(j<3) do
               begin
               delete(ch,j,1);
               insert(c,ch,j+1);
               nb:=nb+1;
               val(ch,t[nb],err);
               writeln(t[nb]);
               j:=j+1;
               end;
 
      end;

[imene_s]

Pour chaque chiffre on doit faire deux permutations mais je n'arrive pas à trouver la liaison pour faire une boucle J'ai essayé d'afficher les nombres d'une manière circulaire. Mais ça m'affiche juste 3 nombres

[pascalCH]

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
procedure SwapAndDisplay(uneChaine: String);
var
  index:   integer;
  lChaine: String;
begin
  try
    if Length(uneChaine) <> 3 then
      raise Exception.Create('On a dit 3 chiffres !!!!');
    StrToInt(uneChaine);
    Writeln('Permutations pour le nombre ', lChaine);
    for index := 1 to Length(uneChaine) do
    begin
      lChaine := uneChaine;
      Delete(lChaine, index, 1);
      write(uneChaine[index], lChaine[1], lChaine[2], ' ');
      write(uneChaine[index], lChaine[2], lChaine[1], ' ');
    end;
    Writeln;
  except
    on E: Exception do
      Writeln(E.Message);
  end;
end;

Bon, ça marche uniquement parce que la longueur est fixe, un petit effort (en récursif) ça marchera pour des longueurs différentes

[imene_s]

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
procedure SwapAndDisplay(uneChaine: String);
var
  index:   integer;
  lChaine: String;
begin
  try
    if Length(uneChaine) <> 3 then
      raise Exception.Create('On a dit 3 chiffres !!!!');
    StrToInt(uneChaine);
    Writeln('Permutations pour le nombre ', lChaine);
    for index := 1 to Length(uneChaine) do
    begin
      lChaine := uneChaine;
      Delete(lChaine, index, 1);
      write(uneChaine[index], lChaine[1], lChaine[2], ' ');
      write(uneChaine[index], lChaine[2], lChaine[1], ' ');
    end;
    Writeln;
  except
    on E: Exception do
      Writeln(E.Message);
  end;
end;

Bon, ça marche uniquement parce que la longueur est fixe, un petit effort (en récursif) ça marchera pour des longueurs différentes

Merci pour vous