[Turbo Pascal] Version itérative de la fonction Construire

Version itérative de la fonction Construire

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:

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.

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. :mrgreen:

Citation:

Envoyé par imene_s

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. :roll:

Citation:

Envoyé par 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. :mrgreen:

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

Citation:

Envoyé par Roland Chastain

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. :roll:

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:

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;

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

parce que c'est urgent

Code:

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 ;)

Citation:

Envoyé par pascalCH

Code:

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