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

羅蓋仙

分離數值，6位數8位數不必煩惱了，我幫你寫好了
程式例：
% n, }1 t  e" g1 Z4 d9 T, e. a0 N#1=1234.(將被分離的數據)
#1=ABS[FIX[#1]]
#2=4.(幾位數，沒有大於4位用這招不划算，一定要帶千元)
9 ?- L$ K( k4 K  H" e: m* \#3=501.(儲存到#501以上)
#10=10.(十的乘冪)
WHILE[#2GT0.]DO1
#[#3]=FIX[[[[#1/#10]-FIX[#1/#10]]*#10]]
#3=#3+1.
#2=#2-1.
* K0 i. B1 K* V# A* P#10=#10*10.(百-->千-->萬一直放大十倍)
& a# s! v0 C. y3 e/ B7 W' w. LEND1
( `. x7 }! z" V4 m" F& A# [* S1 z7 VM0

- ~9 W  o) B4 ]3 W9 I結果：
3 o0 M7 E( p% t+ G#501=4.
3 e' R& `. [* ~+ z5 z#502=3.
#503=2.
#504=1.
#1也可放入1011.類似2進制的運算

0 u+ C# |3 F( g" g# y) ?請問你有其他更佳的寫法嗎?請提出來謝謝

jiangssli

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

羅蓋仙

回复 2# jiangssli
' M0 F; X% I" S+ c/ [5 n$ K) f( I
3 y+ W) U* i0 Y0 ]8 L樓上的帥哥我怎麼沒想到，9位數是會破表的

jiangssli

回复 3# 羅蓋仙
) j9 a9 `' a6 i0 A8 W

    哈哈.............要是你能让系统可以判断大于9位数的才是真的厉害啊...

1426437527

谢谢你分享的宏程式

VYF0412

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