Les opérateurs

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

upscmp Source=operateur.upl

Revenir en haut de la page...

operateur

Revenir en haut de la page...

Source Composant "Exemple d'emploi des opérateurs" Version 1.0.0;

Type TypeA
/********/
Fin Type

Operateur TypeA.=(C : Nul Ou TypeA)
/*******************************/
Debut
A=C.A;
B=C.B;
Fin Operateur

Operateur TypeA.==(C : Nul Ou TypeA) Retourner Nul Ou Booleen
/*********************************************************/
Debut
Retourner A==C.A;
Fin Operateur

Operateur TypeA.!=(C : Nul Ou TypeA) Retourner Nul Ou Booleen
/*********************************************************/
Debut
Retourner A!=C.A;
Fin Operateur

Operateur TypeA.+(C : Entier) Retourner TypeA
/*****************************************/
Variable Debut
R.A=A+C;
R.B=B;
Retourner R;
Fin Operateur

Operateur TypeA.-(C : Entier) Retourner TypeA
/*****************************************/
Variable Debut
R.A=A-C;
R.B=B;
Retourner R;
Fin Operateur

Operateur TypeA.++(P : Booleen) Retourner TypeA
/*******************************************/
Variable Debut
Si P Alors Sinon Fin Si
R.B=B;
Retourner R;
Fin Operateur

Operateur TypeA.--(P : Booleen) Retourner TypeA
/*******************************************/
Variable Debut
Si P Alors Sinon Fin Si
R.B=B;
Retourner R;
Fin Operateur

Operateur TypeA.[](I : Nul Ou Entier) Retourner Caractere
/****************************************************/
Debut
Retourner B.Milieu(I,1);
Fin Operateur

Operateur TypeA.()() Retourner Caractere
/**************************************/
Debut
Retourner B;
Fin Operateur

Operateur TypeA.Comme(C : Caractere) Retourner Nul Ou Booleen
/*********************************************************/
Debut
Retourner B Comme C;
Fin Operateur

Principal
/*******/
Variable Debut
VA.A=1;
VA.B="coucou";
VB=VA+2;
VB=VA-1;
VB+=2;
VB-=1;
Ecran.Ecrire(VB.A);
Ecran.Ecrire(VB.B);
Si VA==VB Alors Fin Si
Si VA!=VB Alors Fin Si
Ecran.Ecrire("\n");

VB=VA++;
Ecran.Ecrire(VB.A);
Ecran.Ecrire(VB.B);
VB=++VA;
Ecran.Ecrire(VB.A);
Ecran.Ecrire(VB.B);
VB=VA--;
Ecran.Ecrire(VB.A);
Ecran.Ecrire(VB.B);
VB=--VA;
Ecran.Ecrire(VB.A);
Ecran.Ecrire(VB.B);
Ecran.Ecrire(VA[1]);
Ecran.Ecrire(VA());
Ecran.Ecrire("\n");

Si "ABCDE" Comme "A*" Alors Sinon Fin Si
Si "ABCDE" Comme "A?CD" Alors Sinon Fin Si
Si "ABCDE" Comme "AB[ZXY]D" Alors Sinon Fin Si
Si VA Comme "cou*" Alors Sinon Fin Si
Fin Principal

Revenir en haut de la page...