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
| (* L'objectif du programme est :
- L'opérateur saisi et introduit le matricule de l'omployé.
- Le programme affiche les civilité, nom et prénom de l'employé.
*)
(* Entête *)
PROGRAM coordonnees_emploiye (input, output);
{$mode objfpc}{$H+}
uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads,
{$ENDIF}{$ENDIF}
Classes
{ you can add units after this };
(* Dclarations *)
TYPE
Matricules = (M2532, M2565, M3265, M5421, M5544, M5645, M5700, M5702, M5709, M5812) ;
Civilites = (Mr, Mlle, Mme);
Noms = (Daniel, Philipe, Yosra, Ched, Melanie, Sarra, Lina, Kinza, Fizou, Julie) ;
Prenoms = (Leblanc, Dechamps, Farhani, Prevosto, Trabelsi, Legrand, Holland, Obama) ;
CONST
Civilite : array[0..9] of Civilites = (Mr, Mr, Mlle, Mr, Mme, Mlle, Mme, Mlle, Mr, Mme);
Nom : array[0..9] of Noms = (Daniel, Philipe, Yosra, Ched, Melanie, Sarra, Lina, Kinza, Fizou, Julie) ;
Prenom : array[0..9] of Prenoms = (Leblanc, Dechamps, Farhani, Farhani, Prevosto, Trabelsi, Legrand, Holland, Farhani, Obama) ;
VAR
MatriculeE : Matricules;
CivilteE : Civilites;
NomE : Noms;
PrenomE : Prenoms;
NrOrdE : integer ;
BEGIN
Writeln('Saisi Matricule Employé : ');
Readln(MatriculeE) ;
NrOrdE := ORD(MatriculeE);
CiviliteE := Civilite[NrOrdE];
NomE := Nom[NrOrdE];
PrenomE := Prenom[NrOrdE];
Writeln('Affichage des coordonnées de l''employé');
Writeln();
Writeln();
Writeln('Il sagit de : ', CiviliteE, NomE, PrenomE );
writeln('Press [Enter] To Quit');
readln();
end. |
Partager