Discussion :

[reenuux]

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.