Les conversions entre les entiers et les réels

Commande de compilation...
Commande d'exécution...
Fichier source...

upscmp Source=conversion.upl

Revenir en haut de la page...

conversion

Revenir en haut de la page...

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

Type TT Defaut
/************/ Fin Type

Variable
/******/ 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

Revenir en haut de la page...