La transmission de paramètres

Ce programme présente les différentes combinaisons de tranmissions de paramètres scalaires, objets ou issus de collections.

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

Mode compilé

Commande de compilation


upscmp Source=entsor.upl

Commande d'exécution


entsor

Mode interprété


upssng Source=entsor.upl

Fichier source


Source Composant "Exemple d'emploi des natures de parametres" Version 4.0.0;



Type TT Defaut

/************/

   B1 : Booleen;

   B2 : Booleen;

   B1Nul : Nul Ou Booleen;

   B2Nul : Nul Ou Booleen;

   E1 : Entier;

   E2 : Entier;

   E1Nul : Nul Ou Entier;

   E2Nul : Nul Ou Entier;

   R1 : Reel;

   R2 : Reel;

   R1Nul : Nul Ou Reel;

   R2Nul : Nul Ou Reel;

   C1 : Caractere;

   C2 : Caractere;

   C1Nul : Nul Ou Caractere;

   C2Nul : Nul Ou Caractere;

   Constructeur();

   VB1 : Booleen Virtuel;

   VB2 : Booleen Virtuel;

   VB1Nul : Nul Ou Booleen Virtuel;

   VB2Nul : Nul Ou Booleen Virtuel;

   VE1 : Entier Virtuel;

   VE2 : Entier Virtuel;

   VE1Nul : Nul Ou Entier Virtuel;

   VE2Nul : Nul Ou Entier Virtuel;

   VR1 : Reel Virtuel;

   VR2 : Reel Virtuel;

   VR1Nul : Nul Ou Reel Virtuel;

   VR2Nul : Nul Ou Reel Virtuel;

   VC1 : Caractere Virtuel;

   VC2 : Caractere Virtuel;

   VC1Nul : Nul Ou Caractere Virtuel;

   VC2Nul : Nul Ou Caractere Virtuel;

Prive :

/*****/

   WB1 : Booleen;

   WB2 : Booleen;

   WB1Nul : Nul Ou Booleen;

   WB2Nul : Nul Ou Booleen;

   WE1 : Entier;

   WE2 : Entier;

   WE1Nul : Nul Ou Entier;

   WE2Nul : Nul Ou Entier;

   WR1 : Reel;

   WR2 : Reel;

   WR1Nul : Nul Ou Reel;

   WR2Nul : Nul Ou Reel;

   WC1 : Caractere;

   WC2 : Caractere;

   WC1Nul : Nul Ou Caractere;

   WC2Nul : Nul Ou Caractere;


Fin Type



Variable

/******/

   B1 : Booleen;

   B2 : Booleen;

   B1Nul : Nul Ou Booleen;

   B2Nul : Nul Ou Booleen;

   E1 : Entier;

   E2 : Entier;

   E1Nul : Nul Ou Entier;

   E2Nul : Nul Ou Entier;

   R1 : Reel;

   R2 : Reel;

   R1Nul : Nul Ou Reel;

   R2Nul : Nul Ou Reel;

   C1 : Caractere;

   C2 : Caractere;

   C1Nul : Nul Ou Caractere;

   C2Nul : Nul Ou Caractere;

   T : TT;

   TBNul : Tableau[2] De Nul Ou Booleen;

   TENul : Tableau[2] De Nul Ou Entier;

   TRNul : Tableau[2] De Nul Ou Reel;

   TCNul : Tableau[2] De Nul Ou Caractere;

   VB1 : Booleen Virtuel;

   VB2 : Booleen Virtuel;

   VB1Nul : Nul Ou Booleen Virtuel;

   VB2Nul : Nul Ou Booleen Virtuel;

   VE1 : Entier Virtuel;

   VE2 : Entier Virtuel;

   VE1Nul : Nul Ou Entier Virtuel;

   VE2Nul : Nul Ou Entier Virtuel;

   VR1 : Reel Virtuel;

   VR2 : Reel Virtuel;

   VR1Nul : Nul Ou Reel Virtuel;

   VR2Nul : Nul Ou Reel Virtuel;

   VC1 : Caractere Virtuel;

   VC2 : Caractere Virtuel;

   VC1Nul : Nul Ou Caractere Virtuel;

   VC2Nul : Nul Ou Caractere Virtuel;

