Les instructions générales

Ce programme présente l'usage des instructions générales d'Up ! 5GL.

Le fichier source est ${UPS_HOME}/upssdk/demo/${UPS_LANGUAGE}/insgen.upl.

Mode compilé

Commande de compilation


upscmp Source=insgen.upl

Commande d'exécution


insgen

Mode interprété


upssng Source=insgen.upl

Fichier source


Source Composant "Exemple sur les instructions générales" Version 4.0.0;



Principal

/*******/

Variable

/******/

   A : Entier;

   B : Reel;

   C : Booleen;

   AN : Nul Ou Entier;

   CN : Nul Ou Booleen;

   BN : Nul Ou Reel;



Debut

Pour A=1 JusquA 5 Faire

   Ecran.Ecrire(A);

Fin Pour

Ecran.Ecrire("\n");

A=1;

TantQue A<5 Faire

   Ecran.Ecrire(A++);

Fin TantQue

Ecran.Ecrire("\n");

A=1;

Faire

   Ecran.Ecrire(A++);

JusquA

   A==5

Fin Faire

Ecran.Ecrire("\n");

B=A;

Si B==1.0 Alors

   Ecran.Ecrire("B==1.0");

   A=1;

SinonSi B==2.0 Alors

   Ecran.Ecrire("B==2.0");

   A=2;

Sinon

   Ecran.Ecrire("Sinon pour B");

   A=3;


Fin Si

Si A==1 Alors

   Ecran.Ecrire("A==1");

SinonSi A==2 Alors

   Ecran.Ecrire("A==2");

Sinon

   Ecran.Ecrire("Sinon pour A");

Fin Si



Selon B+1 Faire

   Cas Pour 1 Faire
   
      Ecran.Ecrire("B+1 Pour 1");
   
   Fin Cas

   Cas Dans (2, 3) Faire
   
      Ecran.Ecrire("B+1 Dans (2, 3)");
   
   Fin Cas

   Cas Entre 4 Et 10 Faire
   
      Ecran.Ecrire("B+1 Entre 4 Et 10");
   
   Fin Cas

   Defaut
   
      Ecran.Ecrire("B+1 Dans Defaut");
   
   Fin Defaut


Fin Selon

Selon A+1 Faire

   Cas Pour 1 Faire
   
      Ecran.Ecrire("A+1 Pour 1");
   
   Fin Cas

   Cas Dans (2, 3) Faire
   
      Ecran.Ecrire("B+1 Dans (2, 3)");
   
   Fin Cas

   Cas Entre 4 Et 10 Faire
   
      Ecran.Ecrire("B+1 Entre 4 Et 10");
   
   Fin Cas

   Defaut
   
      Ecran.Ecrire("B+1 Dans Defaut");
   
   Fin Defaut

Fin Selon

C=(A==1);

Si C Alors

   Ecran.Ecrire("C=(A==1)");

Sinon

   Ecran.Ecrire("C!=(A==1)");

Fin Si

Ecran.Ecrire("\n");



Pour AN=1 JusquA 5 Faire

   Ecran.Ecrire(AN);

Fin Pour

Ecran.Ecrire("\n");

AN=1;

TantQue AN<5 Faire

   Ecran.Ecrire(AN++);

Fin TantQue

Ecran.Ecrire("\n");

AN=1;

Faire

   Ecran.Ecrire(AN++);

JusquA

   AN==5

Fin Faire

Ecran.Ecrire("\n");

BN=AN;

Si BN==1.0 Alors

   Ecran.Ecrire("BN==1.0");

   AN=1;


SinonSi BN==2.0 Alors

   Ecran.Ecrire("BN==2.0");

   AN=2;

Sinon

   Ecran.Ecrire("Sinon pour BN");

   AN=3;


Fin Si

Si AN==1 Alors

   Ecran.Ecrire("AN==1");

SinonSi AN==2 Alors

   Ecran.Ecrire("AN==2");

Sinon

   Ecran.Ecrire("Sinon pour AN");

Fin Si

Selon BN+1 Faire

   Cas Pour 1 Faire
   
      Ecran.Ecrire("BN+1 Pour 1");
   
   Fin Cas

   Cas Dans (2, 3) Faire
   
      Ecran.Ecrire("BN+1 Dans (2, 3)");
   
   Fin Cas

   Cas Entre 4 Et 10 Faire
   
      Ecran.Ecrire("BN+1 Entre 4 Et 10");
   
   Fin Cas

   Defaut
   
      Ecran.Ecrire("BN+1 Dans Defaut");
   
   Fin Defaut

Fin Selon

Selon AN+1 Faire

   Cas Pour 1 Faire
   
      Ecran.Ecrire("AN+1 Pour 1");
   
   Fin Cas

   Cas Dans (2, 3) Faire
   
      Ecran.Ecrire("AN+1 Dans (2, 3)");
   
   Fin Cas

   Cas Entre 4 Et 10 Faire
   
      Ecran.Ecrire("AN+1 Entre 4 Et 10");
   
   Fin Cas

   Defaut
   
      Ecran.Ecrire("AN+1 Dans Defaut");
   
   Fin Defaut

Fin Selon

CN=(AN==1);

Si CN Alors

   Ecran.Ecrire("CN=(AN==1)");

Sinon

   Ecran.Ecrire("CN!=(AN==1)");

Fin Si

Ecran.Ecrire("\n");

B=3.0;

Pour A=1 JusquA 5 Faire

   Ecran.Ecrire("Avant Arreter");

   Si A==B Alors
   
      Arreter;
   
   Fin Si

   Ecran.Ecrire("Apres Arreter");

Fin Pour

Ecran.Ecrire("\n");



Pour A=1 JusquA 5 Faire

   Ecran.Ecrire("Avant Continuer");

   Si A>=B Alors
   
      Continuer;
   
   Fin Si

   Ecran.Ecrire("Apres Continuer");


Fin Pour

Fin Principal

Résultat de l'exécution

1 2 3 4 5 1 2 3 4 1 2 3 4 Sinon pour B Sinon pour A B+1 Entre 4 Et 10 A+1 Entre 4 Et 10 C!=(A==1) 1 2 3 4 5 1 2 3 4 1 2 3 4 Sinon pour BN Sinon pour AN BN+1 Entre 4 Et 10 AN+1 Entre 4 Et 10 CN!=(AN==1) Avant Arreter Apres Arreter Avant Arreter Apres Arreter Avant Arreter Avant Continuer Apres Continuer Avant Continuer Apres Continuer Avant Continuer Avant Continuer Avant Continuer