Reel

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

upscmp Source=reel.upl

Revenir en haut de la page...

reel

Revenir en haut de la page...

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

Principal
Variable 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 Fin Si
Si A!=1.0 Alors Fin Si
Si A<=1.0 Alors Fin Si
Si A>=1.0 Alors Fin Si
Si A<1.0 Alors Fin Si
Si A>1.0 Alors Fin Si

Si B==1.0 Alors Fin Si
Si B!=1.0 Alors Fin Si
Si B<=1.0 Alors Fin Si
Si B>=1.0 Alors Fin Si
Si B<1.0 Alors Fin Si
Si B>1.0 Alors Fin Si

Si A==1 Alors Fin Si
Si A!=1 Alors Fin Si
Si A<=1 Alors Fin Si
Si A>=1 Alors Fin Si
Si A<1 Alors Fin Si
Si A>1 Alors Fin Si

Si B==1 Alors Fin Si
Si B!=1 Alors Fin Si
Si B<=1 Alors Fin Si
Si B>=1 Alors Fin Si
Si B<1 Alors Fin Si
Si B>1 Alors Fin Si

Si 1.0==A Alors Fin Si
Si 1.0!=A Alors Fin Si
Si 1.0<=A Alors Fin Si
Si 1.0>=A Alors Fin Si
Si 1.0<A Alors Fin Si
Si 1.0>A Alors Fin Si

Si 1.0==B Alors Fin Si
Si 1.0!=B Alors Fin Si
Si 1.0<=B Alors Fin Si
Si 1.0>=B Alors Fin Si
Si 1.0<B Alors Fin Si
Si 1.0>B Alors Fin Si

Si 1==A Alors Fin Si
Si 1!=A Alors Fin Si
Si 1<=A Alors Fin Si
Si 1>=A Alors Fin Si
Si 1<A Alors Fin Si
Si 1>A Alors Fin Si

Si 1==B Alors Fin Si
Si 1!=B Alors Fin Si
Si 1<=B Alors Fin Si
Si 1>=B Alors Fin Si
Si 1<B Alors Fin Si
Si 1>B Alors Fin Si
Fin Principal

Revenir en haut de la page...