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

羅蓋仙

分離數值，6位數8位數不必煩惱了，我幫你寫好了
程式例：
+ ~* ^* f5 L2 h' ?" b1 \! n- A) x6 }#1=1234.(將被分離的數據)
2 f" P- M. g- k8 z#1=ABS[FIX[#1]]
#2=4.(幾位數，沒有大於4位用這招不划算，一定要帶千元)
#3=501.(儲存到#501以上)
#10=10.(十的乘冪)
/ T1 p0 U* }8 NWHILE[#2GT0.]DO1
#[#3]=FIX[[[[#1/#10]-FIX[#1/#10]]*#10]]
2 }# J, p3 u  M  |8 L5 ~0 ~6 d#3=#3+1.
. q3 o  H) U; }/ |! f; a/ r( F#2=#2-1.
#10=#10*10.(百-->千-->萬一直放大十倍)
' I9 ]) u* _% E# b8 eEND1
6 m- A0 c0 K9 S3 H1 JM0

結果：
#501=4.
3 E2 U' V% p9 J, q; |#502=3.
' y  a+ L, n" R9 R#503=2.
/ D+ M( R/ R+ ?#504=1.
9 K' l7 B' e* c; H# |2 T0 v#1也可放入1011.類似2進制的運算

請問你有其他更佳的寫法嗎?請提出來謝謝

jiangssli

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

羅蓋仙

回复 2# jiangssli

1 v* X7 K& c/ M* [& f% u% A樓上的帥哥我怎麼沒想到，9位數是會破表的

jiangssli

回复 3# 羅蓋仙
6 l/ x5 z( ~. S( Q
- H0 _+ B+ n3 g& a' h% J9 |" C
7 \2 |. }1 K. s; q3 `    哈哈.............要是你能让系统可以判断大于9位数的才是真的厉害啊...

1426437527

谢谢你分享的宏程式

VYF0412

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