Reel

Ce programme présente l'usage des nombres réels scalaires ou objets.

Le fichier source est ${UPS_HOME}/upsvtm/demo/${UPS_LANGUAGE}/reel.upl.

Mode compilé

Commande de compilation


upscmp Source=reel.upl

Commande d'exécution


reel

Mode interprété


upssng Source=reel.upl

Fichier source


Source Composant "Exemple d'emploi du type Reel" Version 4.0.0;



Principal

/******/

Variable

/******/

   A : Nul Ou Reel;

   B : Reel;



Debut

A=1.0;

Ecran.Ecrire(A);

B=1.0;

Ecran.Ecrire(B);



A=A+1.0;

Ecran.Ecrire(A);

B=B+1.0;

Ecran.Ecrire(B);



A=A-10.0;

Ecran.Ecrire(A);

B=B-10.0;

Ecran.Ecrire(B);



A=A*10.0;

Ecran.Ecrire(A);

B=B*10.0;

Ecran.Ecrire(B);



A=A/5.0;

Ecran.Ecrire(A);

B=B/5.0;

Ecran.Ecrire(B);



A=A^3.0;

Ecran.Ecrire(A);

B=B^3.0;

Ecran.Ecrire(B);



A=1.0;

Ecran.Ecrire(A);

B=1.0;

Ecran.Ecrire(B);



A=1.0+A;

Ecran.Ecrire(A);

B=1.0+B;

Ecran.Ecrire(B);



A=10.0-A;

Ecran.Ecrire(A);

B=10.0-B;

Ecran.Ecrire(B);



A=10.0*A;

Ecran.Ecrire(A);

B=10.0*B;

Ecran.Ecrire(B);



A=5.0/A;

Ecran.Ecrire(A);

B=5.0/B;

Ecran.Ecrire(B);



A=3.0^A;

Ecran.Ecrire(A);

B=3.0^B;

Ecran.Ecrire(B);



A=1.0;

Ecran.Ecrire(A);

B=1.0;

Ecran.Ecrire(B);



A+=1.0;

Ecran.Ecrire(A);

B+=1.0;

Ecran.Ecrire(B);



A-=10.0;

Ecran.Ecrire(A);

B-=10.0;

Ecran.Ecrire(B);



A*=10.0;

Ecran.Ecrire(A);

B*=10.0;

Ecran.Ecrire(B);



A^=3.0;

Ecran.Ecrire(A);

B^=3.0;

Ecran.Ecrire(B);



A=1;

Ecran.Ecrire(A);

B=1;

Ecran.Ecrire(B);



A=A+1;

Ecran.Ecrire(A);

B=B+1;

Ecran.Ecrire(B);



A=A-10;

Ecran.Ecrire(A);

B=B-10;

Ecran.Ecrire(B);



A=A*10;

Ecran.Ecrire(A);

B=B*10;

Ecran.Ecrire(B);



A=A/5;

Ecran.Ecrire(A);

B=B/5;

Ecran.Ecrire(B);



A=A^3;

Ecran.Ecrire(A);

B=B^3;

Ecran.Ecrire(B);



A=1;

Ecran.Ecrire(A);

B=1;

Ecran.Ecrire(B);



A=1+A;

Ecran.Ecrire(A);

B=1+B;

Ecran.Ecrire(B);



A=1-A;

Ecran.Ecrire(A);

B=1-B;

Ecran.Ecrire(B);



A=1*A;

Ecran.Ecrire(A);

B=1*B;

Ecran.Ecrire(B);



A=5/A;

Ecran.Ecrire(A);

B=5/B;

Ecran.Ecrire(B);



A=3^A;

Ecran.Ecrire(A);

B=3^B;

Ecran.Ecrire(B);



A=1;

Ecran.Ecrire(A);

B=1;

Ecran.Ecrire(B);



A+=1;

Ecran.Ecrire(A);

B+=1;

Ecran.Ecrire(B);



A-=10;

Ecran.Ecrire(A);

B-=10;

Ecran.Ecrire(B);



A*=10;

Ecran.Ecrire(A);

B*=10;

Ecran.Ecrire(B);



A^=3;

Ecran.Ecrire(A);

B^=3;

Ecran.Ecrire(B);



A++;

Ecran.Ecrire(A);

B++;

Ecran.Ecrire(B);



A--;

Ecran.Ecrire(A);

B--;

Ecran.Ecrire(B);



++A;

Ecran.Ecrire(A);

++B;

Ecran.Ecrire(B);



--A;

Ecran.Ecrire(A);

--B;

Ecran.Ecrire(B);



Si A==1.0 Alors

   Ecran.Ecrire("A==1.0");

Fin Si

Si A!=1.0 Alors

   Ecran.Ecrire("A!=1.0");

Fin Si

Si A<=1.0 Alors

   Ecran.Ecrire("A<=1.0");

Fin Si

Si A>=1.0 Alors

   Ecran.Ecrire("A>=1.0");

Fin Si

Si A<1.0 Alors

   Ecran.Ecrire("A<1.0");

Fin Si

Si A>1.0 Alors

   Ecran.Ecrire("A>1.0"<);