Prive :

/*****/

   WB1 : Booleen;

   WB2 : Booleen;

   WB1Nul : Nul Ou Booleen;

   WB2Nul : Nul Ou Booleen;

   WE1 : Entier;

   WE2 : Entier;

   WE1Nul : Nul Ou Entier;

   WE2Nul : Nul Ou Entier;

   WR1 : Reel;

   WR2 : Reel;

   WR1Nul : Nul Ou Reel;

   WR2Nul : Nul Ou Reel;

   WC1 : Caractere;

   WC2 : Caractere;

   WC1Nul : Nul Ou Caractere;

   WC2Nul : Nul Ou Caractere;



Public :

/******/

Procedure VB1(P : Booleen)

/************************/

Debut

WB1=P;

Fin Procedure



Fonction VB1() Retourner Booleen

/******************************/

Debut

Retourner WB1;

Fin Fonction



Procedure VB2(P : Booleen)

/**********************/

Debut

WB2=P;

Fin Procedure



Fonction VB2() Retourner Booleen

/******************************/

Debut

Retourner WB2;

Fin Fonction



Procedure VB1Nul(P : Nul Ou Booleen)

/********************************/

Debut

WB1Nul=P;

Fin Procedure



Fonction VB1Nul() Retourner Nul Ou Booleen

/****************************************/

Debut

Retourner WB1Nul;

Fin Fonction



Procedure VB2Nul(P : Nul Ou Booleen)

/**********************************/

Debut

WB2Nul=P;

Fin Procedure



Fonction VB2Nul() Retourner Nul Ou Booleen

/****************************************/

Debut

Retourner WB2Nul;

Fin Fonction



Procedure VE1(P : Entier)

/*********************/

Debut

WE1=P;

Fin Procedure



Fonction VE1() Retourner Entier

/*****************************/

Debut

Retourner WE1;

Fin Fonction



Procedure VE2(P : Entier)

/***********************/

Debut

WE2=P;

Fin Procedure



Fonction VE2() Retourner Entier

/*****************************/

Debut

Retourner WE2;

Fin Fonction



Procedure VE1Nul(P : Nul Ou Entier)

/*********************************/

Debut

WE1Nul=P;

Fin Procedure


Fonction VE1Nul() Retourner Nul Ou Entier

/***************************************/

Debut

Retourner WE1Nul;

Fin Fonction



Procedure VE2Nul(P : Nul Ou Entier)

/*********************************/

Debut

WE2Nul=P;

Fin Procedure



Fonction VE2Nul() Retourner Nul Ou Entier

/***************************************/

Debut

Retourner WE2Nul;

Fin Fonction



Procedure VR1(P : Reel)

/*******************/

Debut

WR1=P;

Fin Procedure



Fonction VR1() Retourner Reel

/***************************/

Debut

Retourner WR1;

Fin Fonction



Procedure VR2(P : Reel)

/*********************/

Debut

WR2=P;

Fin Procedure



Fonction VR2() Retourner Reel

/***************************/

Debut

Retourner WR2;

Fin Fonction



Procedure VR1Nul(P : Nul Ou Reel)

/*******************************/

Debut

WR1Nul=P;

Fin Procedure



Fonction VR1Nul() Retourner Nul Ou Reel

/*************************************/

Debut

Retourner WR1Nul;

Fin Fonction



Procedure VR2Nul(P : Nul Ou Reel)

/*****************************/

Debut

WR2Nul=P;

Fin Procedure



Fonction VR2Nul() Retourner Nul Ou Reel

/*************************************/

Debut

Retourner WR2Nul;

Fin Fonction



Procedure VC1(P : Caractere)

/**************************/

Debut

WC1=P;

Fin Procedure



Fonction VC1() Retourner Caractere

/********************************/

Debut

Retourner WC1;

Fin Fonction



Procedure VC2(P : Caractere)

/**************************/

Debut

WC2=P;

Fin Procedure



Fonction VC2() Retourner Caractere

/********************************/

