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

羅蓋仙

分離數值，6位數8位數不必煩惱了，我幫你寫好了
6 E  g8 S0 ?. `+ s: F2 D8 I* }程式例：
#1=1234.(將被分離的數據)
#1=ABS[FIX[#1]]
$ B, o5 o: t5 T7 w' h  A#2=4.(幾位數，沒有大於4位用這招不划算，一定要帶千元)
#3=501.(儲存到#501以上)
; A- ~, I+ D' V! m#10=10.(十的乘冪)
WHILE[#2GT0.]DO1
2 l5 E' I# w/ n$ ^2 p+ R5 Q2 A#[#3]=FIX[[[[#1/#10]-FIX[#1/#10]]*#10]]
+ L& O9 f1 _/ Q; I#3=#3+1.
( d7 B# O4 z! U) D3 L) u5 t+ ]: C7 Z#2=#2-1.
#10=#10*10.(百-->千-->萬一直放大十倍)
% K5 D3 t! k+ W1 ]/ J& ~8 _END1
6 L& o0 ~+ w3 r5 @/ N3 T' S; FM0
/ I* p" O! D+ v4 K: w  i( {
: ]1 E, d$ j. C4 t7 N5 [6 w結果：
#501=4.
#502=3.
9 a3 H" L( H5 k/ T) M! p) [#503=2.
* W, ~! _- j7 \, K+ _% x#504=1.
#1也可放入1011.類似2進制的運算
5 D6 b$ u; |- ]! f4 d, t
& y7 l% [( B6 u請問你有其他更佳的寫法嗎?請提出來謝謝

jiangssli

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

羅蓋仙

回复 2# jiangssli
  b# P; E1 {2 z0 h
" X( A  O7 @5 t0 A  C+ F樓上的帥哥我怎麼沒想到，9位數是會破表的

jiangssli

回复 3# 羅蓋仙


# {" u: p, I: }4 {6 l5 e6 |# L    哈哈.............要是你能让系统可以判断大于9位数的才是真的厉害啊...

1426437527

谢谢你分享的宏程式

VYF0412

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