[TPW][Débutant] Randomize et random

**dimi2** · 23/04/2008, 10h01

Bonjour,
Je souhaiterais obtenir un tirage au hasard de 10 nombres de 2 chiffres. J'obtiens une suite de nombres identiques. Est-ce que j'utilise mal la fonction "randomize" ?

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
 
i := 1;
j := 0;
 
while i < 11 do
begin
randomize;
          while j < 2 do
           begin
           alea := random(100);
           str(alea,aleastring);
           j := length(aleastring);
           end;
i := i + 1;
end;

Qu'en pensez-vous ?
Je vous remercie.

**M.Dlb** · 23/04/2008, 11h53

Oui, il ne faut faire randomize qu'une seule fois. Par habitude, on le met juste après le begin du programme principal, pour être sûr que cela est fait une seule fois.

**krachik** · 23/04/2008, 12h09

Bonjour

Il faut commencer par sortir le randomize de la boucle

Pour ton code tu veras une series de meme nombres affichée juste parce que tu ne reinitialise pas ton 'j' du coup il ne passera plus dans ta boucle de j une fois le i passé à 2 puisque j=2(la condition de sortie sera toujours verifiée )

Voila une petite correction

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
 
randomize; 
i := 1;
j := 0;
while i < 11 do
begin
{Randomize enlevé et mis au debut du begin principal}
     while j < 2 do
     begin
         alea := random(100);
         str(alea,aleastring);
          j := length(aleastring);
      end;
      writeln(alea);{Ajouté}
      j:=0;{Ajouté}
i := i + 1;
end;

Tout les réponses à tes question se trouvent dans la FAQ
Et comme tu le veras dans le lien pas la peine de faire tout un travail lourd pour avoir un nombre aléatoire de 2 chiffres c'est a dire entre 10-99 inclus

Cordialement

**droggo** · 23/04/2008, 13h17

Gie,

Petit perfectionnement, évitant les conversions en chaîne : il suffit de se faire une petite fonction qui génère un nombre de 10 à 99 inclus.

Code :

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

1
2
3
4
5
6
7
8
9
const
  mini = 10;
  maxi = 99;
  delta = maxi-mini+1;
 
function donneRand : integer;
begin
  donneRand := mini + random(delta);
end;

(Les constantes mini,maxi et delta sont définies hors de la fonction pour permettre leur utilisation ailleurs)

Et pour plus de souplesse, il faudrait en fait déclarer la fonction avec des paramètres min et max. Je vous laisse faire.

**dimi2** · 23/04/2008, 13h28

Merci beaucoup... voilà encore une bonne leçon !
Bonne journée à tous.

**krachik** · 23/04/2008, 14h26

Envoyé par droggo

Gie,

Petit perfectionnement, évitant les conversions en chaîne : il suffit de se faire une petite fonction qui génère un nombre de 10 à 99 inclus.

Code :

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

1
2
3
4
5
6
7
8
9
const
  mini = 10;
  maxi = 99;
  delta = maxi-mini+1;
 
function donneRand : integer;
begin
  donneRand := mini + random(delta);
end;

(Les constantes mini,maxi et delta sont définies hors de la fonction pour permettre leur utilisation ailleurs)

Et pour plus de souplesse, il faudrait en fait déclarer la fonction avec des paramètres min et max. Je vous laisse faire.

+1 evidement
C'est exactement ce qui est dans le lien de la FAQ que j'ai donné

Cordialement