分離數值，6位數8位數，如何分解???

羅蓋仙

分離數值，6位數8位數不必煩惱了，我幫你寫好了
程式例：
#1=1234.(將被分離的數據)
+ H; m/ q4 D0 F# u. R* {#1=ABS[FIX[#1]]
#2=4.(幾位數，沒有大於4位用這招不划算，一定要帶千元)
4 b/ |( v+ {& t( V* b& b. ^#3=501.(儲存到#501以上)
$ l5 j6 q# \) ~0 o#10=10.(十的乘冪)
WHILE[#2GT0.]DO1
' K  [) r2 K" W; L6 c#[#3]=FIX[[[[#1/#10]-FIX[#1/#10]]*#10]]
) B& V/ |) M! l9 l" e5 s1 _+ s+ ~#3=#3+1.
' r6 U6 b1 I$ a+ Q- x4 r' \7 T4 o#2=#2-1.
. f8 s2 [- J" ~" H/ J#10=#10*10.(百-->千-->萬一直放大十倍)
; h& |7 G. y% C( E& }9 U3 B: EEND1
' z# h2 ~0 O- o( d! b* c2 ]5 sM0
6 }5 x: F. [; c8 F
, ]5 b1 p) T* I# |# S結果：
4 A& S1 d- `+ S) r2 F% i#501=4.
' w, J! L- Y, d# Z3 J! t#502=3.
#503=2.
/ H, I! Z9 L. k#504=1.
% ^" t6 q  g1 q; {* g5 _, z#1也可放入1011.類似2進制的運算

9 d% w" m& Y- s/ L請問你有其他更佳的寫法嗎?請提出來謝謝

jiangssli

楼主试试 大于9位数的分解........这个更有意思

羅蓋仙

回复 2# jiangssli
) R- u1 u0 S* d2 [- V) J
樓上的帥哥我怎麼沒想到，9位數是會破表的

jiangssli

回复 3# 羅蓋仙

0 ^9 ~$ N+ |1 d5 K
4 J+ M( `. ?- E0 [+ M, X! l3 X    哈哈.............要是你能让系统可以判断大于9位数的才是真的厉害啊...

1426437527

谢谢你分享的宏程式

VYF0412

感谢贴主分享经验感谢贴主无私分享宝贵知识，但是它具体用在什么地方