Debut

Retourner WC2;

Fin Fonction



Procedure VC1Nul(P : Nul Ou Caractere)

/************************************/

Debut

WC1Nul=P;

Fin Procedure



Fonction VC1Nul() Retourner Nul Ou Caractere

/******************************************/

Debut

Retourner WC1Nul;

Fin Fonction



Procedure VC2Nul(P : Nul Ou Caractere)

/************************************/

Debut

WC2Nul=P;

Fin Procedure



Fonction VC2Nul() Retourner Nul Ou Caractere

/******************************************/

Debut

Retourner WC2Nul;

Fin Fonction



Procedure TT.VB1(P : Booleen)

/***************************/

Debut

Objet.WB1=P;

Fin Procedure



Fonction TT.VB1() Retourner Booleen

/*********************************/

Debut
Retourner Objet.WB1;

Fin Fonction



Procedure TT.VB2(P : Booleen)

/***************************/

Debut

Objet.WB2=P;

Fin Procedure



Fonction TT.VB2() Retourner Booleen

/*********************************/

Debut

Retourner Objet.WB2;

Fin Fonction



Procedure TT.VB1Nul(P : Nul Ou Booleen)

/*************************************/

Debut

Objet.WB1Nul=P;

Fin Procedure



Fonction TT.VB1Nul() Retourner Nul Ou Booleen

/*******************************************/

Debut

Retourner Objet.WB1Nul;

Fin Fonction



Procedure TT.VB2Nul(P : Nul Ou Booleen)

/*************************************/

Debut

Objet.WB2Nul=P;

Fin Procedure



Fonction TT.VB2Nul() Retourner Nul Ou Booleen

/*******************************************/

Debut

Retourner Objet.WB2Nul;

Fin Fonction



Procedure TT.VE1(P : Entier)

/**************************/

Debut

Objet.WE1=P;

Fin Procedure



Fonction TT.VE1() Retourner Entier

/********************************/

Debut

Retourner Objet.WE1;

Fin Fonction



Procedure TT.VE2(P : Entier)

/**************************/

Debut

Objet.WE2=P;

Fin Procedure



Fonction TT.VE2() Retourner Entier

/********************************/

Debut

Retourner Objet.WE2;

Fin Fonction



Procedure TT.VE1Nul(P : Nul Ou Entier)

/************************************/

Debut

Objet.WE1Nul=P;

Fin Procedure



Fonction TT.VE1Nul() Retourner Nul Ou Entier

/******************************************/

Debut

Retourner Objet.WE1Nul;

Fin Fonction



Procedure TT.VE2Nul(P : Nul Ou Entier)

/************************************/

Debut

Objet.WE2Nul=P;

Fin Procedure



Fonction TT.VE2Nul() Retourner Nul Ou Entier

/******************************************/

Debut

Retourner Objet.WE2Nul;

Fin Fonction



Procedure TT.VR1(P : Reel)

/************************/

Debut

Objet.WR1=P;

Fin Procedure



Fonction TT.VR1() Retourner Reel

/******************************/

Debut

Retourner Objet.WR1;

Fin Fonction



Procedure TT.VR2(P : Reel)

/************************/

Debut

Objet.WR2=P;

Fin Procedure



Fonction TT.VR2() Retourner Reel

/******************************/

Debut

Retourner Objet.WR2;

Fin Fonction



Procedure TT.VR1Nul(P : Nul Ou Reel)

/**********************************/

Debut

Objet.WR1Nul=P;

Fin Procedure



Fonction TT.VR1Nul() Retourner Nul Ou Reel

/****************************************/

Debut

Retourner Objet.WR1Nul;

Fin Fonction



Procedure TT.VR2Nul(P : Nul Ou Reel)

/**********************************/

Debut

Objet.WR2Nul=P;

Fin Procedure



Fonction TT.VR2Nul() Retourner Nul Ou Reel

/****************************************/

Debut
Retourner Objet.WR2Nul;

Fin Fonction



Procedure TT.VC1(P : Caractere)

/*****************************/

Debut

Objet.WC1=P;

Fin Procedure



