Eviter deux nombres identiques dans un tirage aléatoire

Version imprimable

22/11/2002, 17h42
moon tiger

Eviter deux nombres identiques dans un tirage aléatoire
Salut,

Je cherche à simuler le Loto : 6 variables entières tirées au sort entre 1 et 49, en évitant qu'un même nombre apparaisse deux fois.

J'ai écrit ceci :
Code:

1 2 3 4 5 6 7 randomize; for :=1 to 6 do begin tableau[i]:=random(49); if tableau[i]:=0 then { exclure 0 du tirage...du moins je suppose} dec(i); end;
Maintenant, comment faire pour qu'un nombre n'apparaisse pas deux fois ?
Tout ce que j'ai essayé ne fonctionne pas... J'ai meme bouclé à l'infini... :oops:
Expliquez-moi bien svp, je suis débutant en prog...

Merci d'avance.

Code:

1 2 3 4 5 6 7 8 randomize; for :=1 to 6 do begin tableau[i]:=random(48)+1; {pour exclure 0 c est plus pratique ;)} fo a:=1 to i do if tableau[i]:=tableau[a] then tableau[i]:=random(48)+1; end;
Le problème c'est que comme ça, si tu retires un nombre égal avec le random, ça ne marche pas, mais je pense qu'il y a peu de chances pour que ça arrive ...

je vous propose la solution suivante en FreePascal

Avant de mémoriser la boule dans la table, verifier qu'elle n'est pas déja
mémorisée sinon refaire
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 program loto; uses Sysutils; var i,j,k : byte; tab : array [1..6] of byte; label Refaire; begin randomize; for i := 1 to 6 do begin Refaire : k:= random(49); if k = 0 then goto Refaire; for j := 1 to i-1 do if tab [j] = k then goto Refaire; tab[i] := k; end; for i := 1 to 6 do writeln (tab[i]); readln; end.
PS : je n'ai aucune honte à utiliser un "goto"

Je te laisse un semblant de prog mais je te garantie pas que ça marche!

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
program loto;
var i,j,k;integer;
      tab:array[1..6] of integer;
      egal:boolean;
begin
randomize;
for i:=1 to 6 do
      j:=1;
      repeat
      egal:=false;
      k:=random(48)+1;
           repeat
           if tab[j]=k then egal:=true else j:=j+1;
           until (j>i) or (egal);
      until (j>i);
tab[i]:=k;
end;

Ps:il se peut que ça ne marche pas dis le moi j'y regarderais de plus pres.

23/11/2002, 21h21
Eric Sigoillot

Avant de rentrer dans le détail du sujet, on va commencer par énoncer une règle fondamentale sur les boucles itératives : ne jamais modifier le compteur de boucle dans une boucle for ! Le résultat devient imprévisible en fonction du compilateur utilisé...

Maintenant, pour éviter le zéro, la méthode de Charly est la bonne. En effet, on a l'inégalité suivante :

0 <= Random(X) <= X - 1

Donc :

1 <= Random(X) + 1 <= X

Maintenant, pour éviter de tirer plusieurs fois le même nombre, différentes soluitions sont envisageables, et on en a déjà parlé il y a quelque temps. Utilise la fonction Rechercher.

A+
25/11/2002, 09h57
vinyl74

le code que j'ai rentré au dessus marche.En fait la boucle for correspond a la derniere case rentrée ds le tableau et je fais donc la recherche jusqu'a cette case(je ne le modifie pas) le reste on s'en fou.et cela permet d'eviter le cas ou le random sors les 2 memes a la suite (meme si c'est tres rare).