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. |
