Discussion :

[Tuxico]

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.

[Auteur]

bonjour,

je prends le code de ta fonction :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
 var i,l : integer;
begin
l := 0;
i := random(7);
while(l<4) do
begin
 
tcode[l] := tcouleur[i];
l := l + 1;
 
end;

et la déclaration de tcode :

Code :

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

 tcode : array[1..4] of string[10];

l=0 lors de la 1ere boucle while et tcode a un intervalle [1..4] donc si l=0 tu as un "value out of range".

[Tuxico]

pfffou faut que je dorme moi en tout cas merci

[Gnux]

pfffou faut que je dorme moi en tout cas merci

Sans doute la prochaine fois n'oublie pas de préciser ton compilateur, de mettre les balises code et aussi un tit résolu

[Tuxico]

de mettre les balises code

mais c'est fait euhh :'(

[Gnux]

de mettre les balises code

mais c'est fait euhh :'(

Ben tu penses j'ai édité ton message la tu avais mis les balises quote
c'est pas bien grave mais c'est plus lisible comme ça