Bonjour et merci à ceux qui vont prendre la peine et le temps de bien vouloir lire mon post^^
Voilà, dans le cadre d'un exercice je dois refaire Le Compte est bon.
J'ai commencé a faire du code et j'obtiens :
Le problème est que quand j'écris table2[x]:=random(table[1..13]); j'obtiens une erreur
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 //le compte est bon // On dispose de 6 nombres ou chiffres tirés au hasard parmi : // les 9 premiers chiffres (1, 2, 3, 4, 5, 6, 7, 8, 9) // les nombres : 10, 25, 50, 100 //On tire au hasard un nombre compris entre 100 et 999. const tb1=13; const tb2=6; var table: array [1..tb1] of integer; var table2: array [1..tb2] of integer; var x:integer; begin randomize; table[1]:=1; table[2]:=2; table[3]:=3; table[4]:=4; table[5]:=5; table[6]:=6; table[7]:=7; table[8]:=8; table[9]:=9; table[10]:=10; table[11]:=25; table[12]:=50; table[13]:=100; table2[1]:=random(table[1..13]); table2[2]:=random(table[1..13]); table2[3]:=random(table[1..13]); table2[4]:=random(table[1..13]); table2[5]:=random(table[1..13]); table2[6]:=random(table[1..13]); writeln(table2[1]); writeln(table2[2]); writeln(table2[3]); writeln(table2[4]); writeln(table2[5]); writeln(table2[6]); readln; end.
Edit : la seule alternative que j'ai trouvé est de faireFatal: Syntax error, ] expected but .. found
mais bon c'est un peu lourd et moche :/
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5 repeat randomize; a:=random(100); until a in [1,2,3,4,5,6,7,8,9,10,25,50,100];
Merci^^
Partager