Les conversions entre les entiers et les réels

Ce programme présente les différentes possibilités de conversions entre scalaires, objets et issus de collections.

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

Mode compilé

Commande de compilation


upscmp Source=conversion.upl

Commande d'exécution


conversion

Mode interprété


upssng Source=conversion.upl

Fichier source


Source Composant "Exemple d'emploi des conversions entre entiers et reels" Version 4.0.0;



Type TT Defaut

/************/

   E : Entier;

   ENul : Nul Ou Entier;

   R : Reel;

   RNul : Nul Ou Reel;
   Constructeur();

Fin Type



Variable

/******/

   E : Entier;

   ENul : Nul Ou Entier;

   R : Reel;

   RNul : Nul Ou Reel;

   TENul : Tableau[2] De Nul Ou Entier;

   TRNul : Tableau[2] De Nul Ou Reel;

   T : TT;



Principal

/*******/

Debut

E=1;

ENul=E;

Ecran.Ecrire("E="+Caractere(E));

Ecran.Ecrire("ENul="+Caractere(ENul));

ENul=2;

E=ENul;

Ecran.Ecrire("E="+Caractere(E));

Ecran.Ecrire("ENul="+Caractere(ENul));



R=3.0;

RNul=R;

Ecran.Ecrire("R="+Caractere(R));

Ecran.Ecrire("RNul="+Caractere(RNul));

RNul=4.0;

R=RNul;

Ecran.Ecrire("R="+Caractere(R));

Ecran.Ecrire("RNul="+Caractere(RNul));



E=5;

ENul=6;

R=E;

RNul=ENul;

Ecran.Ecrire("R="+Caractere(R));

Ecran.Ecrire("RNul="+Caractere(RNul));

R=ENul;

RNul=E;

Ecran.Ecrire("R="+Caractere(R));

Ecran.Ecrire("RNul="+Caractere(RNul));



R=7.0;

RNul=8.0;

E=Entier(R);

ENul=Entier(RNul);

Ecran.Ecrire("E="+Caractere(E));

Ecran.Ecrire("ENul="+Caractere(ENul));

E=Entier(RNul);

ENul=Entier(R);

Ecran.Ecrire("E="+Caractere(E));

Ecran.Ecrire("ENul="+Caractere(ENul));

Ecran.Ecrire("\n");



E=1;

TENul[0]=E;

Ecran.Ecrire("E="+Caractere(E));

Ecran.Ecrire("TENul[0]="+Caractere(TENul[0]));

TENul[0]=2;

E=TENul[0];

Ecran.Ecrire("E="+Caractere(E));

Ecran.Ecrire("TENul[0]="+Caractere(TENul[0]));



R=3.0;

TRNul[0]=R;

Ecran.Ecrire("R="+Caractere(R));

Ecran.Ecrire("TRNul[0]="+Caractere(TRNul[0]));

TRNul[0]=4.0;

R=TRNul[0];

Ecran.Ecrire("R="+Caractere(R));

Ecran.Ecrire("TRNul[0]="+Caractere(TRNul[0]));



E=5;

TENul[0]=6;

R=E;

TRNul[0]=TENul[0];

Ecran.Ecrire("R="+Caractere(R));

Ecran.Ecrire("TRNul[0]="+Caractere(TRNul[0]));

R=TENul[0];

TRNul[0]=E;

Ecran.Ecrire("R="+Caractere(R));

Ecran.Ecrire("TRNul[0]="+Caractere(TRNul[0]));



R=7.0;

TRNul[0]=8.0;

E=Entier(R);

TENul[0]=Entier(TRNul[0]);

Ecran.Ecrire("E="+Caractere(E));

Ecran.Ecrire("TENul[0]="+Caractere(TENul[0]));

E=Entier(TRNul[0]);

TENul[0]=Entier(R);

Ecran.Ecrire("E="+Caractere(E));

Ecran.Ecrire("TENul[0]="+Caractere(ENul));

Ecran.Ecrire("\n");



T.E=1;

T.ENul=T.E;

Ecran.Ecrire("T.E="+Caractere(T.E));

Ecran.Ecrire("T.ENul="+Caractere(T.ENul));

T.ENul=2;

T.E=T.ENul;

Ecran.Ecrire("T.E="+Caractere(T.E));

Ecran.Ecrire("T.ENul="+Caractere(T.ENul));



T.R=3.0;

T.RNul=T.R;

Ecran.Ecrire("T.R="+Caractere(T.R));

Ecran.Ecrire("T.RNul="+Caractere(T.RNul));

T.RNul=4.0;

T.R=T.RNul;

Ecran.Ecrire("T.R="+Caractere(T.R));

Ecran.Ecrire("T.RNul="+Caractere(T.RNul));



T.E=5;

T.ENul=6;

T.R=T.E;

T.RNul=T.ENul;

Ecran.Ecrire("T.R="+Caractere(T.R));

Ecran.Ecrire("T.RNul="+Caractere(T.RNul));

T.R=T.ENul;

T.RNul=T.E;

Ecran.Ecrire("T.R="+Caractere(T.R));

Ecran.Ecrire("T.RNul="+Caractere(T.RNul));



T.R=7.0;

T.RNul=8.0;

T.E=Entier(T.R);

T.ENul=Entier(T.RNul);

Ecran.Ecrire("T.E="+Caractere(T.E));

Ecran.Ecrire("T.ENul="+Caractere(T.ENul));

T.E=Entier(T.RNul);

T.ENul=Entier(T.R);

Ecran.Ecrire("T.E="+Caractere(T.E));

Ecran.Ecrire("T.ENul="+Caractere(T.ENul));

Fin Principal

Résultat de l'exécution

E=1 ENul=1 E=2 ENul=2 R=3,0000 RNul=3,0000 R=4,0000 RNul=4,0000 R=5,0000 RNul=6,0000 R=6,0000 RNul=5,0000 E=7 ENul=8 E=8 ENul=7 E=1 TENul[0]=1 E=2 TENul[0]=2 R=3,0000 TRNul[0]=3,0000 R=4,0000 TRNul[0]=4,0000 R=5,0000 TRNul[0]=6,0000 R=6,0000 TRNul[0]=5,0000 E=7 TENul[0]=8 E=8 TENul[0]=7 T.E=1 T.ENul=1 T.E=2 T.ENul=2 T.R=3,0000 T.RNul=3,0000 T.R=4,0000 T.RNul=4,0000 T.R=5,0000 T.RNul=6,0000 T.R=6,0000 T.RNul=5,0000 T.E=7 T.ENul=8 T.E=8 T.ENul=7