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

羅蓋仙

分離數值，6位數8位數不必煩惱了，我幫你寫好了
程式例：
; o8 u+ i/ w% e( K% x) l+ G#1=1234.(將被分離的數據)
#1=ABS[FIX[#1]]
/ ~5 X! y0 r" J( t4 U1 ]2 Z' l2 m- \#2=4.(幾位數，沒有大於4位用這招不劃算，一定要帶千元)
#3=501.(儲存到#501以上)
+ U  }/ G3 e; v#10=10.(十的乘冪)
WHILE[#2GT0.]DO1
#[#3]=FIX[[[[#1/#10]-FIX[#1/#10]]*#10]]
+ ?( O# {" V! X. ]9 a. W#3=#3+1.
4 X) W( w+ q1 `( K, `! z#2=#2-1.
  \& m+ d0 ?1 Z  z#10=#10*10.(百-->千-->萬一直放大十倍)
$ M+ G) _$ K- g7 \END1
M0
% s6 n8 z) I" F( T9 y
結果：
, ^8 |7 m& L8 ?/ e* S6 b; r  c/ f6 N#501=4.
; y2 Q2 i9 h( N. z& r#502=3.
#503=2.
#504=1.
- L$ D* j; N% I" v  R/ o#1也可放入1011.類似2進制的運算
" W) F8 A# l7 [1 H7 ^/ [2 Q1 }# ^8 |8 K
0 v" z7 v9 Q5 e6 m0 ?請問你有其他更佳的寫法嗎?請提出來謝謝

jiangssli

樓主試試 大于9位數的分解........這個更有意思

羅蓋仙

回復 2# jiangssli
% X5 z  g, }  K/ |1 [$ b; a* ?" M
4 ?: N: N& ?/ m0 @樓上的帥哥我怎麼沒想到，9位數是會破表的

jiangssli

回復 3# 羅蓋仙


    哈哈.............要是你能讓系統可以判斷大于9位數的才是真的厲害啊...

1426437527

謝謝你分享的宏程式

VYF0412

感謝貼主分享經驗感謝貼主無私分享寶貴知識，但是它具體用在什么地方