Définition...
Opérateurs...
Exemple...
Traduction...
/***************************************************************/
Type Entier Implemente Public : IAlgebreCommutative, IEspaceMetre Defaut Final
/* Objet : Encapsulation du type Entier. */
/***************************************************************/
Public :
/*-------------------------------------------------------------*/
/* Heritage des methodes de IAlgebreCommutative. */
/*-------------------------------------------------------------*/
Operateur Optimiser(Invariant, NulAbsorbant) +(E : Nul Ou Entier) Retourner Nul Ou Entier;
Operateur Optimiser(Invariant) -() Retourner Nul Ou Entier;
Operateur Optimiser(Invariant, NulAbsorbant) -(E : Nul Ou Entier) Retourner Nul Ou Entier;
Operateur Optimiser(Invariant, NulAbsorbant) *(E : Nul Ou Entier) Retourner Nul Ou Entier;
Operateur ++(P : Nul Ou Booleen) Retourner Nul Ou Entier;
Operateur --(P : Nul Ou Booleen) Retourner Nul Ou Entier;
/*-------------------------------------------------------------*/
/* Heritage des methodes d'IEspaceMetre. */
/*-------------------------------------------------------------*/
Operateur Optimiser(Invariant, NulAbsorbant) <=(E : Nul Ou Entier) Retourner Nul Ou Booleen;
Operateur Optimiser(Invariant, NulAbsorbant) >=(E : Nul Ou Entier) Retourner Nul Ou Booleen;
Operateur Optimiser(Invariant, NulAbsorbant) <(E : Nul Ou Entier) Retourner Nul Ou Booleen;
Operateur Optimiser(Invariant, NulAbsorbant) >(E : Nul Ou Entier) Retourner Nul Ou Booleen;
/*-------------------------------------------------------------*/
/* Methodes propres. */
/*-------------------------------------------------------------*/
Constructeur();
Constructeur Optimiser(Invariant, NulAbsorbant) (R : Nul Ou Reel);
Constructeur Optimiser(Invariant, NulAbsorbant) (C : Nul Ou Caractere);
Operateur Optimiser(Invariant, NulAbsorbant) +(R : Nul Ou Reel) Retourner Nul Ou Reel;
Operateur Optimiser(Invariant, NulAbsorbant) -(R : Nul Ou Reel) Retourner Nul Ou Reel;
Operateur Optimiser(Invariant, NulAbsorbant) *(R : Nul Ou Reel) Retourner Nul Ou Reel;
Operateur Optimiser(Invariant, NulAbsorbant) /(E : Nul Ou Entier) Retourner Nul Ou Reel;
Operateur Optimiser(Invariant, NulAbsorbant) /(R : Nul Ou Reel) Retourner Nul Ou Reel;
Operateur Optimiser(Invariant, NulAbsorbant) \(E : Nul Ou Entier) Retourner Nul Ou Entier;
Operateur Optimiser(Invariant, NulAbsorbant) \(R : Nul Ou Reel) Retourner Nul Ou Entier;
Operateur Optimiser(Invariant, NulAbsorbant) %(E : Nul Ou Entier) Retourner Nul Ou Entier;
Operateur Optimiser(Invariant, NulAbsorbant) ^(E : Nul Ou Entier) Retourner Nul Ou Entier;
Operateur Optimiser(Invariant, NulAbsorbant) ^(E : Nul Ou Reel) Retourner Nul Ou Reel;
Operateur Optimiser(Invariant, NulAbsorbant) &(E : Nul Ou Entier) Retourner Nul Ou Entier;
Operateur Optimiser(Invariant, NulAbsorbant) |(E : Nul Ou Entier) Retourner Nul Ou Entier;
Operateur Optimiser(Invariant, NulAbsorbant) <<(E : Nul Ou Entier) Retourner Nul Ou Entier;
Operateur Optimiser(Invariant, NulAbsorbant) >>(E : Nul Ou Entier) Retourner Nul Ou Entier;
Operateur Optimiser(Invariant, NulAbsorbant) ==(R : Nul Ou Reel) Retourner Nul Ou Booleen;
Operateur Optimiser(Invariant, NulAbsorbant) !=(R : Nul Ou Reel) Retourner Nul Ou Booleen;
Operateur Optimiser(Invariant, NulAbsorbant) <=(R : Nul Ou Reel) Retourner Nul Ou Booleen;
Operateur Optimiser(Invariant, NulAbsorbant) >=(R : Nul Ou Reel) Retourner Nul Ou Booleen;
Operateur Optimiser(Invariant, NulAbsorbant) <(R : Nul Ou Reel) Retourner Nul Ou Booleen;
Operateur Optimiser(Invariant, NulAbsorbant) >(R : Nul Ou Reel) Retourner Nul Ou Booleen;
Fonction Optimiser(Invariant) Unicode() Retourner Nul Ou Caractere;
Fin Type
Le type Entier possède trois constructeurs :
Principal
Variable
PrixArticle : Entier;
/* 'PrixArticle' est une variable de type entier. */
Debut
PrixArticle=PrixArticle+10;
/* Addition de deux entiers. */
PrixArticle=PrixArticle+10.5;
/* Addition d'un entier et d'un réel. */
PrixArticle=PrixArticle-10;
/* Soustraction de deux entiers. */
PrixArticle=PrixArticle-10.5;
/* Soustraction d'un entier et d'un réel. */
PrixArticle=PrixArticle*2;
/* Multiplication de deux entiers. */
PrixArticle=PrixArticle*1.5;
/* Multiplication d'un entier et d'un réel. */
PrixArticle=PrixArticle/2;
/* Division de deux entiers. */
PrixArticle=PrixArticle/1.5;
/* Division d'un entier et d'un réel. */
PrixArticle=PrixArticle%2;
/* Modulo de deux entiers. */
PrixArticle=PrixArticle^2;
/* Puissance de deux entiers. */
PrixArticle=PrixArticle^1.5;
/* Puissance d'un entier par un réel. */
PrixArticle=PrixArticle&2;
/* Et bit à bit entre deux entiers. */
PrixArticle=PrixArticle|2;
/* Ou bit à bit entre deux entiers. */
PrixArticle=PrixArticle<<3;
/* Décalage à gauche d'un entier. Dans cet exemple, cela revient a multiplier par 8. */
PrixArticle=PrixArticle>>3;
/* Décalage à droite d'un entier. Dans cet exemple, cela revient a diviser par 8. */
Si PrixArticle==10 Alors
/* Egalité entre deux entiers. */
...
Fin Si
Si PrixArticle==10.5 Alors
/* Egalité entre un entier et un réel. */
...
Fin Si
Si PrixArticle!=10 Alors
/* Inégalité entre deux entiers. */
...
Fin Si
Si PrixArticle!=10.5 Alors
/* Inégalité entre un entier et un réel. */
...
Fin Si
Si PrixArticle<=10 Alors
/* Infériorité large entre deux entiers. */
...
Fin Si
Si PrixArticle<=10.5 Alors
/* Infériorité large entre un entier et un réel. */
...
Fin Si
Si PrixArticle<10 Alors
/* Infériorité stricte entre deux entiers. */
...
Fin Si
Si PrixArticle<10.5 Alors
/* Infériorité stricte entre un entier et un réel. */
...
Fin Si
PrixArticle=Entier("10");
/* Conversion d'une chaîne de caractères en un entier. */
PrixArticle=Entier(10.5);
/* Conversion d'un réel en un entier. Seule la partie entière inférieure est retenue. */
Fin Principal
Ganzzahl | Integer | 整数 | NumeroEntero | - | - | - | - |