[TPW][Débutant] Randomize et random

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:

---

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.

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.

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:

---

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

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:

---

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

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

Citation:

---

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:

---

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é :P
Cordialement

Hea,

Citation:

---

Envoyé par krachik

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

---

J'ai une forte tendance à la flemme, et je ne vais donc que rarement lire les liens proposés, surtout s'ils concernent la FAQ. :)