Définition...
Opérateurs...
Exemple...
Voir aussi...
Traduction...
/***************************************************************/
Type Enumere Implemente Public : IEspaceMetre Defaut Final
/* Objet : Encapsulation des enumeres. */
/***************************************************************/
Public :
/*-------------------------------------------------------------*/
/* Heritage des methodes d'IEspaceMetre. */
/*-------------------------------------------------------------*/
Operateur Optimiser(Invariant, NulAbsorbant) <=(E : Nul Ou Enumere) Retourner Nul Ou Booleen;
Operateur Optimiser(Invariant, NulAbsorbant) >=(E : Nul Ou Enumere) Retourner Nul Ou Booleen;
Operateur Optimiser(Invariant, NulAbsorbant) <(E : Nul Ou Enumere) Retourner Nul Ou Booleen;
Operateur Optimiser(Invariant, NulAbsorbant) >(E : Nul Ou Enumere) Retourner Nul Ou Booleen;
/*-------------------------------------------------------------*/
/* Methodes propres. */
/*-------------------------------------------------------------*/
Constructeur();
Fin Type
Le type Enumere possède un constructeur implicite qui l'initialise à la première valeur de l'ensemble des ses valeurs possibles.
Enumere
Couleurs (Bleu, Blanc, Rouge);
/* Définition des couleurs. Il n'y a pas de valeur d'associée aux couleurs. */
Variable
C : Couleurs;
T : Tableau[Couleurs] De Entier;
/* C est une couleur. T est un tableau d'entiers indexes sur les couleurs. */
Principal
Debut
C=Bleu;
T[C]=10;
T[Rouge]=20;
T[Blanc]=30;
Si C==Bleu Alors
/* Egalité entre deux valeurs d'un même énuméré. */
...
Fin Si
Si C!=Bleu Alors
/* Inégalité entre deux valeurs d'un même énuméré. */
...
Fin Si
Si C<=Bleu Alors
/* Infériorité large entre deux valeurs d'un même énuméré. */
...
Fin Si
Si C<Bleu Alors
/* Infériorité stricte entre deux valeurs d'un même énuméré. */
...
Fin Si
Fin Principal
AufgezahlteWert | SetOfEnumeratedValues | 列举 | Enumerado | - | - | - | - |