Procedure Envoyer(P1 : Nul Ou Caractere=Nul, P2 : Nul Ou Caractere=Nul, P3 : Nul Ou Caractere=Nul, P4 : Nul Ou Caractere=Nul, P5 : Nul Ou Caractere=Nul);
La méthode Envoyer réalise les actions suivantes :
Constante
/*******/
NbPatientsMax=100;
Variable
/******/
NbPatients : Entier;
Exception
/*******/
TropDePatients("TropDePatients", 100);
/* 'TropDePatients' est envoyée s'il y a trop de patients. */
/* Le message associe comporte un paramètre qui est le nombre maximal de patients autorises. */
Principal
/*******/
Debut
...
Si NbPatients>NbPatientsMax Alors
TropDePatients.Envoyer(Caractere(NbPatientsMax));
Fin Si
...
Fin Principal
- | - | - | - | - | - | - | - | - |