|
|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区
您需要 登录 才可以下载或查看,没有账号?立即注册
×
分離數值,6位數8位數不必煩惱了,我幫你寫好了
{) \2 }$ x4 X" L2 V6 M" Y( x程式例:
4 g- i7 F5 y0 K% I C A#1=1234.(將被分離的數據)
# B8 [5 g. D# D: M5 Z#1=ABS[FIX[#1]]* v6 c3 z3 o, g2 i' e7 Q6 w
#2=4.(幾位數,沒有大於4位用這招不划算,一定要帶千元)
, w% V# |6 G( J) W2 L, i#3=501.(儲存到#501以上), _0 O9 p+ M& O* a( d& a* v* R& K) t
#10=10.(十的乘冪)
& e8 W0 e4 t9 S- Y9 U4 x7 b `- yWHILE[#2GT0.]DO1
: l' y7 ^& n/ U#[#3]=FIX[[[[#1/#10]-FIX[#1/#10]]*#10]]5 e0 {$ g% Y3 _; u! n: r
#3=#3+1.) h m+ Y( J' i' ?+ J$ a5 T
#2=#2-1./ B! l6 L. k! `" o- W
#10=#10*10.(百-->千-->萬一直放大十倍)
0 {5 x- b. J. n' w& NEND1; R; ^' a; O+ K2 W6 Y- V3 z* f3 s
M03 I' m' x$ v6 Y. }
+ m4 o& i: D' {& ?6 B結果:' Q: M% |# ^# L
#501=4.
! K4 D: d" G( \$ p- n, C#502=3.* H% [3 T, c4 g' \
#503=2.
. p: z$ [7 t5 |% f j$ v#504=1.$ m; U9 E. L2 C ~; O# p
#1也可放入1011.類似2進制的運算+ y& {5 k: P' E+ L! x
* t7 u7 {" C; z- W$ l& j請問你有其他更佳的寫法嗎?請提出來謝謝 |
|