🚀 go-pugleaf

Le Sun, 23 Aug 1998 20:31:36 +0000, Huu Chau Nguyen <huuchau.nguyen@hol.fr>
�crivait :

>
>  merci d'avoir r�ponduet c'est en fait l'algo suivant que je recherche
>:
>
>? 5
>(1,1,1,1,1)
>(1,2,2)
>(2,1,1,1)
>(1,3,1)
>(4,1)
>(3,2)
>
>les nombres sont tous inf�rieurs au nombre de d�part
>c'est pour un ami (et moi aussi ) qui n'arrive pas r�soudre cet exercice
>
>d'�cole.


J'ai test� sous Delphi : 

Procedure TForm1.Decompose(n:integer);
Var
  i:integer;
  Olds:string;
begin
  if n=1 then
  begin
    Memo.Lines.Add(s+'+1');
    s:=''
  end else
  for i:=1 to n-1 do
  begin
    Olds:=s;
    s:=s+'+'+IntToStr(i);
    Decompose(n-i);
    s:=Olds
  end
end;


Avec Memo juste pour afficher le r�sultat. Il me semble que �a donne ce que tu
veux, si du moins j'ai bien compris...

Le seul probl�me que je trouve, c'est qu'on va trouver 5 = 1+2+2, 5 = 2+1+2 et
5=2+2+1. Est-ce g�nant ?

Si oui, on doit pouvoir am�liorer pour obtenir les nombres ordonn�s en
croissant.

Denis