Error : Variable identifier expected

**reenuux** · 08/06/2011, 15h40

Bonjour !
Je prépare mon examen sur les records. J'ai fait un petit code pour enregistrer de membre d'une patrouille scout, celle-ci appartenant à une troupe.

J'ai donc mis une procédure d'écrire et une de lecteur de l'enregistrement.
Au moment de la compilation, j'ai un renvoi d'erreur

Je ne trouve pas la raison

J'utile Free Pascal Compiler sous Ubuntu 10.04 - 64Bits

Voici mon code

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
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
program enregistrementScout;
Type 	TAnne = integer;
	TMois = 1..12;
	TJour = 1..31;
	Str30 = String;
	Str4 = String;
 
	TDate = record
		Jour : TJour;
		Mois : TMois;
		Anne : TAnne;
		end;
 
	TPat = record
		Nom,Animal,Troupe : string;
		end;
 
	TScout = record
		Patrouille : TPat;
		RefPos : Str4;
		Totem : Str30;
		Nom : Str30;
		DateIn, DateNais : TDate;
		end;
Procedure storeMembre(var ScoutIn:Tscout);
	begin
	with ScoutIn do begin
	readln ('Nom', Nom);
	readln ('Totem', Totem);
		end;
	with scoutIn, dateIn do
		begin
		readln ('Jour de la date d''Entrée', Jour);
		readln ('Moi de la date d''Entrée', Mois);
		readln ('Année de date d''Entrée', Anne);
		end;
	with scoutIn,dateNais do
		begin
		readln ('Jour de la date de Naissance', Jour);
		readln ('Moi de la date de Naissance', Mois);
		readln ('Année de date de Naissance', Anne);
		end;
	readln ('Position dans la Patrouille', scoutIn.RefPos);
	with scoutIn,Patrouille do 
		begin
		readln ('Nom de la Patrouille', Nom);
		readln ('Animal Totem de la Patrouille', Animal);
		readln ('Nom de la Troupe', Troupe);
		end;
	end;
Procedure affichMembre(var scoutIn:Tscout);
	begin
	writeln ('Nom', scoutIn.Nom);
	writeln ('Totem', scoutIn.Totem);
	with scoutIn, dateIn do
		begin
		writeln ('Jour de la date d''Entrée', Jour);
		writeln ('Moi de la date d''Entrée', Mois);
		writeln ('Année de date d''Entrée', Anne);
		end;
	with scoutIn,dateNais do
		begin
		writeln ('Jour de la date de Naissance', Jour);
		writeln ('Moi de la date de Naissance', Mois);
		writeln ('Année de date de Naissance', Anne);
		end;
	writeln ('Position dans la Patrouille', scoutIn.RefPos);
	with scoutIn,Patrouille do 
		begin
		writeln ('Nom de la Patrouille', Nom);
		writeln ('Animal Totem de la Patrouille', Animal);
		writeln ('Nom de la Troupe', Troupe);
		end;
	end;
var membre : Tscout;
begin
writeln ('Début de l''enregistrement du membre');
writeln ('');
writeln ('');
storeMembre (membre);
writeln ('Début de l''affichage du membre');
writeln ('');
writeln ('');
affichMembre (membre);
writeln ('Fin de Program d''enregistrement du membre');
writeln ('');
writeln ('Christia SONDI, ProgressCoding')
end.

Ci-dessous le message d'erreur :

Target OS: Linux for x86-64
Compiling storeMember.pp
storeMember.pp(28,15) Error: Variable identifier expected
storeMember.pp(29,17) Error: Variable identifier expected
storeMember.pp(33,39) Error: Variable identifier expected
storeMember.pp(34,38) Error: Variable identifier expected
storeMember.pp(35,38) Error: Variable identifier expected
storeMember.pp(39,41) Error: Variable identifier expected
storeMember.pp(40,40) Error: Variable identifier expected
storeMember.pp(41,40) Error: Variable identifier expected
storeMember.pp(43,39) Error: Variable identifier expected
storeMember.pp(46,33) Error: Variable identifier expected
storeMember.pp(47,42) Error: Variable identifier expected
storeMember.pp(48,29) Error: Variable identifier expected
storeMember.pp(89) Fatal: There were 12 errors compiling module, stopping
Fatal: Compilation aborted
Error: /usr/bin/ppcx64 returned an error exitcode (normal if you did not specify a source file to be compiled)

Quelqu'un peut-il m'aider s'il vous plait? Merci d'avance.

**Modulpro** · 08/06/2011, 16h04

Bonjour,

Dans le cas d'une lecture de valeur sur la console, la procédure Readln ne prend qu'un seul paramètre : la variable dans laquelle sera écrite la valeur, qui doit être de type string ou integer.

Ainsi l'appel de readln entraine un retour à la ligne et un curseur clignotant qui invite l'utilisateur à entrer la valeur. Pour informer celui-ci du type de valeur qu'il doit entrer, il faut faire préceder le Readln d'un Writeln, qui permet d'écrire sur la console.

Ainsi, toutes les instructions de la forme

Code :

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

readln ('Jour de la date de Naissance', Jour);

doivent êtres remplacées par

Code :

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

1
2
Writeln('Jour de la date de Naissance :');
Readln(Jour);

Le compilateur attend en effet le nom d'une variable en paramètre de readln, d'où les multiples "Variable identifier expected"

De plus, il faudrait gérer le cas où l'utilisateur entre une chaîne de caractère alors qu'un entier est attendu, ce qui provoque actuellement un arrêt du programme.