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