|
|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区
您需要 登录 才可以下载或查看,没有账号?立即注册
×
分離數值,6位數8位數不必煩惱了,我幫你寫好了 : K0 [6 c! p6 P5 ?$ H$ p
程式例:
9 x' k$ t1 `- _0 W- K1 L; E) @#1=1234.(將被分離的數據)7 ^; ?2 l; H0 B
#1=ABS[FIX[#1]]
8 y, [$ J9 {! g/ Q& d% ?#2=4.(幾位數,沒有大於4位用這招不划算,一定要帶千元)# T! v Q: B& e/ e7 x
#3=501.(儲存到#501以上)# a) l% o6 L, c
#10=10.(十的乘冪)
4 j o9 T; K7 s( d+ \WHILE[#2GT0.]DO1
2 F: \/ L3 D% e9 S#[#3]=FIX[[[[#1/#10]-FIX[#1/#10]]*#10]]" Q, y9 L [1 E
#3=#3+1.
: L7 R: Q/ G5 ?#2=#2-1.
8 j) b8 T6 P( {3 g; Y" ^+ p#10=#10*10.(百-->千-->萬一直放大十倍)
1 q0 x0 P/ x# G4 N U. E( \END1$ V5 g# G3 O! Q6 ]& C! b
M0
: R) R( ?$ M& ?. U/ p6 n, d
' E( M9 l; o# {! e7 h" K- t* B結果:
% R% t6 b! d' E0 S#501=4.
& F% k' B* n1 p1 _; C#502=3.
* d5 r0 A" Q3 _#503=2.
' p1 y# {: F$ n* P#504=1.
6 h; N+ ^: A( p, f#1也可放入1011.類似2進制的運算* i4 q g( t' U7 `$ {3 R- g" a
2 A- [+ L( m# C# E2 s請問你有其他更佳的寫法嗎?請提出來謝謝 |
|