Usage de la procédure Randomize
Bonjour, je sais qu'il y a surement une floppé de questions sur le sujet mais je n'arrive pas à trouver ma réponse. EN effet, j'ai un programme de la sorte:
Code:
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 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48
|
program VieOuMort;
uses wincrt,crt;
Var Tirage1:Array[1..10] of integer;
Tirage2:Array[1..10] of integer;
X,I:integer;
begin
For I:=1 to 10 do
BEGIN
Randomize;
X:=random(100)+1;
if (X mod 2 = 0) then
BEGIN
X:=0;
end
ELSE
BEGIN
X:=1;
end;
Tirage1[I]:=X
end;
For I:=1 to 10 do
BEGIN
Randomize;
X:=random(100)+1;
if (X mod 2 = 0) then
BEGIN
X:=0;
end
ELSE
BEGIN
X:=1;
end;
Tirage2[I]:=X
end;
FOR I:=1 to 10 do
BEGIN
WRITELN(Tirage2[I], ' | ',Tirage1[I]);
end;
readln;
end. |
Mon but est de faire un "Vie ou mort" mais je n'arrive pas à randomiser X, il prend une seul fois une valeur et ne prend plus aucun autre valeur jusqu'au lancement d'un nouveau programme
Merci d'avance pour ceux qui pourront m'apporter de l'aide en me renvoyant vers un forum qui a la meme probleme que moi ou qui ont la solution.
PS: Je suis un peu nul en orthographe désolé pour les fautes