Advertisement
Aiixu

parse

Mar 13th, 2019
80
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.88 KB | None | 0 0
  1. Pour le faire marcher, tu as besoin de N, auquel tu met la valeur que tu veux, et pour la transformer en chaîne de caractère, tu fais Prog "PARSE".
  2. Entre plusieurs conversions, pense a stocker Str 1 dans un autre Str 2-9.
  3.  
  4. --------------------------------
  5. Tu appelles ce programme "PARSE" :
  6. A est le nombre en entrée
  7. N est le nombre de décimales a afficher
  8.  
  9. ""→Str 1
  10. If A<0
  11. "-"→Str 1
  12. Abs N→N
  13. For 1+Int log N→I To 1 Step -1
  14. Str 1+StrMid("0123456789",1+Int (10Frac (A/10^I)),1)→Str 1
  15. Next
  16.  
  17. Frac A=0⇒Return
  18. Int ((10^N)Frac A)->B
  19. Str 1+"."->Str 1
  20. For 1+Int log B→I To 1 Step -1
  21. Str 1+StrMid("0123456789",1+Int (10Frac (B/10^I)),1)→Str 1
  22. Next
  23.  
  24. Return
  25. --------------------------------
  26. Exemple avec stockage:
  27. Tu appelles ce programme "BITE" :
  28.  
  29. 2->N
  30.  
  31. 1.1525->A
  32. Prog "PARSE"
  33. Str 1->Str2
  34.  
  35. 3*9+3->A
  36. Prog "PARSE"
  37.  
  38. Locate 1,1,Str 2+"x²"+Str 1+"x"
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement