Les énumérés valués

Ce programme présente l'usage de la valorisation des énumérés.

Le fichier source est ${UPS_HOME}/upssdk/demo/${UPS_LANGUAGE}/enumere2.upl.

Mode compilé

Commande de compilation


upscmp Source=enumere2.upl

Commande d'exécution


enumere2

Mode interprété


upssng Source=enumere2.upl

Fichier source


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



Enumere

/*****/

   Couleur Dans (Bleu, Blanc, Rouge);

   EnuA Dans (EnuA1=Bleu, EnuA2=Blanc, EnuA3=Rouge);

   EnuB Dans (EnuB1=10, EnuB2=20, EnuB3=30);

   EnuC Dans (EnuC1=2.71, EnuC2=3.1416, EnuC3=1.414);

   EnuD Dans (EnuD1="bonjour", EnuD2="hello", EnuD3="guten tag");



Principal

/*******/

Variable 

/******/

   VA : EnuA;

   VB : EnuB;

   VC : EnuC;

   VD : EnuD;



Debut

Si EnuA(VA)==Bleu Alors

   Ecran.Ecrire("Bleu");

Sinon

   Ecran.Ecrire("Non Bleu");

Fin Si

Ecran.Ecrire(EnuB(VB));

Ecran.Ecrire(EnuC(VC));

Ecran.Ecrire(EnuD(VD));

Ecran.Ecrire("\n");



VA=EnuA2;

VB=EnuB2;

VC=EnuC2;

VD=EnuD2;

Si EnuA(VA)==Blanc Alors

   Ecran.Ecrire("Blanc");

Sinon

   Ecran.Ecrire("Non Blanc");

Fin Si

Ecran.Ecrire(EnuB(VB));

Ecran.Ecrire(EnuC(VC));

Ecran.Ecrire(EnuD(VD));

Fin Principal

Résultat de l'exécution

Bleu 10 2.71 bonjour Blanc 20 3.1416 hello