Programme de maths Aider moi SVP.....

Salut,
Donc je suis nouvelle programmeuse et je veut réaliser le programme suivant:

soit un tableau de 8 cases de type entier, je veut afficher toutes les probabilités possibles des combinaisons de 8 entiers, commancant par les nombres de un chiffre jusqu'à le nombre de 8 chiffres

(0,5,7,6,3,4,1,9)
les resultats: 0,5,7,6,3,4,1,9,05,07,06,......,057,056,053....,0576,0573,...........,05763419

Vraiment un grand merci pour vous.
Bon courage cher(e)s programmeur(euse)s.

Bonsoir,

nombre de combin de 2 parmi 8
nombre de combin de 3 parmi 8
nombre de combin de 4 parmi 8
nombre de combin de 5 parmi 8
nombre de combin de 6 parmi 8
nombre de combin de 7 parmi 8
nombre de combin de 8 parmi 8

Voir sur ce site les études réalisées sur ce sujet (Ma petite combine etc...)

cantador

Bonjour Nina,

Tu inclues dans une boucle la suite de calcul du CNP que t'a donné Cantador par un appel de fonction du genre : 
Function FCNP(n,p : Integer) : LongInt;
begin
   Result  := Trunc ( Factorielle(n) div ( Factorielle(p) * Factorielle(n-p) ) )
end;
Factorielle est également une fonction à écrire :
Function Factorielle(n : word): LongInt;
begin
  if n > 1 then Result := n * factorielle(n-1) // la fonction s'appelle elle-même = récursivité
              else Result := 1;
end;
Bon c'est peut être pas optimisé!
Cordialement


Jean_Jean

voilà un exemple donnant les combinaisons de 6 parmi 8 sur ton cas particulier :

PROCEDURE TForm1.Button1Click(Sender: TObject);
VAR
  a, b, c, d, e, f: integer;
CONST
  NUM: ARRAY[0..7] OF integer = (0, 5, 7, 6, 3, 4, 1, 9);

BEGIN
  Memo1.Clear;
  FOR a := 0 TO (length(NUM) - 5) DO
    FOR b := a + 1 TO (length(NUM) - 4) DO
      FOR c := b + 1 TO (length(NUM) - 3) DO
        FOR d := c + 1 TO (length(NUM) - 2) DO
          FOR e := d + 1 TO (length(NUM) - 1) DO
            FOR f := e + 1 TO (length(NUM)- 1) DO

              Memo1.Lines.Add(intToStr(NUM[a]) + ';' + intToStr(NUM[b]) + ';' + intToStr(NUM[c]) + ';'
                + intToStr(NUM[d]) + ';' + intToStr(NUM[e]) + ';' + intToStr(NUM[f]));
END;

Tu peux répéter la même opération pour les autres types de combinaisons et tout mettre dans le même MEMO

cantador

@ Cantador

   Je suis pas sûr que ta fonction soit plus rapide en particulier sur des ensembles plus importants. ça serait intéressant de vérifier. En tout cas, elle est plus intuitive et donc plus compréhensible pour le débutant.
Cordialement

Jean_Jean

Donc je suis nouvelle programmeuse

@Jean_Jean
c'est tout à fait ça...

cantador

Merci de lire le règlement :
http://www.delphifr.com/reglement.aspx
On en demande pas de programme tout fait.

Message à ceux qui ont répondu : "Jean-Robert vous remercie de lui avoir fait son exercice de math."

Tout n'est pas terminé, on n'en a fait qu'un tout petit bout...

Est ce que le père Noël va quand même passé ?

cantador

hou la belle faute..
Est ce que le père Noël va quand même passer ?

cantador

Je vous remercie mes chers.

Donc la partie de cantador me donne les cas sans  réptition, je veut qu'une combinaison soit aussi répetée .
Exple: (0,1,5)
resultats:
(0,1,5,00, 11, 55, 01,10,05,50,15,51,015,051,105,150,501, 510) comme ça.

Merci une autre fois mes chers amis
Bonne programmation.