Fonction TT.VC1() Retourner Caractere

/***********************************/

Debut

Retourner Objet.WC1;

Fin Fonction



Procedure TT.VC2(P : Caractere)

/*****************************/

Debut

Objet.WC2=PB;

Fin Procedure



Fonction TT.VC2() Retourner Caractere

/***********************************/

Debut

Retourner Objet.WC2;

Fin Fonction



Procedure TT.VC1Nul(P : Nul Ou Caractere)

/***************************************/

Debut

Objet.WC1Nul=P;

Fin Procedure



Fonction TT.VC1Nul() Retourner Nul Ou Caractere

/*********************************************/

Debut

Retourner Objet.WC1Nul;

Fin Fonction



Procedure TT.VC2Nul(P : Nul Ou Caractere)

/***************************************/

Debut

Objet.C2Nul=P;

Fin Procedure



Fonction TT.VC2Nul() Retourner Nul Ou Caractere

/*********************************************/

Debut

Retourner Objet.WC2Nul;

Fin Fonction



Procedure P1(A : Booleen, B : Booleen Entree Sortie, C : Booleen Sortie)

/**********************************************************************/

Debut

Ecran.Ecrire("P1");

Ecran.Ecrire(A);

Ecran.Ecrire(B);

B=Vrai;

C=Vrai;

Fin Procedure



Procedure P1Nul(A : Nul Ou Booleen, B : Nul Ou Booleen Entree 
   Sortie, C : Nul Ou Booleen Sortie)

/**********************************************************************************************/

Debut

Ecran.Ecrire("P1Nul");

Ecran.Ecrire(A);

Ecran.Ecrire(B);

B=Vrai;

C=Vrai;

Fin Procedure



Procedure P2(A : Entier, B : Entier Entree Sortie, C : Entier Sortie)

/*******************************************************************/

Debut

Ecran.Ecrire("P2");

Ecran.Ecrire(A);

Ecran.Ecrire(B);

B=10;

C=100;

Fin Procedure



Procedure P2Nul(A : Nul Ou Entier, B : Nul Ou Entier Entree 
   Sortie, C : Nul Ou Entier Sortie)

/*******************************************************************************************/

Debut

Ecran.Ecrire("P2Nul");

Ecran.Ecrire(A);

Ecran.Ecrire(B);

B=10;

C=100;

Fin Procedure



Procedure P3(A : Reel, B : Reel Entree Sortie, C : Reel Sortie)

/*************************************************************/

Debut

Ecran.Ecrire("P3");

Ecran.Ecrire(A);

Ecran.Ecrire(B);

B=10.10;

C=100.100;

Fin Procedure



Procedure P3Nul(A : Nul Ou Reel, B : Nul Ou Reel Entree 
   Sortie, C : Nul Ou Reel Sortie)

/*************************************************************************************/

Debut

Ecran.Ecrire("P3Nul");

Ecran.Ecrire(A);

Ecran.Ecrire(B);

B=10.10;

C=100.100;

Fin Procedure


Procedure P4(A : Caractere, B : Caractere Entree Sortie, C : 
Caractere Sortie)

/****************************************************************************/

Debut

Ecran.Ecrire("P4");

Ecran.Ecrire(A);

Ecran.Ecrire(B);

B="b";

C="c";

Fin Procedure



Procedure P4Nul(A : Nul Ou Caractere, B : Nul Ou Caractere 
   Entree Sortie, C : Nul Ou Caractere Sortie)

/****************************************************************************************************/

Debut

Ecran.Ecrire("P4Nul");

Ecran.Ecrire(A);

Ecran.Ecrire(B);

B="b";

C="c";

Fin Procedure



Principal

/*******/

Debut

P1(Vrai, B1, B2);

Ecran.Ecrire(B1);

Ecran.Ecrire(B2);

B1=Faux;

B2=Faux;

P1Nul(Vrai, B1, B2);

Ecran.Ecrire(B1);

Ecran.Ecrire(B2);

B1Nul=Faux;

B2Nul=Faux;

P1(Vrai, B1Nul, B2Nul);

Ecran.Ecrire(B1Nul);

