TP n°08 : Les enregistrements
Exercice
1) Crée un nouveau type d'enregistrement Emp_T qui comporte pour chaque employé d'une entreprise les informations suivantes :
• Matricule : entier
• Nom: chaîne de 30 caractères maximum
• Date_recrutement : (Jour, Mois, An)
• Adresse : (N° Route, Nom_Route, Ville, Code_posstale)
• Etat_civil : caractère
• Salaire : réel
2) Ecrire une procédure qui permet de stocker les informations de 10 employés dans un tableau Tab_Emp
3) Ecrire une procédure qui à partir d'un numéro d'immatriculation affiche les informations de l'employé correspondant.
4) Ecrire une procédure qui à partir du tableau Tab_Emp affiche les employés dont le salaire est compris entre deux valeurs données, et qui appelle la procédure précédente.
5) Ecrire une procédure qui à partir du tableau Tab_Emp affiche les employés dont le salaire est inférieur à une valeur donnée, en utilisant la procédure précédente.
6) Ecrire une fonction qui à partir du tableau Tab_Emp renvoie le nombre des employés recrutés avant une année donnée.
7) Ecrire une procédure qui à partir du tableau Tab_Emp affiche les employés qui habitent dans une ville donnée.
Travail de maison: compléter le programme suivant :
(* Programme principale*)
Begin
Repeat
clrScr;
writeln('*********** Menu **********');
writeln('1) Remplir le tableau : ');
writeln('2) Afficher les informations d''un employé : ');
writeln('3) Afficher les employés dont le salaire est compris entre : ');
writeln('4) Afficher les employés dont le salaire est inférieur ... : ');
writeln('5) Le nombre des employés recrutés avant le : ');
writeln('6) Les employés qui habitent dans : ');
writeln('7) Quitter : ');
writeln('');
write('Entrer un nombre Entre 1 et 7 : ');
Readln(rep);
case (rep) of
1: ................................................................................................
2: begin
write('Entrer un Matricule : ');
readln(mat);
..........................................................................................
readln
end;
3: begin
write('Entrer les deux valeurs : ');
....................................................................................
Writeln('Les employés ayant un salaire entre ',Min,' et ',Max,'
sont : ');
.......................................................................................
readln
end;
4: begin
.............................................................................................
.............................................................................................
.............................................................................................
.............................................................................................
readln
end;
5: begin
write('Entrer une année : ');
readln(ann);
writeln(..............................................................................................................................................................................
...................................................................................................................................................................................................... );
readln;
end;
6: begin
.............................................................................................
.............................................................................................
writeln('Les employés qui habitent dans : ',vl,' son : ');
.............................................................................................
readln
end
end;
Until (rep = 7)
End.