routine aléatoire : comment éviter les doublons ?

Question

Bonjour,
j'utilise une routine al&#233;atoire et je voudrais &#233;viter les doublons (c'est&#224; dire que le m&#234;me nombre sorte deux fois). Est ce que quelqu'un peut m'aider?????????
Merci
alaga

cs_cantador · Answer

NDX := 0;
        for j := 1 to 5 do
        begin
          cot := cot + 1;
          Randomize;
          TAB5[j] := RandomFrom(INFMOY);
          if j = 5 then break;
      // Mise &#224; z&#233;ro de la valeur trouv&#233;e
          for i := 0 to (ifm - 1) do
            if INFMOY[i] = TAB5[j] then
              INFMOY[i] := 0;
      // suppression des z&#233;ros
          for k := 0 to ((ifm - 1) - (j - 1)) do
            if INFMOY[k] <> 0 then
            begin
              INFMOY[NDX] := INFMOY[k];
              NDX := NDX + 1;
            end;
      // Dimensionnement &#224; la s&#233;lection
          SetLength(INFMOY, ((ifm - 1) - (j - 1)));
          NDX := 0;
        end
un ex pour 5 nombres


n'oublie pas les d&#233;clarations..J'avais d&#233;j&#224; fait &#231;a il y a un moment
ce n'est pas top mais &#231;a marche..

cs_alaga · Answer

Merci je vais essayer.
alaga

cs_alaga · Answer

salut,
mon application n'accepte pas le RandomFrom.
je n'arrive pas &#224; utiliser ce que tu m'as transmis.
help!!!
merci
alaga

cs_cantador · Answer

il te manque un uses : Math

cantador

cs_alaga · Answer

Je n'y arrive pas!!

voil&#224; une partie de mon code :

procedure configuration;
var I,  A :integer;
begin
  If groupe = 1 then
 begin
   Randomize;
  For I := 0 to 5 do begin
  A:= StrToInt(Situationsdemineurs.ITEM1.Items[Random(I)]);
  end;
 end;

j'ai une liste (ITEM1) et je voudrait g&#233;n&#233;rer une pioche al&#233;atoire dans cette liste sans jamais avoir de doublons.

pouvez vous m'aider ???????
MERCI!!!!!!!!!

cs_cantador · Answer

c'est le uses qui ne marche pas ? 
et quelle version de delphi utilises-tu ?

cantador

cs_alaga · Answer

j'utilise delphi6.
eh oui, le uses n'est pas accept&#233;.
alaga

Cirec · Answer

Salut,
Alaga tu dis :  "le Uses n'est pas accept&#233;" 
ben ta un drole de Delphi toi 

Ex.

Implementation
Uses Math;
{$R *.dfm}

Et la tu peux utiliser RandomFrom

@+
Cirec

Routine aléatoire : comment éviter les doublons ?

8 réponses

Votre réponse

Discussions similaires