Ecran.Ecrire(B2Nul);

B1Nul=Faux;

B2Nul=Faux;

P1Nul(Vrai, B1Nul, B2Nul);

Ecran.Ecrire(B1Nul);

Ecran.Ecrire(B2Nul);

Ecran.Ecrire("\n");



P2(1, E1, E2);

Ecran.Ecrire(E1);

Ecran.Ecrire(E2);

E1=0;

E2=0;

P2Nul(1, E1, E2);

Ecran.Ecrire(E1);

Ecran.Ecrire(E2);

E1Nul=0;

E2Nul=0;

P2(1, E1Nul, E2Nul);

Ecran.Ecrire(E1Nul);

Ecran.Ecrire(E2Nul);

E1Nul=0;

E2Nul=0;

P2Nul(1, E1Nul, E2Nul);

Ecran.Ecrire(E1Nul);

Ecran.Ecrire(E2Nul);

Ecran.Ecrire("\n");



P3(1.0, R1, R2);

Ecran.Ecrire(R1);

Ecran.Ecrire(R2);

R1=0.0;

R2=0.0;

P3Nul(1.0, R1, R2);

Ecran.Ecrire(R1);

Ecran.Ecrire(R2);

R1Nul=0.0;

R2Nul=0.0;

P3(1.0, R1Nul, R2Nul);

Ecran.Ecrire(R1Nul);

Ecran.Ecrire(R2Nul);

R1Nul=0.0;

R2Nul=0.0;

P3Nul(1.0, R1Nul, R2Nul);

Ecran.Ecrire(R1Nul);

Ecran.Ecrire(R2Nul);

Ecran.Ecrire("\n");



P4("a", C1, C2);

Ecran.Ecrire(C1);

Ecran.Ecrire(C2);

C1=";

C2=";

P4Nul("a", C1, C2);

Ecran.Ecrire(C1);

Ecran.Ecrire(C2);

C1Nul=";

C2Nul=";

P4("a", C1Nul, C2Nul);

Ecran.Ecrire(C1Nul);

Ecran.Ecrire(C2Nul);

C1Nul=";

C2Nul=";

P4Nul("a", C1Nul, C2Nul);

Ecran.Ecrire(C1Nul);

Ecran.Ecrire(C2Nul);

Ecran.Ecrire("\n");



P1(Vrai, T.B1, T.B2);

Ecran.Ecrire(T.B1);

Ecran.Ecrire(T.B2);

T.B1=Faux;

T.B2=Faux;

P1Nul(Vrai, T.B1, T.B2);

Ecran.Ecrire(T.B1);

Ecran.Ecrire(T.B2);

T.B1Nul=Faux;

T.B2Nul=Faux;

P1(Vrai, T.B1Nul, T.B2Nul);

Ecran.Ecrire(T.B1Nul);

Ecran.Ecrire(T.B2Nul);

T.B1Nul=Faux;

T.B2Nul=Faux;

P1Nul(Vrai, T.B1Nul, T.B2Nul);

Ecran.Ecrire(T.B1Nul);

Ecran.Ecrire(T.B2Nul);

Ecran.Ecrire("\n");



P2(1, T.E1, T.E2);

Ecran.Ecrire(T.E1);

Ecran.Ecrire(T.E2);

T.E1=0;

T.E2=0;

P2Nul(1, T.E1, T.E2);

Ecran.Ecrire(T.E1);

Ecran.Ecrire(T.E2);

T.E1Nul=0;

T.E2Nul=0;

P2(1, T.E1Nul, T.E2Nul);

Ecran.Ecrire(T.E1Nul);

Ecran.Ecrire(T.E2Nul);

T.E1Nul=0;

T.E2Nul=0;

P2Nul(1, T.E1Nul, T.E2Nul);

Ecran.Ecrire(T.E1Nul);

Ecran.Ecrire(T.E2Nul);

Ecran.Ecrire("\n");



P3(1.0, T.R1, T.R2);

Ecran.Ecrire(T.R1);

Ecran.Ecrire(T.R2);

T.R1=0.0;

T.R2=0.0;

P3Nul(1.0, T.R1, T.R2);

