Cas Kes

1)
Client UnClient prend la valeur nouveau Client(12, "Le Client & Cie", "1024 rue du JAVA", "02048", "Une certaine ville", 42)
Contrat UnContrat prend la valeur nouveau Contrat(1, "01/03/2012", UnClient, 9876)
UnContrat.ajoutintervention(1,"20/04/2012", 72, 0.5, UnEmployé)

2)
Procédure Client(numéroEntrer : entier, nomEntrer : chaîne, adresseEntrer : chaîne, codeposEntrer : chaîne, villeEntrer : chaîne, nbkmEntrer : entier)
Début
| numéro prend la valeur numéroEntrer | nom prend la valeur nomEntrer | adresse prend la valeur adresseEntrer | codepos prend la valeur codeposEntrer | ville prend la valeur villeEntrer | nbkm prend la valeur nbkmEntrer
Fin

procédure Contrat(numéroEntrer : entier, dateEntrer : chaîne, cliEntrer : client, montantcontratEntrer : réel)
Début
| numéro prend la valeur numéroEntrer | date prend la valeur dateEntrer | cli prend la valeur cliEntrer | montantcontrat prend la valeur montantcontratEntrer | lesinterventions prend la valeur nouveau collection de intervention
Fin

public procédure ajoutintervention(numéroEntrer :entier, dateEntrer : date, duréeEntrer : entier, tarifkmEntrer : reel, technicienEntrer : employe)
Début
| Intervention inter prend la valeur nouveau Intervention(numéroEntrer, dateEntrer, duréeEntrer, tarifkmEntrer, technicienEntrer) | lesinterventions.ajouter(inter)
Fin

Fonction CoûtHoraire() : réel
Début
| Réel majo prend la valeur1 | Si(NbreAnnées( dateembauche) >prend la valeur 15) alors | | majo prend la valeur 1.12 | Sinon Si(NbreAnnées( dateembauche) >prend la valeur 11) alors | | majo prend la valeur 1.08 | Sinon Si(NbreAnnées( dateembauche) >prend la valeur 5) alors | | majo prend la valeur 1.05 | Fin Si | Retourne Qualification.TauxHoraire( )* majo
Fin

Fonction FraisKm(distEntrer : réel) : réel
Début
| Retourne