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);
Partager