Fin Si



Si B==1.0 Alors

   Ecran.Ecrire("B==1.0");

Fin Si

Si B!=1.0 Alors

   Ecran.Ecrire("B!=1.0");

Fin Si

Si B<=1.0 Alors

   Ecran.Ecrire("B<=1.0");

Fin Si

Si B>=1.0 Alors

   Ecran.Ecrire("B>=1.0");

Fin Si

Si B<1.0 Alors

   Ecran.Ecrire("B<1.0");

Fin Si

Si B>1.0 Alors

   Ecran.Ecrire("B>1.0");

Fin Si



Si A==1 Alors

   Ecran.Ecrire("A==1");

Fin Si

Si A!=1 Alors

   Ecran.Ecrire("A!=1");

Fin Si

Si A<=1 Alors

   Ecran.Ecrire("A<=1");

Fin Si

Si A>=1 Alors

   Ecran.Ecrire("A>=1");

Fin Si

Si A<1 Alors

   Ecran.Ecrire("A<1");

Fin Si

Si A>1 Alors

   Ecran.Ecrire("A>1");

Fin Si



Si B==1 Alors

   Ecran.Ecrire("B==1");

Fin Si

Si B!=1 Alors

   Ecran.Ecrire("B!=1");

Fin Si

Si B<=1 Alors

   Ecran.Ecrire("B<=1");

Fin Si

Si B>=1 Alors

   Ecran.Ecrire("B>=1");

Fin Si

Si B<1 Alors

   Ecran.Ecrire("B<1");

Fin Si

Si B>1 Alors

   Ecran.Ecrire("B>1");

Fin Si



Si 1.0==A Alors

   Ecran.Ecrire("1.0==A");

Fin Si

Si 1.0!=A Alors

   Ecran.Ecrire("1.0!=A");

Fin Si

Si 1.0<=A Alors

   Ecran.Ecrire("1.0<=A");

Fin Si

Si 1.0>=A Alors

   Ecran.Ecrire("1.0>=A");

Fin Si

Si 1.0<A Alors

   Ecran.Ecrire("1.0<A");

Fin Si

Si 1.0>A Alors

   Ecran.Ecrire("1.0>A");

Fin Si



Si 1.0==B Alors

   Ecran.Ecrire("1.0==B");

Fin Si

Si 1.0!=B Alors

   Ecran.Ecrire("1.0!=B");

Fin Si

Si 1.0<=B Alors

   Ecran.Ecrire("1.0<=B");

Fin Si

Si 1.0>=B Alors

   Ecran.Ecrire("1.0>=B");

Fin Si

Si 1.0<B Alors

   Ecran.Ecrire("1.0<B");

Fin Si

Si 1.0>B Alors

   Ecran.Ecrire("1.0>B");

Fin Si



Si 1==A Alors

   Ecran.Ecrire("1==A");

Fin Si

Si 1!=A Alors

   Ecran.Ecrire("1!=A");

Fin Si

Si 1<=A Alors

   Ecran.Ecrire("1<=A");

Fin Si

Si 1>=A Alors

   Ecran.Ecrire("1>=A");

Fin Si

Si 1<A Alors

   Ecran.Ecrire("1<A");

Fin Si

Si 1>A Alors

   Ecran.Ecrire("1>A");

Fin Si



Si 1==B Alors

   Ecran.Ecrire("1==B");

Fin Si

Si 1!=B Alors

   Ecran.Ecrire("1!=B");

Fin Si

Si 1<=B Alors

   Ecran.Ecrire("1<=B");

Fin Si

Si 1>=B Alors

   Ecran.Ecrire("1>=B");

Fin Si

Si 1<B Alors

   Ecran.Ecrire("1<B");

Fin Si

Si 1>B Alors

   Ecran.Ecrire("1>B");

Fin Si

Fin Principal

Résultat de l'exécution

1.0 1.0 2.0 2.0 -8.0 -8.0 -80.0 -80.0 -16.0 -16.0 -4096.0 -4096.0 1.0 1.0 2.0 2.0 8.0 8.0 80.0 80.0 6.25E-2 6.25E-2 1.07107548307292 1.07107548307292 1.0 1.0 2.0 2.0 -8.0 -8.0 -80.0 -80.0 -512000.0 -512000.0 1.0 1.0 2.0 2.0 -8.0 -8.0 -80.0 -80.0 -16.0 -16.0 -4096.0 -4096.0 1.0 1.0 2.0 2.0 -1.0 -1.0 -1.0 -1.0 -5.0 -5.0 4.115226337449E-3 4.115226337449E-3 1.0 1.0 2.0 2.0 -8.0 -8.0 -80.0 -80.0 -512000.0 -512000.0 -511999.0 -511999.0 -512000.0 -512000.0 -511999.0 -511999.0 -512000.0 -512000.0 A!=1.0 A<=1.0 A<1.0 B!=1.0 B<=1.0 B<1.0 A!=1 A<=1 A<1 B!=1 B<=1 B<1 1.0!=A 1.0>=A 1.0>A 1.0!=B 1.0>=B 1.0>B 1!=A 1>=A 1>A 1!=B 1>=B 1>B