bonjour a tous, voici en-dessous une ébauche de code d'un mastermind, la ce ne sont que des tests donc rien de bien concret . Le "programme" se compile bien mais j'ai une erreur à l'exécution :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
tuxico@eternity:~/Cours/Prog/Pascal$ ./Mastermind 
Jeu de Mastermind
Creation du code couleur
./Mastermind: value out of range (error #300 at 8049e8d)
je ne trouve pas de valeur trop grande pour un tableau, donc d ou cette 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
45
46
47
48
program MasterMind;
 
var tcouleur : array[0..7] of string[10];
    tcode : array[1..4] of string[10];
    tcodejoueur : array[1..4] of string[10];
    i,l : integer;
 
        procedure code;
        var i,l : integer;
        begin
        l := 0;
        i := random(7);
        while(l<4) do
        begin
 
                tcode[l] := tcouleur[i];
                l := l + 1;
 
        end;
        end;
begin
 
writeln('Jeu de Mastermind');
writeln('Creation du code couleur');
 
tcouleur[0] := "violet";
tcouleur[1] := "rouge";
tcouleur[2] := "blanc";
tcouleur[3] := "noir";
tcouleur[4] := "bleu";
tcouleur[5] := "jaune";
tcouleur[6] := "vert";
tcouleur[7] := "brun";
 
code();
 
while(tcode[1]=tcode[2]) or (tcode[1]=tcode[3]) do
begin
if(tcode[1]=tcode[4]) then
code();
end;
 
writeln(tcode[1]);
writeln(tcode[2]);
writeln(tcode[3]);
writeln(tcode[4]);
 
end.