Ecran.Ecrire(T.R1);

Ecran.Ecrire(T.R2);

T.R1Nul=0.0;

T.R2Nul=0.0;

P3(1.0, T.R1Nul, T.R2Nul);

Ecran.Ecrire(T.R1Nul);

Ecran.Ecrire(T.R2Nul);

T.R1Nul=0.0;

T.R2Nul=0.0;

P3Nul(1.0, T.R1Nul, T.R2Nul);

Ecran.Ecrire(T.R1Nul);

Ecran.Ecrire(T.R2Nul);

Ecran.Ecrire("\n");



P4("a", T.C1, T.C2);

Ecran.Ecrire(T.C1);

Ecran.Ecrire(T.C2);

T.C1=";

T.C2=";

P4Nul("a", T.C1, T.C2);

Ecran.Ecrire(T.C1);

Ecran.Ecrire(T.C2);

T.C1Nul=";

T.C2Nul=";

P4("a", T.C1Nul, T.C2Nul);

Ecran.Ecrire(T.C1Nul);

Ecran.Ecrire(T.C2Nul);

T.C1Nul=";

T.C2Nul=";

P4Nul("a", T.C1Nul, T.C2Nul);

Ecran.Ecrire(T.C1Nul);

Ecran.Ecrire(T.C2Nul);

Ecran.Ecrire("\n");



TBNul[0]=Faux;

TBNul[1]=Faux;

P1(Vrai, TBNul[0], TBNul[1]);

Ecran.Ecrire(TBNul[0]);

Ecran.Ecrire(TBNul[1]);

TBNul[0]=Faux;

TBNul[1]=Faux;

P1Nul(Vrai, TBNul[0], TBNul[1]);

Ecran.Ecrire(TBNul[0]);

Ecran.Ecrire(TBNul[1]);

Ecran.Ecrire("\n");

TENul[0]=0;

TENul[1]=0;

P2(1, TENul[0], TENul[1]);

Ecran.Ecrire(TENul[0]);

Ecran.Ecrire(TENul[1]);

TENul[0]=0;

TENul[1]=0;

P2Nul(1, TENul[0], TENul[1]);

Ecran.Ecrire(TENul[0]);

Ecran.Ecrire(TENul[1]);

Ecran.Ecrire("\n");



TRNul[0]=0.0;

TRNul[1]=0.0;

P3(1.0, TRNul[0], TRNul[1]);

Ecran.Ecrire(TRNul[0]);

Ecran.Ecrire(TRNul[1]);

TRNul[0]=0.0;

TRNul[1]=0.0;

P3Nul(1.0, TRNul[0], TRNul[1]);

Ecran.Ecrire(TRNul[0]);

Ecran.Ecrire(TRNul[1]);

Ecran.Ecrire("\n");



TCNul[0]=";

TCNul[1]=";

P4("a", TCNul[0], TCNul[1]);

Ecran.Ecrire(TCNul[0]);

Ecran.Ecrire(TCNul[1]);

TCNul[0]=";

TCNul[1]=";

P4Nul("a", TCNul[0], TCNul[1]);

Ecran.Ecrire(TCNul[0]);

Ecran.Ecrire(TCNul[1]);

Ecran.Ecrire("\n");



P1(Vrai, VB1, VB2);

Ecran.Ecrire(VB1);

Ecran.Ecrire(VB2);

VB1=Faux;

VB2=Faux;

P1Nul(Vrai, VB1, VB2);

Ecran.Ecrire(VB1);

Ecran.Ecrire(VB2);

VB1Nul=Faux;

VB2Nul=Faux;

P1(Vrai, VB1Nul, VB2Nul);

Ecran.Ecrire(VB1Nul);

Ecran.Ecrire(VB2Nul);

VB1Nul=Faux;

VB2Nul=Faux;

P1Nul(Vrai, VB1Nul, VB2Nul);

Ecran.Ecrire(VB1Nul);

Ecran.Ecrire(VB2Nul);

Ecran.Ecrire("\n");



P2(1, VE1, VE2);

Ecran.Ecrire(VE1);

