Bonjour , lorsque je compile mon programme celui ci me dit qu'il me manque une "(" à un endroit et je ne comprends pas du tt !!
la variable Sgagnant a été définie comme
Type Sgagnant =integer;
j'ai fait 2 essais
essai 1 :
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
Procedure Donnenbrsets(VAR setgagnant:integer);
Var rep : CHAR;
Begin
Writeln
Writeln('Cat‚gorie de joueurs ?');
Writeln('1. (F)eminin');
Writeln('2. (M)asculin');
Writeln('Choix ?');
Readln(rep);
Case rep of
     '1','F','f': Begin
     setgagnant:=2;
     end;
     '2','M','m': Begin
     setgagnant:=3;
     end;
 
END;
le 2 ème essai en mettant Sgagnant comme string :

essai2
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
Function Donnenbrsets:integer;
Var rep : CHAR;
Begin
Writeln
Writeln('Cat‚gorie de joueurs ?');
Writeln('1. (F)eminin');
Writeln('2. (M)asculin');
Writeln('Choix ?');
Readln(rep);
Case rep of
     '1','F','f': Begin
     Sgagnant:=2;
     end;
     '2','M','m': Begin
     Sgagnant:=3;
     end;
 
END;
à chaque fois que je compile le programme souhaiterai qu'une '(' apparaissent après Sgagnant..

Quelqu'un a une idée ?
Merci de l'aide que vous pourriez m'apporter;