|
|
马上注册，结交更多好友，享用更多功能，让你轻松玩转社区
您需要 登录 才可以下载或查看，没有账号？立即注册
×
分離數值，6位數8位數不必煩惱了，我幫你寫好了
1 T0 r/ m G' _% ~* o. Q3 T程式例：
" ^( L4 W9 ?2 l. \( M# S6 p#1=1234.(將被分離的數據)
# D4 ~# X- Z, l( _2 Q2 G#1=ABS[FIX[#1]]
" g" K# h# }2 U#2=4.(幾位數，沒有大於4位用這招不划算，一定要帶千元)
6 J! E1 P& M" s#3=501.(儲存到#501以上)3 c6 C# G' f( b2 u; m* K
#10=10.(十的乘冪)
6 o7 S/ X8 H8 h) U9 RWHILE[#2GT0.]DO1
2 ]5 ^; d: n* _1 z#[#3]=FIX[[[[#1/#10]-FIX[#1/#10]]*#10]]7 Z, _/ ]% E/ a, l/ j
#3=#3+1.
& a$ _9 t( P2 W. b/ W) |) C#2=#2-1.$ [& v$ W9 L" @" k' y
#10=#10*10.(百-->千-->萬一直放大十倍)) q) T2 l& a& u" g1 T
END16 ^; o' I A+ J% ~. G3 @
M0
, F% C8 M# b' ~* K9 U3 @
~1 }( L# @" ^結果：5 L/ t) c. b# b+ S# O9 r- T% F
#501=4.
# i5 Y" Q" z; L6 {, i* z#502=3.8 d& c! e& z4 K1 k$ w0 X
#503=2.( W! o# w0 }3 L- ]2 m- c3 I
#504=1.
4 K. A) L, o% y/ b, J% L$ J#1也可放入1011.類似2進制的運算
$ T6 A! T. A1 `# a6 P1 w; R8 L$ c, `3 t/ ^$ i/ ?
請問你有其他更佳的寫法嗎?請提出來謝謝 |
|
/2 
|Archiver|手机版|小黑屋|若枫后处理论坛
( 苏ICP备11015087号-1|
苏公网安备32059002001368号 )
IP卡
狗仔卡
发表于 2013-2-8 22:21:31
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
千斤顶
显身卡
楼主试试 大于9位数的分解........这个更有意思