Ecran.Ecrire(VE2);

VE1=0;

VE2=0;

P2Nul(1, VE1, VE2);

Ecran.Ecrire(VE1);

Ecran.Ecrire(VE2);

VE1Nul=0;

VE2Nul=0;

P2(1, VE1Nul, VE2Nul);

Ecran.Ecrire(VE1Nul);

Ecran.Ecrire(VE2Nul);

VE1Nul=0;

VE2Nul=0;

P2Nul(1, VE1Nul, VE2Nul);

Ecran.Ecrire(VE1Nul);

Ecran.Ecrire(VE2Nul);

Ecran.Ecrire("\n");



P3(1.0, VR1, VR2);

Ecran.Ecrire(VR1);

Ecran.Ecrire(VR2);

VR1=0.0;

VR2=0.0;

P3Nul(1.0,VR1,VR2);

Ecran.Ecrire(VR1);

Ecran.Ecrire(VR2);

VR1Nul=0.0;

VR2Nul=0.0;

P3(1.0, VR1Nul, VR2Nul);

Ecran.Ecrire(VR1Nul);

Ecran.Ecrire(VR2Nul);

VR1Nul=0.0;

VR2Nul=0.0;

P3Nul(1.0, VR1Nul, VR2Nul);

Ecran.Ecrire(VR1Nul);

Ecran.Ecrire(VR2Nul);

Ecran.Ecrire("\n");



P4("a", VC1, VC2);

Ecran.Ecrire(VC1);

Ecran.Ecrire(VC2);

VC1=";

VC2=";

P4Nul("a", VC1, VC2);

Ecran.Ecrire(VC1);

Ecran.Ecrire(VC2);

VC1Nul=";

VC2Nul=";

P4("a", VC1Nul, VC2Nul);

Ecran.Ecrire(VC1Nul);

Ecran.Ecrire(VC2Nul);

VC1Nul=";

VC2Nul=";

P4Nul("a", VC1Nul, VC2Nul);

Ecran.Ecrire(VC1Nul);

Ecran.Ecrire(VC2Nul);

Ecran.Ecrire("\n");



P1(Vrai, T.VB1, T.VB2);

Ecran.Ecrire(T.VB1);

Ecran.Ecrire(T.VB2);

T.VB1=Faux;

T.VB2=Faux;

P1Nul(Vrai, T.VB1, T.VB2);

Ecran.Ecrire(T.VB1);

Ecran.Ecrire(T.VB2);

T.VB1Nul=Faux;

T.VB2Nul=Faux;

P1(Vrai, T.VB1Nul, T.VB2Nul);

Ecran.Ecrire(T.VB1Nul);

Ecran.Ecrire(T.VB2Nul);

T.VB1Nul=Faux;

T.VB2Nul=Faux;

P1Nul(Vrai, T.VB1Nul, T.VB2Nul);

Ecran.Ecrire(T.VB1Nul);

Ecran.Ecrire(T.VB2Nul);

Ecran.Ecrire("\n");



P2(1, T.VE1, T.VE2);

Ecran.Ecrire(T.VE1);

Ecran.Ecrire(T.VE2);

T.VE1=0;

T.VE2=0;

P2Nul(1, T.VE1, T.VE2);

Ecran.Ecrire(T.VE1);

Ecran.Ecrire(T.VE2);

T.VE1Nul=0;

T.VE2Nul=0;

P2(1, T.VE1Nul, T.VE2Nul);

Ecran.Ecrire(T.VE1Nul);

Ecran.Ecrire(T.VE2Nul);

T.VE1Nul=0;

T.VE2Nul=0;

P2Nul(1, T.VE1Nul, T.VE2Nul);

Ecran.Ecrire(T.VE1Nul);

Ecran.Ecrire(T.VE2Nul);

Ecran.Ecrire("\n");



P3(1.0, T.VR1, T.VR2);

Ecran.Ecrire(T.VR1);

Ecran.Ecrire(T.VR2);

T.VR1=0.0;

T.VR2=0.0;

P3Nul(1.0, T.VR1, T.VR2);

Ecran.Ecrire(T.VR1);

