|
|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区
您需要 登录 才可以下载或查看,没有账号?立即注册
×
分離數值,6位數8位數不必煩惱了,我幫你寫好了 5 T, Q% T0 }0 e7 y
程式例:/ Z; n3 M1 n- n% z' j
#1=1234.(將被分離的數據)
- c& G$ i4 ?7 M5 H/ w2 D9 t! L4 P8 A: ]1 n#1=ABS[FIX[#1]]
) H5 Z: b/ `) Q6 N, O#2=4.(幾位數,沒有大於4位用這招不划算,一定要帶千元)
! x4 N; m0 o( L4 O9 d$ C' s- o0 G#3=501.(儲存到#501以上)
& \4 ~. c8 s% k8 k, K" L2 f#10=10.(十的乘冪)
9 \9 v' r8 G! y& X! R. aWHILE[#2GT0.]DO1
' Z: E% N0 C! a0 X) t#[#3]=FIX[[[[#1/#10]-FIX[#1/#10]]*#10]]$ m; N( {0 F$ M4 J. F
#3=#3+1.5 N; v$ b9 B/ {+ c5 |& W
#2=#2-1.
$ v0 a7 ^! [2 w3 v#10=#10*10.(百-->千-->萬一直放大十倍)$ O3 S7 W7 p# D: X7 x6 R! C2 l& m
END1
2 W* t" _, T* d5 _M08 D7 z, }7 J# R7 v* `
+ v: y+ X; R" C0 z# p, _/ k
結果:
* Q- w) s/ G( k$ M; n#501=4.' D3 g' F' @0 J
#502=3.
0 k G s `' G. u" B3 v! B#503=2.
+ [! Z/ n* z% Z" a: G, s- A#504=1.
# J* N7 j, b9 v) M#1也可放入1011.類似2進制的運算 Z7 d5 c3 i' B5 S
. ]% ^: C, F8 } J( B
請問你有其他更佳的寫法嗎?請提出來謝謝 |
|