cs_alaga
Messages postés17Date d'inscriptionmercredi 2 novembre 2005StatutMembreDernière intervention28 octobre 2008
-
23 mars 2006 à 10:59
Cirec
Messages postés3833Date d'inscriptionvendredi 23 juillet 2004StatutModérateurDernière intervention18 septembre 2022
-
1 avril 2006 à 13:34
Bonjour,
j'utilise une routine aléatoire et je voudrais éviter les doublons (c'està dire que le même nombre sorte deux fois). Est ce que quelqu'un peut m'aider?????????
Merci
alaga
cs_cantador
Messages postés4720Date d'inscriptiondimanche 26 février 2006StatutModérateurDernière intervention31 juillet 202113 23 mars 2006 à 14:37
NDX := 0;
for j := 1 to 5 do
begin
cot := cot + 1;
Randomize;
TAB5[j] := RandomFrom(INFMOY);
if j = 5 then break;
// Mise à zéro de la valeur trouvée
for i := 0 to (ifm - 1) do
if INFMOY[i] = TAB5[j] then
INFMOY[i] := 0;
// suppression des zé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 à la sélection
SetLength(INFMOY, ((ifm - 1) - (j - 1)));
NDX := 0;
end
un ex pour 5 nombres
n'oublie pas les déclarations..J'avais déjà fait ça il y a un moment
ce n'est pas top mais ça marche..
cs_alaga
Messages postés17Date d'inscriptionmercredi 2 novembre 2005StatutMembreDernière intervention28 octobre 2008 30 mars 2006 à 13:10
Je n'y arrive pas!!
voilà 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énérer une pioche aléatoire dans cette liste sans jamais avoir de doublons.