Discussion :

[tintin62]

bonjour
je voudrais faire une suite combinaison de 4 chiffres avec les nombres 1 a 70
exemple 1234 1235 1236 1237 ect..
donc comment faire une boucle pour la création et avoir une idée du nombre de combinaison
merci de votre aide

[tourlourou]

Bonjour,

Deux pistes :
- un site ici pour calculer le nombre de tirages ;
- pour faire une boucle : for i := 1 to 4 do begin {ton code ici} end;

[SergioMaster]

Bonjour,

je voudrais faire une suite combinaison de 4 chiffres avec les nombres 1 a 70

Je pense que l'on doit lire : "avec les nombres de 1 à 7" et non de 1 à 70 ?
Ou alors il y a une subtilité genre le nombre doit être supérieur ou égal 1000

[Charly910]

Bonjour,

avec 4 chiffres pris parmi 7, il doit y avoir 35 combinaisons ( n! / k! / (n-k)! avec n=7 et k=3)

si l'ordre compte cela doit faire 840 (n! / (n-k)!)

A+
Charly

[tintin62]

bonjour
merci pour votre aide
mais je viens de trouver sur un site ma solution
je joint le code que j'ai modifier legerement

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
 
procedure TForm1.Button1Click(Sender: TObject);
 var
  i, j, k, l, m, n, nnpg, nnds, sto: integer;
  COMBI:string[20];
  fil:textfile;
begin
  assignfile(fil,'file.txt');
   rewrite(fil);
    nnds := 70;
  sto := 0;
  ListBox1.Clear;
  for i := 1 to nnds do
    for j := i to nnds do
      for k := j to nnds do
        for l := k to nnds do
 
 
              if ((i <> j) and (i <> k) and (i <> l))
                and ((j <> i) and (j <> k) and (j <> l))
                and ((k <> i) and (k <> j) and (k <> l))
                and ((l <> i) and (l <> j) and (l <> k))
                 then
              begin
                sto := sto + 1;
                COMBI := IntToStr(i) + ';' + IntToStr(j)
                  + ';' + IntToStr(k) + ';' + IntToStr(l);
 
 
             writeln(fil,combi);
 
              end
              else
                continue;
 
                closefile(fil);
end;