Générer des entiers aléatoires différents

**LeStriker** · 10/01/2014, 00h24

Coucou

J'essaie de générer des nombres au hasard pour les utiliser dans un programme et vérifier quelle est la probabilité approchée de perdre ou de gagner à un jeu dans un exemple précis. Pour le fun

Voici mon problème : dans la boucle while, random(n) donne toujours le même nombre dans une exécution. Puis un autre nombre pour une autre exécution. Je n'arrive pas à trouver l'erreur.

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
21
22
23
24
25
26
27
program blackjack ;
var n, banque, compteuras, win, i : integer ;
 
begin
     compteuras:=0;
     banque:=10;
     win:=0;
     for i:=1 to 100 do begin
                             while banque<17 do begin
                                                     randomize ;
                                                     n:=random(13)+1;
                                                     if n>9 then n:=10;
                                                     if (n=1) and (banque<11) then begin
                                                                                         n:=11;
                                                                                         compteuras:=1;
                                                                                    end;
                                                     if ((banque+n)>21) and (compteuras=1) then begin
                                                                                                     compteuras:=compteuras-1 ;
                                                                                                     banque:=banque+n-10;
                                                                                                end
                                                     else banque:=banque+n;
                                                end;
                             if banque<22 then win:=win+1;
                             writeln(banque); //j'ai mis ça pour vérifier le résultat, et sur les 100 appels, banque vaut exactement la même valeur
                        end;
     writeln(win);
end.

**Jipété** · 10/01/2014, 01h35

Salut,

En Turbo Pascal je ne sais pas, mais en Lazarus on met l'instruction randomize; en début de procédure/programme.

Ensuite, pour y voir plus clair, tu pourrais faire ça

Code :

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

1
2
               n:=random(13)+1;
               writeln(n); // pour voir la valeur, et tu peux en mettre partout

Comme ça tu verras ce qui se passe.

Ensuite tu prends un papier et un crayon, et tu réfléchis...

**LeStriker** · 10/01/2014, 19h22

Dsl d'avoir copier toute ma merde, pas évident à comprendre

Voilà le truc qui me chiffonne : dans une boucle, le randomize ne sert à rien.
Il n'est utile qu'en relançant le programme.
Et j'aimerais prendre plusieurs nombres aléatoires dans un seul programme.

Code :

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

1
2
3
4
5
6
7
8
begin
     for i:=1 to 10 do begin
                            randomize;
                            n:=random(13)+1;
                            writeln(n); //n=constante
                       end;
     readln;
end.