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

羅蓋仙

分離數值，6位數8位數不必煩惱了，我幫你寫好了
6 n* K8 y; b) q$ ^$ }3 R程式例：
#1=1234.(將被分離的數據)
#1=ABS[FIX[#1]]
, Y4 A, g2 e. l6 y# ?#2=4.(幾位數，沒有大於4位用這招不划算，一定要帶千元)
6 }+ ~" H4 [$ E# t8 n+ }5 }#3=501.(儲存到#501以上)
#10=10.(十的乘冪)
WHILE[#2GT0.]DO1
#[#3]=FIX[[[[#1/#10]-FIX[#1/#10]]*#10]]
5 [1 Z- M' r9 h  C6 _. d2 `: B#3=#3+1.
#2=#2-1.
#10=#10*10.(百-->千-->萬一直放大十倍)
4 p' r% V- c9 C, E: n) M5 _END1
, B) f& x; u# }) k; ]* j, sM0

結果：
#501=4.
) S3 |0 b3 X/ C, {1 t8 R2 \#502=3.
# D( o5 {7 l" Z# z& a% I8 X# q#503=2.
#504=1.
! v3 T, B% U2 W$ F6 y#1也可放入1011.類似2進制的運算
" B9 |( K# g% X! J3 u  W
請問你有其他更佳的寫法嗎?請提出來謝謝

jiangssli

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

羅蓋仙

回复 2# jiangssli
! n8 X& a7 S' j4 A% ?" A
$ W2 f2 E! m' S- H' h- }, ^( n# G6 W樓上的帥哥我怎麼沒想到，9位數是會破表的

jiangssli

回复 3# 羅蓋仙
3 d8 Z0 h% U+ v9 O$ L
" o& h: h1 `; s5 L* K0 w
+ L% E% [. L, T6 ]" r' g8 m    哈哈.............要是你能让系统可以判断大于9位数的才是真的厉害啊...

1426437527

谢谢你分享的宏程式

VYF0412

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