|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区
您需要 登录 才可以下载或查看,没有账号?立即注册
×
分離數值,6位數8位數不必煩惱了,我幫你寫好了 / z: O, y, q; E, M9 W# V
程式例: X8 v& `) {6 _9 u9 t& {
#1=1234.(將被分離的數據)* r( _, E# Z3 F! }1 b/ @4 l
#1=ABS[FIX[#1]]
/ ^# u. i9 A. B#2=4.(幾位數,沒有大於4位用這招不划算,一定要帶千元)
1 h; M! K3 |( m U#3=501.(儲存到#501以上)
2 f# g0 f" G( l7 o+ P; b, B3 O( B#10=10.(十的乘冪)( P6 `! R4 g5 s* J9 t
WHILE[#2GT0.]DO18 d5 b, n* j4 J0 D, y
#[#3]=FIX[[[[#1/#10]-FIX[#1/#10]]*#10]]
* S9 c* X$ j0 `! a#3=#3+1.
0 z7 x/ z, f$ K( G( v# b#2=#2-1.
( i$ Q: j) N h1 P#10=#10*10.(百-->千-->萬一直放大十倍)
$ e' Q. } d6 K: \1 C7 Q! aEND1& M" r. W3 H0 w. [5 U
M0
& `& r# |# S: a! {6 G
9 l1 f# T c2 l. v) `/ H結果:9 |3 s0 i5 z, I9 [* U) N; R
#501=4.& Q; P2 @/ j0 ^* a8 Z4 F
#502=3.) ^2 N. R7 u2 m8 L F
#503=2.. o+ X' Q0 V- Q* v( }
#504=1.
4 X N: z$ S0 C W, A#1也可放入1011.類似2進制的運算
6 x8 n. q2 ]$ s4 d( n* ^; h/ S$ h
- j4 V: R5 h9 ?, l! H4 m" c1 y9 f請問你有其他更佳的寫法嗎?請提出來謝謝 |
|