Les jokers

Ce programme présente l'usage du caractères joker ?.

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

Mode compilé

Commande de compilation


upscmp Source=joker.upl

Commande d'exécution


joker

Mode interprété


upssng Source=joker.upl

Fichier source


Source Composant "Exemple d'emploi des jokers" Version 4.0.0;



Procedure P1(A : Caractere Sortie)

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

Debut

A="coucou";

Ecran.Ecrire("P1");

Fin Procedure



Procedure P2(? : Caractere)

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

Debut

Ecran.Ecrire("P2");

Fin Procedure



Procedure P3(A:Entier=? Sortie, B:Reel=? Sortie, C:Nul Ou Caractere=? Sortie)

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

Debut

Ecran.Ecrire("P3");

A=10;

B=10.10;

C="coucou";

Fin Procedure



Fonction F1(A : Caractere) Retourner Entier

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

Debut

Ecran.Ecrire("F1 " + A);

Fin Fonction



Fonction F2(A : Caractere) Retourner Caractere

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

Debut

Ecran.Ecrire("F2 " + A);

Retourner "coucou";

Fin Fonction



Principal

/*******/

Variable

/******/

   A : Entier;

   B : Reel;

   C : Nul Ou Caractere;



Debut

?="coucou";

?=1;

?=3.14;

?=Vrai;

P1(?);

P2("coucou");

P3(A,B,C);

P3(A,B);

P3(A);

P3();

Ecran.Ecrire("A="+Caractere(A));

Ecran.Ecrire("B="+Caractere(B));

Ecran.Ecrire("C="+C);

?=F1("coucou");

?=F2("hello");

Fin Principal

Résultat de l'exécution

P1 P2 P3 P3 P3 P3 A=10 B=10.1000 C=coucou F1 coucou F2 hello