Discussion :

[moon tiger]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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...
Expliquez-moi bien svp, je suis débutant en prog...

Merci d'avance.

[charly]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ...

[HRS]

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 :

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
 
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"

[vinyl74]

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

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
 
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.

[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+

[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).