Procedure Habilitation AjouterAbonne(AdresseAbonne : Caractere);
Procedure Habilitation AjouterAbonne(UtilisateurAbonne : Nul Ou Utilisateur);
Si l'utilisateur est déjà abonné alors l'exception EstDejaAbonne est envoyée.
Principal
/*******/
Variable
/******/
A : Nul Ou AbonnementElectronique;
Debut
...
A.AjouterAbonne("mon-utilisateur@mon-domaine");
/* Ajout de l'abonne. */
...
A.SupprimerAbonne("mon-utilisateur@mon-domaine");
/* Suppression de l'abonne. */
...
Fin Principal
- | - | - | - | - | - | - | - | - |