Fonction Optimiser(Invariant, NulAbsorbant) Signe(E : Nul Ou Entier) Retourner Nul Ou Booleen;
Fonction Optimiser(Invariant, NulAbsorbant) Signe(R : Nul Ou Reel) Retourner Nul Ou Booleen;
Fonction Optimiser(Invariant, NulAbsorbant) Signe(D : Nul Ou Decimal) Retourner Nul Ou Booleen;
Si le paramètre est Nul, alors le résultat est Nul.
Principal
/*******/
Variable
/******/
R : Reel;
Debut
...
Si Signe(R) Alors
/* R a pour valeur 1.0. */
...
Fin Si
...
Fin Principal
- | - | - | - | - | - | - | - | - |