ne pas afficher les zeros

[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

[KarLKoX]

Je ne crois pas qu'il y ait une fonction PB native le permettant

[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)