| |
|
Posté le 05-04-2011 à 20:50 | #
|
| Tu utilises log? |
|
| |
|
Posté le 06-04-2011 à 09:27 | #
|
Voila...ça prend 5mn a faire mais ça peut toujours servir.
p'tin, 5Min, c'est extra long! On peut faire la même chose en 1/10 de seconde!
?->A
""->Str 1
For 1->B To 1+Intg log A
StrMid("0123456789",Int (10Frac (A/10^B))+1,1)+Str 1->Str 1
Next
je passe mon temps a créer ce type de prog! |
|
| |
|
Posté le 06-04-2011 à 12:10 | #
|
| Je crois qu'il y a Exp( qui fait ça, je me trompe ? |
|
| |
|
Posté le 06-04-2011 à 14:00 | #
|
| Nanan, CA NE MARCHERA PAS avec Exp.. D'où mon problème avec foutues variables |
|
| |
|
Posté le 06-04-2011 à 14:49 | #
|
Limachi, ton code ne marchera pas si A<=0 
De même, si le nombre est décimal |
|
| |
|
Posté le 06-04-2011 à 20:43 | #
|
Le prog ne met pas 5mn en exécution (heureusement... plutot 0.1 sec  )
Je parlais du temps qu'il prend de faire ce type de prog |
|
| |
|
Posté le 06-04-2011 à 21:25 | #
|
| on a compris mais personne ne peut battre LIMachi dans la manipulation des Str |
|
| |
|
Posté le 06-04-2011 à 21:33 | #
|
| Loin de moi cette idée |
|
| |
|
Posté le 12-04-2011 à 08:36 | #
|
Limachi, ton code ne marchera pas si A<=0
De même, si le nombre est décimal
Ok, je releve le défi.
personne ne peut battre LIMachi dans la manipulation des Str
MERCI!! sa fait chaud au ceur  |
|
| |
|
Posté le 12-04-2011 à 09:03 | #
|
?->A
""->Str 1
If A!=0
Then Abs A
For 1->B To 1+Intg log Ans
StrMid("0123456789",Int (10Frac (A/10^B))+1,1)+Str 1->Str 1
Next
If Frac A!=0
Then Str 1+"."->Str 1
-1->B
While Frac(A*10^(B+1))!=0
B+1->B
Str 1+StrMid("0123456789",10Frac(.1Int (10(Frac Ans*10^B)))+1,1)->Str 1
WhileEnd
IfEnd
A<0=>"-"+Str 1->Str 1
Else "0"-Str 1
IfEnd
Garanti aucun bug par LIMachi, le STRophile! |
|
