Discussion :

[chloe95]

Bonjour, je ne sais pas bien utiliser la fonction Random, j'ai écrit ce code(vous n'avez que le début), mais le problème c'est qu'en lançant mon programme, il me tire tous le tps les meme chiffre 1 1 6 2 2 et 5 si je met un randomize il tire 1 1 1 1 ou 2 2 2 et 2.
Pourriez vous m'expliquez comme on l'utilise..

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Procedure DE(var cpt:T_cpt; var findujeu:boolean; var parcours:integer; var pprec,pcour:T_ptr_elmt);
 
Var
p_avt:integer;
pcaseN:T_ptr_elmt;
MAX:integer;
 
Begin
MAX:=6;
cpt:=Random(MAX)+1;
 
Writeln('Vous avez tire le chiffre: ',cpt);

[M.Dlb]

Tu dois obligatoirement utiliser randomize au tout dé but de ton programme, c'est-à-dire entre les instructions begin et end.

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
 
Procedure DE(var cpt:T_cpt; var findujeu:boolean; var parcours:integer; var pprec,pcour:T_ptr_elmt);
 
Var
p_avt:integer;
pcaseN:T_ptr_elmt;
MAX:integer;
 
Begin
MAX:=6;
cpt:=Random(MAX)+1;
 
Writeln('Vous avez tire le chiffre: ',cpt); 
end;
 
begin
  randomize;
end;