[Pascal] Randomize

est il possible de faire plusieur radom de suite different?
j'ai voulu simuler un jeu de dés avec ce code:

Code:


program des
var d,n,i : integer;
begin
i:=1;
 writeln('combien de lances de des?');
 readln(n);
 while i<=n do
  begin
    randomize
    d:=random(6)+1;
    writeln(d);
    i:=i+1;
  end;
end.

sauf que si on demande 2 lancés il donne 2 fois le même chiffre alors que pourtant il devrais faire son premier lancé, ecrire le resultat obtenu et ajouter "1" a la valeur de "i" et comme "2" rempli la condition "i<=n" quand n=2 il devrais faire un deuxieme lancé de dés différent du premier mais il me met toujours le même,

si je demande 5 lancés il me mettra 5 fois le même chiffre,
pourquoi?[i]

Il ne faut pas un ';' à la fin de ton randomize ?

Et si tu le mets avant ta boucle while, ça fait la même chose ?

Je le mettrais entre le premier begin et l'initialisation de ta variable i :

Code:

begin
randomize;
i:=1;

Ok merci, ça fonctionne impec'
Et ça devrait m aider pour un programme plus grand qui me posait le même problème
PS la virgule y était, j ai juste oublie de la remettre ici dans la précipitation