Discussion :

[BXDSPORT]

Bonjour

Est-ce que quelqu'un sait comment faire pour obtenir une liste de 10 numéros différents grâce à un random de 100 numéros par exemple ?

Comment tester que le nombre sorti dans random n'est pas déjà diffusé dans une stringList ? (Sous Delphi 5.0 Pro).

[Pierre Castelain]

Je pense qu'il doit exister un algorithme pour générer plusieurs nombres aléatoires différents dirrectement, mais comme il ne t'en faut que 10, pourquoi ne pas remplir un tableau de 10 éléments en testant à chaque fois que le nombre tiré n'est pas déja présent?

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
type
  TAleas = array [0..9] of integer;
 
const
  AleaMin = 1;
  AleaMax = 11;
 
function DejaTire(const Aleas: TAleas; const Value: Integer;
  const MaxNdx: Integer): boolean;
var
  i: Integer;
begin
  for i:=Low(Aleas) to MaxNdx do
    if Value = Aleas[i] then
    begin
      result:= true;
      exit;
    end;
  result:= false;
end;
 
function Tirer: TAleas;
var
  i: Integer;
  value: Integer;
begin
  Randomize;
  for i:= Low(result) to High(result) do
  begin
    value:= Random(AleaMax - AleaMin) + AleaMin;
    while DejaTire(result, Value, i-1) do
      value:= Random(AleaMax - AleaMin) + AleaMin;
    result[i]:= Value;
  end;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var
  aleas: TAleas;
  i: Integer;
begin
  aleas:= Tirer;
  ListBox1.Items.Clear;
  for i:= Low(Aleas) to High(Aleas) do
    ListBox1.Items.Add(IntToStr(Aleas[i]));
end;

[14JoursEnMai]

voilà un bout de code qui devrait te convenir

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
 
procedure TForm1.Button1Click(Sender: TObject);
var
  Tableau : array[1..10] of integer;
  i, j: integer;
  DejaTire: boolean;
begin
 
Randomize;
for i := 1 to 10 do begin
  repeat
    Tableau[i]:=Trunc(Random(100) + 1);
    DejaTire:=false;
    for j:=1 to i-1 do
      if Tableau[j] = Tableau[i] then begin
        DejaTire:=True;
        Break;
      end;
  until not DejaTire; 
end;
 
Memo1.Clear;
for i := 1 to 10 do
  Memo1.Lines.Add(Format('%d', [Tableau[i]]));
 
end;

Pour trouver 10 chiffres parmi 100 cet algo est suffisant.

[Al-Yazdi]

Euh, vous connaissez les ensembles ? et leur mot clef 'IN' ?

Parceque là, vos deux boucles imbriquées, c'st hyper lourd !

qq un pourrait me donner un algo qui permettrait de remplir un tableau de 10 chiffres sur un intervalle de [0..20] (par exemple) et que celui ci ne ressortent pas deux fois le meme chiffre, lors du remplissage du tableau
merci

Je lui ai répondu :

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
Var 
  val, i : integer; 
  S : set of Integer; 
  T := Array[0..10] Of Integer; 
Const 
  min = 0; 
  max = 20; 
begin 
  S := []; 
  Randomize; 
  For i := 0 to 10 
    do 
      begin 
        Repeat 
          val := Random(max+1)+min; 
        Until not (val IN S); 
        S := S + [val]; 
        T[i] := val; 
      end; 
end;

Et je pense que ce code est plus optimisé que si on recherche dans le tableau ...

Moi
Salut