|
|
马上注册，结交更多好友，享用更多功能，让你轻松玩转社区
您需要 登录 才可以下载或查看，没有账号？立即注册
×
分離數值，6位數8位數不必煩惱了，我幫你寫好了
4 ?# ~1 i9 R6 A6 H4 h2 E程式例：! D0 y/ b S0 c7 a, Q
#1=1234.(將被分離的數據)
' X1 H; L* M p, t#1=ABS[FIX[#1]]) S/ I, {; A* `- k% t, D8 v# m! n" {
#2=4.(幾位數，沒有大於4位用這招不划算，一定要帶千元)& C) H9 Q: c5 D5 C5 t
#3=501.(儲存到#501以上)
4 t! D9 A( d: c) @( ^; {( s#10=10.(十的乘冪)5 @# \% F; Y: s J; ~/ t& e
WHILE[#2GT0.]DO1, X" K3 h# @) n7 F! |( R( S
#[#3]=FIX[[[[#1/#10]-FIX[#1/#10]]*#10]]: S- ]2 p1 d; e( E
#3=#3+1.& ?6 T1 o" l, t1 y. {+ p: Y9 c/ L
#2=#2-1.8 q) _6 \/ u/ O* ~" F5 ^
#10=#10*10.(百-->千-->萬一直放大十倍)
' S, e& W9 \% |) Y/ t) H" HEND1
( \) [. b" V8 B, W1 h ~: A" w4 ZM07 r5 ], o. C$ b& K5 ]. f: O% Z B
q: s7 W0 K z' Y結果：
" n1 H: u7 [' V* Z" b5 h#501=4.
2 Z+ a) K3 }% l5 n#502=3.$ S& H+ W' q7 C4 ~; G) M& N6 V0 L) V- ^
#503=2.' F& e9 w- F/ u0 d/ N
#504=1.& c. B$ q$ x/ j$ z5 R
#1也可放入1011.類似2進制的運算! O3 q1 z, B- j
6 g6 b" u$ e: h$ _. t
請問你有其他更佳的寫法嗎?請提出來謝謝 |
|
/2 
|Archiver|手机版|小黑屋|若枫后处理论坛
( 苏ICP备11015087号-1|
苏公网安备32059002001368号 )
IP卡
狗仔卡
发表于 2013-2-8 22:21:31
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
千斤顶
显身卡
楼主试试 大于9位数的分解........这个更有意思