Fonction Optimiser(Invariant) EnumererVariables(Numero : Entier, TypeVariable : Nul Ou Type=? Sortie, PeutEtreNul : Booleen=? Sortie, Aide : Nul Ou Caractere=? Sortie, NomEnumere : Nul Ou Caractere=? Sortie) Retourner Nul Ou Caractere;
En sortie, la variable Aide recueille un libellé donnant la sémantique de la variable et le résultat est le nom de la variable.
Variable
/******/
A : Booleen;
B : Entier;
C : Reel;
D : Caractere;
Variable
/******/
M : Nul Ou Module;
Numero : Entier;
N : Nul Ou Caractere;
Principal
/*******/
M=Module("M1");
N=M.EnumererVariables(++Numero, ?, ?, ?, ?);
/* Enumère les variables de 'M1'. */
TantQue N!=Nul Faire
Ecran.Ecrire(N);
N=M.EnumererVariables(++Numero, ?, ?, ?, ?);
Fin TantQue
Fin Principal
- | - | - | - | - | - | - | - | - |