Discussion :

[scarabee10]

Bonjour à tous,
J'essaie de programmer en ce moment en pascal un jeu de dés inspiré du 421, qu'est le 42. Le principe est simple, il se joue avec deux dés et l'objectif est d'obtenir la combinaison 42. Une partie se joue en plusieurs manches (fixées à 3). Le score de la partie est la somme des scores obtenus dans chacune des manches. L'objectif est d'obtenir le score maximal.
Lors d'une manche, le joueur dispose de trois lancers pour établir une combinaison. Après le lancer initial des deux dés, il peut soit accepter la combinaison (0), soit relancer les deux dés (2), soit relancer uniquement le premier dé (p) ou le deuxième (d).
Le score de la manche est calculé sur la combinaison obtenue à l'issue des lancers. Les scores des combinaisons sont indiqués dans mon programme (conditionnelle case).
Voilà pour le principe. Maintenant, j'ai quelques gros soucis dans mon code. Je cherche un moyen pour inclure 2 variables en même temps dans une conditionnelle case (premier et second lancer). Je pense que c'est la cause de mes erreurs de syntaxe qui n'en finissent plus.
Voici un copier-coller de mon code édité sous GVIM et compilé sous GNU PASCAL. Me demandez pas pourquoi, c'est dans mon cahier des charges!

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
49
50
51
52
53
54
55
56
57
58
Program  jeu_de_des;
 
   (*Jouer une partie de 42 avec utilisateur et afficher résultat.*)
 
const
   trois = 3;
 
Var
 
   Manches, Lancers: Integer;    (*compteurs de manches et de lancers*)
   lancer1, lancer2: Integer; (*premier et second lancer de dès*)
   choix: char; (*propositions après un lancer*)
   score_manche, score_partie: Integer; (*scores provisoires de la manche et de la partie*)
 
Begin 
 
         score_manche:= 0; 
         score_partie:= 0;
[25]   case lancer1, lancer2 of
[26]	     '4, 2':
[27]	     score_manche:= 10;
	     '1, 1':
	     score_manche:= 7;
[30]	     '6, 6':
	     score_manche:= 6;
	     '5, 5':
	     score_manche:= 5;
	     '4, 4':
[35]	     score_manche:= 4;
	     '3, 3':
	     score_manche:= 3;
	     '2, 2'..'6, 5'..'5, 4'..'4, 3'..'3, 2'..'2, 1':
	     score_manche:= 2
[40]   else
	 score_manche:= 1;
         end	   
         Manches:= 1;
         writeln('=============[ Manche ', Manches,' ]==============');
[45]   Lancers:= 1;
         lancer1:= Random(6)+1;
         lancer2:= Random(6)+1;
         writeln('Lancer ', Lancers,'/', trois,': ', lancer1,' et ', lancer2);
         writeln('Vous pouvez :');
[50]   writeln('0- accepter la combinaison');
         writeln('p- relancer le premier dé, de valeur ', lancer1);
         writeln('d- relancer le deuxième dé, de valeur ', lancer2);
         writeln('2- relancer les deux dés');
         write('Votre choix : ');
[55]   readln(choix);
 
         case choix of
	     '0':
	     writeln('Score de la manche : ', score_manche);
[60]	     writeln('Score de la partie : ', score_partie);
         end  (*fin provisoire*)
 
 
end.

