Les énumérés

Ce programme présente l'usage des énumérés scalaires ou objets.

Le fichier source est ${UPS_HOME}/upsvtm/demo/${UPS_LANGUAGE}/enumere.upl.

Mode compilé

Commande de compilation


upscmp Source=enumere.upl

Commande d'exécution


enumere

Mode interprété


upssng Source=enumere.upl

Fichier source


Source Composant "Exemple d'emploi des énumérés" Version 4.0.0;



Enumere

/******/

   Couleur Dans (Bleu, Blanc, Rouge);



Principal

/*******/

Variable

/******/

   A : Nul Ou Couleur;

   B : Couleur;

   C : Entier;



Debut

A=Blanc;

B=Blanc;

C++;

Si C==10 Alors

   A=Rouge;

   B=Bleu;


Fin Si



Si A==Blanc Alors

   Ecran.Ecrire("A==Blanc");

Fin Si

Si B==Blanc Alors

   Ecran.Ecrire("B==Blanc");

Fin Si

Si A!=Blanc Alors

   Ecran.Ecrire("A!=Blanc");

Fin Si

Si B!=Blanc Alors


   Ecran.Ecrire("B!=Blanc");

Fin Si

Si A<=Blanc Alors

   Ecran.Ecrire("A<=Blanc");

Fin Si

Si B<=Blanc Alors

   Ecran.Ecrire("B<=Blanc");

Fin Si

Si A>=Blanc Alors

   Ecran.Ecrire("A>=Blanc");

Fin Si

Si B>=Blanc Alors

   Ecran.Ecrire("B>=Blanc");

Fin Si

Si A<Blanc Alors

   Ecran.Ecrire("A<Blanc");

Fin Si

Si B<Blanc Alors

   Ecran.Ecrire("B<Blanc");

Fin Si

Si A>Blanc Alors

   Ecran.Ecrire("A>Blanc");

Fin Si

Si B>Blanc Alors

   Ecran.Ecrire("B>Blanc");

Fin Si

Fin Principal

Résultat de l'exécution

A==Blanc B==Blanc A<=Blanc B<=Blanc A>=Blanc B>=Blanc