Page 1 sur 1
ne pas afficher les zeros
Publié : jeu. 25/déc./2008 1:39
par Dioud
bonjour
lorsque je fais le calcul ci dessous
Code : Tout sélectionner
nb.f = 9
test.f = nb.f / 10000000000
racourci.f = nb.f / 1e10
Debug test.f
Debug racourci.f
je trouve dans le debug le résultat 0.0000000009 pour les deux calculs
mais moi je souhaiterais avoir un résultat écrit comme ceci 9e-10
comment faire ?
merci
Publié : jeu. 25/déc./2008 11:05
par KarLKoX
Je ne crois pas qu'il y ait une fonction PB native le permettant
Publié : jeu. 25/déc./2008 12:25
par Stefou
Salut
Je ne sais pas non plus si il y a quelque chose en natif ????
Voici une petit fonction qui peut t'aider :
Code : Tout sélectionner
Procedure.s Affiche_exposant(nb.f)
nb$=StrF(nb)
e=0
If Left(nb$,2)="0."
If Left(nb$,3)="0.0"
Repeat
nb=nb*10
nb$=StrF(nb)
e+1
Until Mid(nb$,3,1)<>"0"
EndIf
nb=nb*10
e+1
EndIf
ProcedureReturn StrF(nb)+"e-"+Str(e)
EndProcedure
Debug Affiche_exposant(32.5421)
Debug Affiche_exposant(0.3256)
Debug Affiche_exposant(0.0376786)
Debug Affiche_exposant(0.0068786)
Debug Affiche_exposant(0.0007975374)
Debug Affiche_exposant(0.0003)
Debug Affiche_exposant(0.0003)