RetourForum Delphi
Nouveau compte - Se connecter - Perdu votre mot de passe?Recherche: Utilisateur - Message

Index > Forum général > Random avec les numéros choisisNouveau post - Répondre
TheWinner
visiteur
Message Random avec les numéros choisis message: éditerle 11/07/19 à 18h40

Bonjour,

J'aimerais créer un programme qui fait des mélanges (ou Random) avec les numéros prédéterminés:

Exemple: 1, 14, 25, 32, 44, 49, 50, 53, 55, 61, 67, 70

Ce programme va mélanger et donner des combinaisons de quatre numéros, en utilisant seulement les numéros mentionnés plus haut.
Avez-vous des idées, avec quels fonctions utilisés, pour créer ce programme?

Merci d'avance.

papyvore
visiteur
Message Re: Random avec les numéros choisis message: éditerle 12/07/19 à 12h08

salut
un truc comme ça
[code]
var
  Indices: array [1 .. 12] of Integer = (1, 14, 25, 32, 44, 49, 50, 53, 55, 61, 67, 70);
  IndicesCount: Integer;
  i: Integer;
  z: Integer;

procedure TForm13.Button1Click(Sender: TObject);
begin
  IndicesCount := 0;
  i            := 0;
  randomize;
  repeat
    z := randomrange(Indices[1], Indices[12]);
    if z in [1, 14, 25, 32, 44, 49, 50, 53, 55, 61, 67, 70] then
    begin
      Memo1.Lines.Add(inttostr(z));
      inc(i);
    end;
  until i = 4;
end;

papyvore
visiteur
Message Re: Random avec les numéros choisis message: éditerle 12/07/19 à 18h56

ou plutôt celui ci
 

code



var
  Indices: array [1 .. 12] of Integer = (1, 14, 25, 32, 44, 49, 50, 53, 55, 61, 67, 70);
  i: Integer;
  z: Integer;

procedure TForm13.Button1Click(Sender: TObject);
begin
  randomize;
  for i := 1 to 4 do
  begin
    z := randomrange(1,12);
    Memo1.Lines.Add(inttostr(Indices[z]));
  end;
  Memo1.Lines.Add('===================');
end;

Index > Forum général > Random avec les numéros choisisNouveau post - Répondre
 page 1 sur 1