Les opérateurs de groupe

Ce programme présente l'usage des opérateurs de groupe.

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

Mode compilé

Commande de compilation


upscmp Source=groupe.upl

Commande d'exécution


groupe

Mode interprété


upssng Source=groupe.upl

Fichier source


Source Composant "Exemple d'emploi d'operateurs de groupe" Version 4.0.0;



Enumere

/*****/

   Couleur Dans (Bleu, Blanc, Rouge);



Principal

/*******/

Variable

/******/

   A : Entier;

   B : Caractere;

   C : Couleur;

   D : Reel;



Debut

A=Max(1, 2, 3);

Ecran.Ecrire("A=Max(1, 2, 3)");

Ecran.Ecrire(A);

A=Min(1, 2, 3);

Ecran.Ecrire("A=Min(1, 2, 3)");

Ecran.Ecrire(A);

B=Max("coucou", "guten tag", "hello");

Ecran.Ecrire("B=Max(coucou, guten tag, hello)");

Ecran.Ecrire(B);

B=Min("coucou","guten tag", "hello");

Ecran.Ecrire("B=Min(coucou, guten tag, hello)");

Ecran.Ecrire(B);

C=Max(Bleu, Blanc, Rouge);

Ecran.Ecrire("C=Max(Bleu, Blanc, Rouge)");

Selon C Faire

   Cas Pour Bleu Faire
   
      Ecran.Ecrire("Bleu");
   
   Fin Cas

   Cas Pour Blanc Faire
   
      Ecran.Ecrire("Blanc");
   
   Fin Cas

   Cas Pour Rouge Faire
   
      Ecran.Ecrire("Rouge");
   
   Fin Cas


Fin Selon

C=Min(Bleu, Blanc, Rouge);

Ecran.Ecrire("C=Min(Bleu, Blanc, Rouge)");

Selon C Faire

   Cas Pour Bleu Faire
   
      Ecran.Ecrire("Bleu");
   
   Fin Cas

   Cas Pour Blanc Faire
   
      Ecran.Ecrire("Blanc");
   
   Fin Cas

   Cas Pour Rouge Faire
   
      Ecran.Ecrire("Rouge");
   
   Fin Cas

Fin Selon

A=Somme(1, 2, 3);

Ecran.Ecrire("Somme(1, 2, 3)");

Ecran.Ecrire(A);

D=Somme(1.0, 2.0, 3.0);

Ecran.Ecrire("Somme(1.0, 2.0, 3.0)");

Ecran.Ecrire(D);



D=Moyenne(1, 2, 3);

Ecran.Ecrire("Moyenne(1, 2, 3)");

Ecran.Ecrire(D);

D=Moyenne(1.0, 2.0, 3.0);

Ecran.Ecrire("Moyenne(1.0, 2.0, 3.0)");

Ecran.Ecrire(D);



D=EcartType(1, 2, 3);

Ecran.Ecrire("EcartType(1, 2, 3)");

Ecran.Ecrire(D);

D=EcartType(1.0, 2.0, 3.0);

Ecran.Ecrire("EcartType(1.0, 2.0, 3.0)");

Ecran.Ecrire(D);



D=Variance(1, 2, 3);

Ecran.Ecrire("Variance(1, 2, 3)");

Ecran.Ecrire(D);

D=Variance(1.0, 2.0, 3.0);

Ecran.Ecrire("Variance(1.0, 2.0, 3.0)");

Ecran.Ecrire(D);

Fin Principal

Résultat de l'exécution

A=Max(1,2,3) 3 A=Min(1,2,3) 1 B=Max(coucou,guten tag,hello) hello B=Min(coucou,guten tag,hello) coucou C=Max(Bleu,Blanc,Rouge) Rouge C=Min(Bleu,Blanc,Rouge) Bleu Somme(1,2,3) 6 Somme(1.0,2.0,3.0) 6.0 Moyenne(1,2,3) 2.0 Moyenne(1.0,2.0,3.0) 2.0 EcartType(1,2,3) 0.816496580927726 EcartType(1.0,2.0,3.0) 0.816496580927726 Variance(1,2,3) 0.666666666666667 Variance(1.0,2.0,3.0) 0.666666666666667