|
|
马上注册，结交更多好友，享用更多功能，让你轻松玩转社区
您需要 登录 才可以下载或查看，没有账号？立即注册
×
分離數值，6位數8位數不必煩惱了，我幫你寫好了
6 e$ Y8 l3 f. P7 d程式例：
5 q$ A |' u3 ?, H- W# z' g; K/ Y#1=1234.(將被分離的數據)1 }. x% |' p4 _4 x
#1=ABS[FIX[#1]]
( L+ i$ |. g G#2=4.(幾位數，沒有大於4位用這招不划算，一定要帶千元): G0 C3 E# M" c7 G2 u* R
#3=501.(儲存到#501以上)0 H2 z( } c' Z6 {1 ]- X
#10=10.(十的乘冪)3 s1 B: L, v( T4 Z8 O$ q
WHILE[#2GT0.]DO1
7 @4 ]+ k$ S" R2 ]$ _#[#3]=FIX[[[[#1/#10]-FIX[#1/#10]]*#10]]" Y% P/ X* ^- z C N
#3=#3+1.! `5 K' Z# V2 k
#2=#2-1.9 x/ R/ [6 R" j1 Y) R/ l$ P; o- Z
#10=#10*10.(百-->千-->萬一直放大十倍)
$ O1 g, k7 z8 B& i! |( ?END1
" ~( @" w$ D6 D3 q) K% g7 b yM0% K2 Y- V- \5 d7 B6 z7 o" |
/ C( ^5 k+ d, r; i結果：+ Q- K H5 @2 A$ @4 L& {. a
#501=4.
* {4 G3 D9 m$ c7 h, \2 Z6 V#502=3.+ D$ A) w, j5 G/ ?% b- k
#503=2.4 m2 @5 O. L7 j r% R/ @
#504=1.4 G8 {0 \5 a/ {+ {( w6 R1 j
#1也可放入1011.類似2進制的運算0 n2 P( }- n# i" D9 y% `3 J3 \+ O
* I3 {& R2 Z% H1 @
請問你有其他更佳的寫法嗎?請提出來謝謝 |
|
/2 
|Archiver|手机版|小黑屋|若枫后处理论坛
( 苏ICP备11015087号-1|
苏公网安备32059002001368号 )
IP卡
狗仔卡
发表于 2013-2-8 22:21:31
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
千斤顶
显身卡
楼主试试 大于9位数的分解........这个更有意思