|
|
马上注册，结交更多好友，享用更多功能，让你轻松玩转社区
您需要 登录 才可以下载或查看，没有账号？立即注册
×
分離數值，6位數8位數不必煩惱了，我幫你寫好了
' O i7 x; y8 ?' Z2 d, `程式例：
+ ]0 O4 }5 @6 g#1=1234.(將被分離的數據)" f# W2 T* b0 l' N* e7 c- b4 W2 o" v
#1=ABS[FIX[#1]]
5 U5 J( p9 b, ~& A# _+ j( ]#2=4.(幾位數，沒有大於4位用這招不划算，一定要帶千元)
5 H2 D- n( U' Y" Z5 U, N) x#3=501.(儲存到#501以上)
3 O1 Z. R e! a: {#10=10.(十的乘冪)" N! }* X+ h: `2 Q1 W
WHILE[#2GT0.]DO1
* G, X0 o6 N \' M#[#3]=FIX[[[[#1/#10]-FIX[#1/#10]]*#10]]0 B: W# _6 G W a v
#3=#3+1.3 Z! A! Z5 O1 _# x& j+ _
#2=#2-1.
5 |+ e! f+ t7 l' W#10=#10*10.(百-->千-->萬一直放大十倍)7 k6 N6 k7 s( [7 ?. c- p6 z! S
END10 p2 T' b4 y1 S0 | F
M0
* D' U7 E/ E- Z+ G/ e3 P* [1 i+ \/ w
結果：) o- f1 Z2 U! H1 x# b5 {+ ^7 P
#501=4., f6 c8 N# i* q" t2 r. w
#502=3.
$ ? [. p' y# C8 x+ u! F#503=2.
/ U1 O2 d+ G/ M#504=1.3 j; c7 A& v0 G9 I8 L
#1也可放入1011.類似2進制的運算
; V2 N; b8 k/ q9 S( h1 a# n
?8 M% ?5 C$ X7 T% r. x2 R& m請問你有其他更佳的寫法嗎?請提出來謝謝 |
|
1/2 
|Archiver|手机版|小黑屋|若枫后处理论坛
( 苏ICP备11015087号-1|
苏公网安备32059002001368号 )
IP卡
狗仔卡
发表于 2013-2-8 22:21:31
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
千斤顶
显身卡
楼主试试 大于9位数的分解........这个更有意思