|
|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区
您需要 登录 才可以下载或查看,没有账号?立即注册
×
分離數值,6位數8位數不必煩惱了,我幫你寫好了
# i, D# h; e: e程式例:
& Q& h/ t! n4 s# i9 c' l6 K#1=1234.(將被分離的數據)
( R) Y6 q- u% V& E" W2 \#1=ABS[FIX[#1]]/ c6 k, o9 E6 H0 t z7 K
#2=4.(幾位數,沒有大於4位用這招不划算,一定要帶千元)
; d+ n% g+ _8 R) y#3=501.(儲存到#501以上)
- Q$ g2 i9 r; m* v) N( I#10=10.(十的乘冪)
7 c- s+ E% _' c* C4 FWHILE[#2GT0.]DO18 t4 }% a# t/ o- Y5 H4 n. G, N" A e
#[#3]=FIX[[[[#1/#10]-FIX[#1/#10]]*#10]]. V) t) o! v, r9 d9 T( b! ]
#3=#3+1.* A }0 t2 F6 l! k: J+ G
#2=#2-1. x1 I+ q+ L$ c4 _+ k
#10=#10*10.(百-->千-->萬一直放大十倍)
5 o3 m) b5 }& J6 f2 b3 _END1
$ k( B; q7 a! O. j! Q- FM0/ ^/ V8 w' v# b7 J* l. I
/ c( @$ E1 j7 Q: x. i0 F; o' \9 @結果:; r( O& I3 k1 T% Y! o M
#501=4.
. _' J2 ^# I, ~7 a#502=3. y/ A' u5 W6 Q; r4 w1 _
#503=2.: o# ?( c. O5 l' P- L& H
#504=1.& o+ Z& H3 C o0 i
#1也可放入1011.類似2進制的運算
b( W" M( S' I" i5 Q! u) ?0 X+ o9 v) a$ w" C, N. S
請問你有其他更佳的寫法嗎?請提出來謝謝 |
|