Ecran.Ecrire(T.VR2);

T.VR1Nul=0.0;

T.VR2Nul=0.0;

P3(1.0, T.VR1Nul, T.VR2Nul);

Ecran.Ecrire(T.VR1Nul);

Ecran.Ecrire(T.VR2Nul);

T.VR1Nul=0.0;

T.VR2Nul=0.0;

P3Nul(1.0, T.VR1Nul, T.VR2Nul);

Ecran.Ecrire(T.VR1Nul);

Ecran.Ecrire(T.VR2Nul);

Ecran.Ecrire("\n");



P4("a", T.VC1, T.VC2);

Ecran.Ecrire(T.VC1);

Ecran.Ecrire(T.VC2);

T.VC1=";

T.VC2=";

P4Nul("a", T.VC1, T.VC2);

Ecran.Ecrire(T.VC1);

Ecran.Ecrire(T.VC2);

T.VC1Nul=";

T.VC2Nul=";

P4("a", T.VC1Nul, T.VC2Nul);

Ecran.Ecrire(T.VC1Nul);

Ecran.Ecrire(T.VC2Nul);

T.VC1Nul=";

T.VC2Nul=";

P4Nul("a", T.VC1Nul, T.VC2Nul);

Ecran.Ecrire(T.VC1Nul);

Ecran.Ecrire(T.VC2Nul);

Ecran.Ecrire("\n");

Fin Principal

Résultat de l'exécution

P1 Vrai Faux Vrai Vrai P1Nul Vrai Faux Vrai Vrai P1 Vrai Faux Vrai Vrai P1Nul Vrai Faux Vrai Vrai P2 1 0 10 100 P2Nul 1 0 10 100 P2 1 0 10 100 P2Nul 1 0 10 100 P3 1.0 0.0 10.1 100.1 P3Nul 1.0 0.0 10.1 100.1 P3 1.0 0.0 10.1 100.1 P3Nul 1.0 0.0 10.1 100.1 P4 a b c P4Nul a b c P4 a b c P4Nul a b c P1 Vrai Faux Vrai Vrai P1Nul Vrai Faux Vrai Vrai P1 Vrai Faux Vrai Vrai P1Nul Vrai Faux Vrai Vrai P2 1 0 10 100 P2Nul 1 0 10 100 P2 1 0 10 100 P2Nul 1 0 10 100 P3 1.0 0.0 10.1 100.1 P3Nul 1.0 0.0 10.1 100.1 P3 1.0 0.0 10.1 100.1 P3Nul 1.0 0.0 10.1 100.1 P4 a b c P4Nul a b c P4 a b c P4Nul a b c P1 Vrai Faux Vrai Vrai P1Nul Vrai Faux Vrai Vrai P2 1 0 10 100 P2Nul 1 0 10 100 P3 1.0 0.0 10.1 100.1 P3Nul 1.0 0.0 10.1 100.1 P4 a b c P4Nul a b c P1 Vrai Faux Vrai Vrai P1Nul Vrai Faux Vrai Vrai P1 Vrai Faux Vrai Vrai P1Nul Vrai Faux Vrai Vrai P2 1 0 10 100 P2Nul 1 0 10 100 P2 1 0 10 100 P2Nul 1 0 10 100 P3 1.0 0.0 10.1 100.1 P3Nul 1.0 0.0 10.1 100.1 P3 1.0 0.0 10.1 100.1 P3Nul 1.0 0.0 10.1 100.1 P4 a b c P4Nul a b c P4 a b c P4Nul a b c P1 Vrai Faux Vrai Vrai P1Nul Vrai Faux Vrai Vrai P1 Vrai Faux Vrai Vrai P1Nul Vrai Faux Vrai Vrai P2 1 0 10 100 P2Nul 1 0 10 100 P2 1 0 10 100 P2Nul 1 0 10 100 P3 1.0 0.0 10.1 100.1 P3Nul 1.0 0.0 10.1 100.1 P3 1.0 0.0 10.1 100.1 P3Nul 1.0 0.0 10.1 100.1 P4 a b c P4Nul a b c P4 a b P4Nul a b