|
|
馬上注冊,結交更多好友,享用更多功能,讓你輕松玩轉社區
您需要 登錄 才可以下載或查看,沒有賬號?立即注冊
×
分離數值,6位數8位數不必煩惱了,我幫你寫好了
/ ~% d1 _1 |- F& g) S程式例:" }5 L" f" O: c @0 M: S2 A4 w
#1=1234.(將被分離的數據)
d: L8 a: \/ S. y: c! o1 Z! H8 u#1=ABS[FIX[#1]]
! {' F# i% ?# V: K, T#2=4.(幾位數,沒有大於4位用這招不劃算,一定要帶千元)
) v4 u6 `- l, n/ W4 ^#3=501.(儲存到#501以上)
S) k/ S/ H$ j, `0 N" v9 u0 P, D6 \#10=10.(十的乘冪)
v* ?: N, y/ pWHILE[#2GT0.]DO1) ^6 L; s' @! k8 b
#[#3]=FIX[[[[#1/#10]-FIX[#1/#10]]*#10]]
; ]5 r" v3 Q; j. t* X! M1 j+ @5 a#3=#3+1.
+ |7 {9 w) q9 h2 f; m#2=#2-1.
# }3 L5 N) b2 q4 E6 _& S& N#10=#10*10.(百-->千-->萬一直放大十倍)
3 p/ ?; c9 w4 K' `6 Z3 J7 o- BEND1
$ ]3 i8 ]$ {6 H# G! e6 e6 mM01 v: j! i7 q! `# J- F2 m) Y. [" v
! g/ g2 I* v0 L- Z1 T結果:9 Z Y! {8 W' I8 [" w/ F* f, C) |: l
#501=4.% g B. l5 v7 `) _0 ] y
#502=3. F g9 h6 F' `1 ?. R- I% q5 D
#503=2.0 J) P/ F1 @! X. E8 X
#504=1.
7 o# F, C, w! \5 [4 `#1也可放入1011.類似2進制的運算6 r% R! t3 [, _2 c" w; g) z& U
8 }& N" b2 O5 f* X: W* n: Q請問你有其他更佳的寫法嗎?請提出來謝謝 |
|