Procedure Habilitation Supprimer();
Le travail peut être supprimé tant qu'il n'est pas réalisé. Sinon, l'appel est sans effet.
Variable
/******/
MonTravail : Nul Ou Travail;
FileDAttente
/**********/
MaFile(1);
/****************************************************************/
Procedure P(A : Entier Entree Sortie)
/* Objet : Procedure quelconque. */
/****************************************************************/
Debut
Ecran.Ecrire("P="+Caractere(A));
Fin Procedure
Principal
/*******/
Debut
...
MonTravail=P()||MaFile;
...
MonTravail.Supprimer();
/* Le travail 'MonTravail' est supprimé de la file 'MaFile'. */
...
Fin Principal
- | - | - | - | - | - | - | - | - |