Fonction Optimiser(NulAbsorbant) LireVariable(NomVariable : Nul Ou Caractere) Retourner Nul Ou Objet;
Variable
/******/
A : Booleen;
B : Entier;
C : Reel;
D : Caractere;
Variable
/******/
M : Nul Ou Module;
Principal
/*******/
M=Module("M1");
Ecran.Ecrire("A="+Caractere(Booleen(M.LireVariable("A")));
Ecran.Ecrire("B="+Caractere(Entier(M.LireVariable("B")));
Ecran.Ecrire("C="+Caractere(Reel(M.LireVariable("C")));
Ecran.Ecrire("D="+M.LireVariable("D"));
Fin Principal
- | - | - | - | - | - | - | - | - |