[Free Pascal] Problème lors de la compilation
Bonjour
Voila je m'entraine sur pascal et donc me suis fait un programme avec une procèdure sur des choix de repas mais lors de ca compilation j'ai quelques erreur sur l'initialisation des variables de ces procèdures alors que je l'es ai bien initialisé enfin je crois.
Code:
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
|
program carte;
(* Procedure pour l'entree *)
procedure entree;
var choix1:char;
begin
writeln ('Veuillez saisir votre entrée "C ou O ou S" ');
readln ('choix1');
case choix1 of
'C':writeln('Crudités');
'O':writeln('Oeuf');
'S':writeln('Soupe');
end;
end;
(* Procedure pour la plat *)
procedure plat;
var choix2:char 1;
begin
writeln ('Veuillez saisir votre plat "V ou P ou R" ');
readln ('choix2');
case choix2 of
'V':writeln ('Viande');
'P':writeln ('Poisson');
'R':writeln ('Que des légumes');
end;
end;
(* Procedure pour le dessert *)
procedure dessert;
var choix3:char 1;
begin
writeln ('Veuillez saisir votre dessert "G" ou F ou S" ');
readln ('choix3');
case choix3 of
'G':writeln ('Gateau');
'F':writeln ('Fruit');
'S':writeln ('Sorbet');
end;
end;
(*Programme principal*)
begin
entree;
plat;
dessert;
end. |
mon erreur :
Code:
1
2
3
4
5
6
7
8
9
10
11
|
Compiling exo38.pas
exo38.pas(10,19) Error: Variable identifier expected
exo38.pas(11,15) Warning: Local variable "choix1" does not seem to be initialized
exo38.pas(25,19) Error: Variable identifier expected
exo38.pas(26,15) Warning: Local variable "choix2" does not seem to be initialized
exo38.pas(40,19) Error: Variable identifier expected
exo38.pas(41,15) Warning: Local variable "choix3" does not seem to be initialized
exo38.pas(54) Fatal: There were 3 errors compiling module, stopping
exo38.pas(54) Fatal: Compilation aborted
Error: /usr/bin/ppc386 returned an error exitcode (normal if you did not specify a source file to be compiled) |
Merci d' avance :)
