Les jokers

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

upscmp Source=joker.upl

Revenir en haut de la page...

joker

Revenir en haut de la page...

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

Procedure P1(A : Caractere Sortie)
/******************************/
Debut
A="coucou";
Ecran.Ecrire("P1");
Fin Procedure

Procedure P2(? : Caractere)
/***********************/
Debut
Ecran.Ecrire("P2");
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
/*******/
Debut
?="coucou";
?=1;
?=3.14;
?=Vrai;
P1(?);
P2("coucou");
?=F1("coucou");
?=F2("hello");
Fin Principal

Revenir en haut de la page...