Discussion :

[Zankou]

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 :

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
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

[Roland Chastain]

Bonjour !

La procédure Randomize doit être appelée une seule fois, au début du programme.

Code :

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

1
2
3
4
begin
  Randomize;
  For I:=1 to 10 do
      BEGIN

[Zankou]

Merci beaucoup !! J'ai enfin compris mon problème