N.B: j'ai mis quelques numéros de ligne en marge pour vous situer par rapport aux erreurs.
ERREURS SOUS GNU:
miniprojet.pas: In main program:
miniprojet.pas:25: parse error before `,'
miniprojet.pas:25: missing `of'
miniprojet.pas:25: case element expected
miniprojet.pas:26: `case' label does not reduce to a constant of ordinal type
miniprojet.pas:27: missing semicolon
miniprojet.pas:28: `case' label does not reduce to a constant of ordinal type
miniprojet.pas:30: `case' label does not reduce to a constant of ordinal type
miniprojet.pas:32: `case' label does not reduce to a constant of ordinal type
miniprojet.pas:34: `case' label does not reduce to a constant of ordinal type
miniprojet.pas:36: `case' label does not reduce to a constant of ordinal type
miniprojet.pas:38: parse error before `..'
miniprojet.pas:38: missing comma
miniprojet.pas:38: parse error before `..'
miniprojet.pas:38: missing comma
miniprojet.pas:38: lower value of `case' range does not reduce to
miniprojet.pas:38: a constant of ordinal type
miniprojet.pas:38: lower value of `case' range does not reduce to
miniprojet.pas:38: a constant of ordinal type
miniprojet.pas:38: lower value of `case' range does not reduce to
miniprojet.pas:38: a constant of ordinal type
miniprojet.pas:27: warning: unreachable code at beginning of `case' statement
miniprojet.pas:43: parse error before `Manches'
miniprojet.pas:60: parse error before `Writeln'
miniprojet.pas:60: extra semicolon

Bonne lecture;

[CapJack]

Code :

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

case lancer1, lancer2 of '4, 2':

Cette syntaxe n'existe pas en Pascal. Il faut reprendre entièrement le programme...

[scarabee10]

que proposez vous alors pour inclure 2 variables dans une conditionnelle case?

[M.Dlb]

Un if basique ?

[CapJack]

Idée 1 : Imbriquer des case

Code :

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

1
2
3
4
5
6
7
8
case lancer1 of 
 '1' : case lancer2 of
        '2' : score_manche := 10;
        ...
        end
       end;
 ...
 end;

nécessite une petite analyse préalable des différents cas de figure (il n'y en a que 36). Très performant, mais peu lisible.


Idée 2 : calculer une valeur entière qui identifie le lancer de façon unique. Par exemple 42 pour '4, puis '2', 11 pour '1', puis '1', etc... puis s'en servir dans le case, ou mieux, s'il s'agit seulement d'affecter une valeur à score_manche, définir un tableau de valeurs avec les valeurs à affecter.

[scarabee10]

Idée 1 : Imbriquer des case

Code :

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

1
2
3
4
5
6
7
8
case lancer1 of 
 '1' : case lancer2 of
        '2' : score_manche := 10;
        ...
        end
       end;
 ...
 end;

nécessite une petite analyse préalable des différents cas de figure (il n'y en a que 36). Très performant, mais peu lisible.


Idée 2 : calculer une valeur entière qui identifie le lancer de façon unique. Par exemple 42 pour '4, puis '2', 11 pour '1', puis '1', etc... puis s'en servir dans le case, ou mieux, s'il s'agit seulement d'affecter une valeur à score_manche, définir un tableau de valeurs avec les valeurs à affecter.

En effet, je garde la solution des case of imbriqués en dernier recours. Pour les tableaux de valeurs, je n'ai pas le droit de les utiliser.
Par contre, j'aime bien l'idée de définir une nouvelle valeur entière. Comment l'introduire? Je définis une variable entière "duo" par exemple et je lui affecte ensuite la valeur duo:= lancer1, lancer2 (pour avoir duo= 42 pour lancer1=4 et lancer2=2 par exemple)??
Merci pour vos réponses.

[CapJack]

duo:= lancer1, lancer2 (pour avoir duo= 42 pour lancer1=4 et lancer2=2 par exemple)??

Cette syntaxe non plus n'a aucun sens en Pascal. Je ne sais d'ailleurs pas dans quel langage de programmation ça pourrait avoir un sens. Certains langages fonctionnels, peut-être ?

Par ailleurs, je croyais que lancer1 et lancer2 étaient des caractères ? Attention :

Code :

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

lancer1 := '4';

n'a pas du tout la même signification que

Code :

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

lancer1 := 4;

Le Pascal est un vrai langage de programmation fortement typé, pas un gadget genre php ! Si lancer1 et lancer2 sont de type entier, ben tu peux utiliser une bête formule :

Code :

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

duo := 10 * lancer1 + lancer2;

Par contre, si ce sont des caractères, il faut les convertir d'abord en leurs équivalents entiers.

Sans vouloir être désobligeant, peut-être qu'une petite initiation aux bases du langage s'impose, non ? Allez, hop : http://pascal.developpez.com/cours/

Bon courage !