La mise au point

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

upscmp Source=map.upl Map=Oui

Revenir en haut de la page...

map map=O

Revenir en haut de la page...

Source Composant "Exemple de trace avec l'option map" Version 1.0.0;

Enumere Procedure P1(A : Entier, B : Entier Entree Sortie, C : Entier Sortie)
/*************************************************************/
Debut
Ecran.Ecrire("A="+Caractere(A));
Ecran.Ecrire("B="+Caractere(B));
B=-1;
C=-2;
Fin Procedure

Procedure P1Nul(A : Nul Ou Entier, B : Nul Ou Entier Entree Sortie, C : Nul Ou Entier Sortie)
/*************************************************************************************/
Debut
Ecran.Ecrire("A="+Caractere(A));
Ecran.Ecrire("B="+Caractere(B));
B=-1;
C=-2;
Fin Procedure

Fonction F1() Retourner Entier
/****************************/
Debut
Retourner 1;
Fin Fonction

Procedure P2(A : Reel, B : Reel Entree Sortie, C : Reel Sortie)
/*******************************************************/
Debut
Ecran.Ecrire("A="+Caractere(A));
Ecran.Ecrire("B="+Caractere(B));
B=-1.1;
C=-2.2;
Fin Procedure

Procedure P2Nul(A : Nul Ou Reel, B : Nul Ou Reel Entree Sortie, C : Nul Ou Reel Sortie)
/*******************************************************************************/
Debut
Ecran.Ecrire("A="+Caractere(A));
Ecran.Ecrire("B="+Caractere(B));
B=-1.1;
C=-2.2;
Fin Procedure

Fonction F2() Retourner Reel
/**************************/
Debut
Retourner 1.1;
Fin Fonction

Procedure P3(A : Booleen, B : Booleen Entree Sortie, C : Booleen Sortie)
/****************************************************************/
Debut
Ecran.Ecrire("A="+Caractere(A));
Ecran.Ecrire("B="+Caractere(B));
B=Vrai;
C=Vrai;
Fin Procedure

Procedure P3Nul(A : Nul Ou Booleen, B : Nul Ou Booleen Entree Sortie, C : Nul Ou Booleen Sortie)
/****************************************************************************************/
Debut
Ecran.Ecrire("A="+Caractere(A));
Ecran.Ecrire("B="+Caractere(B));
B=Vrai;
C=Vrai;
Fin Procedure

Fonction F3() Retourner Booleen
/*****************************/
Debut
Retourner Vrai;
Fin Fonction

Procedure P4(A : Couleur, B : Couleur Entree Sortie, C : Couleur Sortie)
/****************************************************************/
Debut
Si A==Blanc Alors Sinon Fin Si
Si B==Blanc Alors Sinon Fin Si
B=Rouge;
C=Bleu;
Fin Procedure

Procedure P4Nul(A : Nul Ou Couleur, B : Nul Ou Couleur Entree Sortie, C : Nul Ou Couleur Sortie)
/****************************************************************************************/
Debut
Si A==Blanc Alors Sinon Fin Si
Si B==Blanc Alors Sinon Fin Si
B=Rouge;
C=Bleu;
Fin Procedure

Fonction F4() Retourner Couleur
/*****************************/
Debut
Retourner Rouge;
Fin Fonction

Fonction F5() Retourner Caractere
/*******************************/
Debut
Retourner "coucou";
Fin Fonction

Principal
Variable Debut
A1=2;
A2=3;
P1(1, A1, A2);
Ecran.Ecrire("A1="+Caractere(A1));
Ecran.Ecrire("A2="+Caractere(A2));
A1Nul=2;
A2Nul=3;
P1Nul(Nul, A1Nul, A2Nul);
Ecran.Ecrire("A1Nul="+Caractere(A1Nul));
Ecran.Ecrire("A2Nul="+Caractere(A2Nul));
Ecran.Ecrire("F1="+Caractere(F1()));

B1=2;
B2=3;
P2(1.0, B1, B2);
Ecran.Ecrire("B1="+Caractere(B1));
Ecran.Ecrire("B2="+Caractere(B2));
B1Nul=2.0;
B2Nul=3.0;
P2Nul(Nul, B1Nul, B2Nul);
Ecran.Ecrire("B1Nul="+Caractere(B1Nul));
Ecran.Ecrire("B2Nul="+Caractere(B2Nul));
Ecran.Ecrire("F2="+Caractere(F2()));

P3(Vrai, C1, C2);
Ecran.Ecrire("C1="+Caractere(C1));
Ecran.Ecrire("C2="+Caractere(C2));
C2Nul=Faux;
P3Nul(Nul, C1Nul, C2Nul);
Ecran.Ecrire("C1Nul="+Caractere(C1Nul));
Ecran.Ecrire("C2Nul="+Caractere(C2Nul));
Ecran.Ecrire("F3="+Caractere(F3()));

D1=Blanc;
D2=Rouge;
P4(Rouge, D1, D2);
Si D1==Blanc Alors Sinon Fin Si
Si D2==Blanc Alors Sinon Fin Si
D1Nul=Blanc;
D2Nul=Rouge;
P4Nul(Nul, D1Nul, D2Nul);
Si D1Nul==Blanc Alors Sinon Fin Si
Si D2Nul==Blanc Alors Sinon Fin Si
D2=F4();
Si D2==Blanc Alors Sinon Fin Si
Ecran.Ecrire("F5="+F5());
Fin Principal

Revenir en haut de la page...