void DOUBLE_CH(double N, char *CH)
{
/* Prototypes des fonctions appelées */
int LONG_CH(char *CH);
void ENTIER_CH(long N, char *CH);
/* Variables locales */
int I,L;
/* Conversion */
N *= 10000.0;
ENTIER_CH((long)N, CH); /* Conversion forcée est facultative */
L=LONG_CH(CH);
for (I=L; I>=L-4; I--) /* Libérer une position pour le */
*(CH+I+1) = *(CH+I); /* point décimal. */
*(CH+L-4)='.';
}
void ENTIER_CH(long N, char *CH)
{
/* Prototypes des fonctions appelées */
void INVERSER_CH(char *CH);
. . .
}
void INVERSER_CH (char *CH)
{
/* Prototypes des fonctions appelées */
int LONG_CH(char *CH);
void PERMUTER_CH(char *A, char *B);
. . .
}
int LONG_CH(char *CH)
{
. . .
}
void PERMUTER_CH(char *A, char *B)
{
. . .
}
