|
|
马上注册，结交更多好友，享用更多功能，让你轻松玩转社区
您需要 登录 才可以下载或查看，没有账号？立即注册
×
分離數值，6位數8位數不必煩惱了，我幫你寫好了
- {/ G, r: p' z" G! a. R程式例：* x5 G( Z, Z$ ~* Y4 D5 a6 L c
#1=1234.(將被分離的數據)
6 \# {( V3 i9 N d, R/ P#1=ABS[FIX[#1]]
( ~' u2 F8 c! ~; s3 w8 A* U#2=4.(幾位數，沒有大於4位用這招不划算，一定要帶千元)4 O4 ~0 P6 b, O; N* ~7 x' B
#3=501.(儲存到#501以上) j5 W9 f0 b& ]! O
#10=10.(十的乘冪)0 C6 D# s" s8 T2 u7 h, I0 O
WHILE[#2GT0.]DO1) T: q2 p+ S8 a4 \
#[#3]=FIX[[[[#1/#10]-FIX[#1/#10]]*#10]]3 [; s" _/ l* s9 T
#3=#3+1.
3 K$ n2 z7 a' h) T#2=#2-1.2 C+ ?6 k B- j
#10=#10*10.(百-->千-->萬一直放大十倍)
) R+ e6 c& @6 Q! n0 I% o7 yEND1
6 ^0 U; |6 _2 W9 y$ }M0
1 [+ R1 Y3 D- e- \: w& Q* e c0 o6 E
# |7 K& A* c, a. h4 N: j8 j+ x結果：* z& Y9 Z1 }2 @% w. g0 I
#501=4.
6 I" b' v" T. U2 T/ |% c2 D' ^#502=3.
: P, C0 F. G% N* j+ \6 e* J#503=2. }: S6 B' B8 w5 i! Q8 i
#504=1.2 T5 X0 H p6 `. n9 z, F% P$ j
#1也可放入1011.類似2進制的運算4 y3 a+ c" f5 `) x# y" Z+ g6 u$ x0 I
- K1 x) G, i# H2 a( H9 u4 p' O請問你有其他更佳的寫法嗎?請提出來謝謝 |
|
/2 
|Archiver|手机版|小黑屋|若枫后处理论坛
( 苏ICP备11015087号-1|
苏公网安备32059002001368号 )
IP卡
狗仔卡
发表于 2013-2-8 22:21:31
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
千斤顶
显身卡
楼主试试 大于9位数的分解........这个更有意思