Commande de compilation...
Commande d'exécution...
Fichier source...
upscmp Source=enumere.upl
enumere
Source Composant "Exemple d'emploi des énumérés" Version 1.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