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

羅蓋仙

分離數值，6位數8位數不必煩惱了，我幫你寫好了
. m! |* L3 y1 {程式例：
#1=1234.(將被分離的數據)
- v2 I* b2 f# O( h4 F% y- s#1=ABS[FIX[#1]]
8 h: u( v/ A3 g  x2 S+ O: y2 d#2=4.(幾位數，沒有大於4位用這招不划算，一定要帶千元)
7 E! z7 V( V* Q- H; s; s#3=501.(儲存到#501以上)
) g: c( q$ C3 Y% d#10=10.(十的乘冪)
6 ~. `" L4 `8 h' m) }- ^3 f' ^$ @WHILE[#2GT0.]DO1
#[#3]=FIX[[[[#1/#10]-FIX[#1/#10]]*#10]]
#3=#3+1.
! C% P* E- m& _9 [" K#2=#2-1.
#10=#10*10.(百-->千-->萬一直放大十倍)
: H/ x9 T2 \. s4 r" E9 oEND1
M0
$ c. y% t/ ?* N2 }6 W8 H; B
: i' c, s- G/ P9 }* V結果：
' Z' I% b: s% r8 U/ g#501=4.
#502=3.
& U8 J1 |+ K) a* r1 P#503=2.
#504=1.
! m" [: o/ }- f+ I3 O+ Q9 ~#1也可放入1011.類似2進制的運算

. ^9 \1 k$ H! M5 E* y* K& w請問你有其他更佳的寫法嗎?請提出來謝謝

jiangssli

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

羅蓋仙

回复 2# jiangssli
, e: H, @, X' v, @- l4 [; e
7 r0 g. [; j" t' y+ {樓上的帥哥我怎麼沒想到，9位數是會破表的

jiangssli

回复 3# 羅蓋仙


6 S- |9 h  t, O& U) B2 e4 R. J    哈哈.............要是你能让系统可以判断大于9位数的才是真的厉害啊...

1426437527

谢谢你分享的宏程式

VYF0412

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