Binaire

Ce programme présente l'usage des binaires.

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

Mode compilé

Commande de compilation


upscmp Source=binaire.upl

Commande d'exécution


binaire

Mode interprété


upssng Source=binaire.upl

Fichier source


Source Composant "Exemple d'emploi de type Binaire" Version 4.0.0;



Principal

/*******/

Variable

/******/

   B : Binaire;

   L : Entier;

   I : Entier;



Debut

B=Binaire("Binaire : âêî");

Ecran.Ecrire(Caractere(B));

B=Binaire("Binaire")+Binaire(" : âêî");

Ecran.Ecrire(Caractere(B));

B=Binaire("Binaire");

B+=Binaire(" : âêî");

Ecran.Ecrire(Caractere(B));

B=Binaire("Binaire : âêî");

B=-B;

Ecran.Ecrire(Caractere(B));

L=B.Longueur();

Ecran.Ecrire(L);

B=Binaire("Binaire : âêî").Gauche(3);

Ecran.Ecrire(Caractere(B));

B=Binaire("Binaire : âêî").Droite(3);

Ecran.Ecrire(Caractere(B));

B=Binaire("Binaire : âêî").Milieu(2,5);

Ecran.Ecrire(Caractere(B));

B=Binaire("Binaire");

L=B.Longueur();

Pour I=0 JusquA L-1 Faire

   Ecran.Ecrire("B["+Caractere(I)+"]="+Caractere(B[I]));

Fin Pour

Pour I=0 JusquA L-2 Pas 2 Faire

   B[I]=65+I;

Fin Pour

Ecran.Ecrire(Caractere(B));

Pour I=0 JusquA L-2 Pas 2 Faire

   B[I]++;

Fin Pour

L=Binaire("A").Unicode(0);

Ecran.Ecrire(L);



B=Binaire("Binaire");

B+=Binaire(" : âêî");

Si B==Binaire("Binaire : âêî") Alors

   Ecran.Ecrire("B==Binaire : âêî");

Fin Si

Si B!=Binaire("Binaire : âêî") Alors

   Ecran.Ecrire("B!=Binaire : âêî");

Fin Si

Fin Principal

Résultat de l'exécution

Binaire : âêî Binaire : âêî Binaire : âêî Binaire : âêî 26 Bi êî nair B[0]=66 B[1]=0 B[2]=105 B[3]=0 B[4]=110 B[5]=0 B[6]=97 B[7]=0 B[8]=105 B[9]=0 B[10]=114 B[11]=0 B[12]=101 B[13]=0 ACEGIKM BDFHJLN B==Binaire : âêî