Duree : Entier Lecture Public;
FileDAttente
/**********/
MaFile(1);
/****************************************************************/
Procedure P(A : Entier Entree Sortie)
/* Objet : Procedure quelconque. */
/****************************************************************/
Debut
Ecran.Ecrire("P="+Caractere(A));
Fin Procedure
Principal
/*******/
Variable
/******/
E : Entier;
MonTravail : Nul Ou Travail;
Debut
...
MonTravail=P(E)||MaFile;
...
Ecran.Ecrire(MonTravail.Duree);
/* Ecrit la durée du travail. */
...
Fin Principal
- | - | - | - | - | - | - | - | - |