分離數(shù)值，6位數(shù)8位數(shù)，如何分解???

羅蓋仙

分離數(shù)值，6位數(shù)8位數(shù)不必?zé)懒耍規(guī)湍銓懞昧?img src="static/image/smiley/default/biggrin.gif" smilieid="3" border="0" alt="" />
程式例：
( p( S+ Y6 ?' l- g# N#1=1234.(將被分離的數(shù)據(jù))
#1=ABS[FIX[#1]]
#2=4.(幾位數(shù)，沒有大於4位用這招不劃算，一定要帶千元)
#3=501.(儲(chǔ)存到#501以上)
' @: N2 ^, y9 U% \* O' c/ B( _#10=10.(十的乘冪)
WHILE[#2GT0.]DO1
#[#3]=FIX[[[[#1/#10]-FIX[#1/#10]]*#10]]
4 M+ R! k8 {' Q) n% N9 I#3=#3+1.
! T* B# a7 g; ~- f/ ^#2=#2-1.
3 t$ ^* t& W" ]0 `( h4 V% V+ O0 t5 w#10=#10*10.(百-->千-->萬一直放大十倍)
END1
4 n6 h( K2 _& fM0

; j0 Q8 E: v' z4 c7 e結(jié)果：
  }' P2 t$ m6 U- y7 Y3 A. E6 ^3 Y#501=4.
% l5 o! j! d( f( {$ l! @#502=3.
#503=2.
3 E1 {- [- N$ F$ W! G, a#504=1.
$ v; ~9 ?: `+ j( |9 \9 X0 _: M#1也可放入1011.類似2進(jìn)制的運(yùn)算
  P" C# Q; \% i9 `
2 w7 G6 W. O" q2 G5 w請(qǐng)問你有其他更佳的寫法嗎?請(qǐng)?zhí)岢鰜碇x謝

jiangssli

樓主試試 大于9位數(shù)的分解........這個(gè)更有意思

羅蓋仙

回復(fù) 2# jiangssli

樓上的帥哥我怎麼沒想到，9位數(shù)是會(huì)破表的

jiangssli

回復(fù) 3# 羅蓋仙
6 g$ ^1 j3 C7 x- f

    哈哈.............要是你能讓系統(tǒng)可以判斷大于9位數(shù)的才是真的厲害啊...

1426437527

謝謝你分享的宏程式

VYF0412

感謝貼主分享經(jīng)驗(yàn)感謝貼主無私分享寶貴知識(shí)，但是它具體用在什么地方