Entier

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

upscmp Source=entier.upl

Revenir en haut de la page...

entier

Revenir en haut de la page...

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

Principal
Variable Debut
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=A^3;
Ecran.Ecrire(A);
B=B^3;
Ecran.Ecrire(B);

A=A&255;
Ecran.Ecrire(A);
B=B&255;
Ecran.Ecrire(B);

A=A|256;
Ecran.Ecrire(A);
B=B|256;
Ecran.Ecrire(B);

A=A>>4;
Ecran.Ecrire(A);
B=B>>4;
Ecran.Ecrire(B);

A=A<<2;
Ecran.Ecrire(A);
B=B<<2;
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\=5;
Ecran.Ecrire(A);
B\=5;
Ecran.Ecrire(B);

A%=3;
Ecran.Ecrire(A);
B%=3;
Ecran.Ecrire(B);
A^=3;
Ecran.Ecrire(A);

B^=3;
Ecran.Ecrire(B);

A&=255;
Ecran.Ecrire(A);
B&=255;
Ecran.Ecrire(B);

A|=256;
Ecran.Ecrire(A);
B|=256;
Ecran.Ecrire(B);

A>>=4;
Ecran.Ecrire(A);
B>>=4;
Ecran.Ecrire(B);

A<<=2;
Ecran.Ecrire(A);
B<<=2;
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 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
Fin Principal

Revenir en haut de la page...