|
|
马上注册，结交更多好友，享用更多功能，让你轻松玩转社区
您需要 登录 才可以下载或查看，没有账号？立即注册
×
分離數值，6位數8位數不必煩惱了，我幫你寫好了
D5 {2 k: M) E* E" J程式例：
; ~* ^) \; M2 j. i6 j#1=1234.(將被分離的數據)
# Q4 n( Y4 [) d |# h#1=ABS[FIX[#1]]
5 Q6 f7 \* b; {0 q$ R0 Z- |#2=4.(幾位數，沒有大於4位用這招不划算，一定要帶千元)) c5 |: u) ~* T# H2 [; M; m0 G
#3=501.(儲存到#501以上)
" | p& r* s) F T. c#10=10.(十的乘冪)7 V3 \$ C- _3 p2 J! G8 o
WHILE[#2GT0.]DO1; n% Z {9 O" N0 N& j3 y
#[#3]=FIX[[[[#1/#10]-FIX[#1/#10]]*#10]]3 J1 ~$ |: g7 t9 T: r4 m: _
#3=#3+1.
: ]% l$ o% i% F, J8 z6 \4 h$ y( L3 c! ?#2=#2-1.6 B( y1 a: W7 i5 [$ Z& u+ e, g* X! b
#10=#10*10.(百-->千-->萬一直放大十倍)* U3 B% v+ ~7 }* W, [9 k
END1
. \ X" C5 O- r/ }4 vM05 n$ C9 B0 p0 n* H2 d5 b' n
; w) T) n3 }1 Y2 [/ \結果：
( t6 X) u7 A. x$ Z8 G#501=4.
2 L t& F) k6 ?/ v! @#502=3.6 p: \/ E# _# t# U" O
#503=2.
: f; ?' C, o; N# E/ c, M# Y4 b#504=1.5 ^- l) `1 T; }9 t5 d
#1也可放入1011.類似2進制的運算: P7 Y9 p& e; U, G' M
: p! G* r) E" P0 c7 \請問你有其他更佳的寫法嗎?請提出來謝謝 |
|
/2 
|Archiver|手机版|小黑屋|若枫后处理论坛
( 苏ICP备11015087号-1|
苏公网安备32059002001368号 )
IP卡
狗仔卡
发表于 2013-2-8 22:21:31
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
千斤顶
显身卡
楼主试试 大于9位数的分解........这个更有意思