|
|
马上注册，结交更多好友，享用更多功能，让你轻松玩转社区
您需要 登录 才可以下载或查看，没有账号？立即注册
×
分離數值，6位數8位數不必煩惱了，我幫你寫好了
4 ~3 ]! p7 D! T2 |1 i1 Q程式例：
& A& b* B* X% r#1=1234.(將被分離的數據)
7 l+ N( D1 K- x! P+ m' P#1=ABS[FIX[#1]]
; V! @+ E4 W+ f. B* L# d) a9 J#2=4.(幾位數，沒有大於4位用這招不划算，一定要帶千元)
. K, F) q" A$ [, F' o% ^#3=501.(儲存到#501以上)0 `2 d S1 x6 E& {. a
#10=10.(十的乘冪). g+ c; \2 v6 B' y) R8 h& ^
WHILE[#2GT0.]DO1+ X1 K$ K% D' j1 [/ G4 ~8 S8 K: ~
#[#3]=FIX[[[[#1/#10]-FIX[#1/#10]]*#10]]! j- W% {0 d: \+ g4 T
#3=#3+1.& r9 k# z. S C; B. @: b+ g
#2=#2-1.
; }8 }6 d& M! x, z* W#10=#10*10.(百-->千-->萬一直放大十倍): `2 F' [" Q3 Z
END1
& ]9 ^* m4 j1 B; x7 _: CM0- c9 q0 ~; V8 ~8 A. I
! t( C, {) t6 }; A結果：
1 D$ D7 J. `" Q#501=4.
, D2 I- M! }) @/ G& S8 r#502=3.
, I. A, q2 g3 m9 v7 s$ @/ A) g3 S#503=2.
& R" y6 }7 l* c, z! Z6 J#504=1.
; o0 p2 w( {+ h: o4 t9 |6 @#1也可放入1011.類似2進制的運算
$ p; D5 t, I& v$ X$ a6 C
* V" |! g8 s& ?4 x+ k. |+ r/ O請問你有其他更佳的寫法嗎?請提出來謝謝 |
|
/2 
|Archiver|手机版|小黑屋|若枫后处理论坛
( 苏ICP备11015087号-1|
苏公网安备32059002001368号 )
IP卡
狗仔卡
发表于 2013-2-8 22:21:31
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
千斤顶
显身卡
楼主试试 大于9位数的分解........这个更有意思