|
|
马上注册，结交更多好友，享用更多功能，让你轻松玩转社区
您需要 登录 才可以下载或查看，没有账号？立即注册
×
分離數值，6位數8位數不必煩惱了，我幫你寫好了 - z, v) g* i1 T9 U5 `
程式例：: ?# @% Q9 J7 p& B/ h9 s
#1=1234.(將被分離的數據)$ A' e9 u- c2 M7 o1 D$ @; w, P
#1=ABS[FIX[#1]]
; N. s' v, R, x" ^6 m6 E#2=4.(幾位數，沒有大於4位用這招不划算，一定要帶千元)
' y, E$ y( B: [#3=501.(儲存到#501以上)" R8 {* W8 Z" \: B
#10=10.(十的乘冪)* J0 o! g# y! `$ h
WHILE[#2GT0.]DO1
M& G7 K( }" t#[#3]=FIX[[[[#1/#10]-FIX[#1/#10]]*#10]]# `8 O4 w+ c) Q8 |! G. _
#3=#3+1.
2 E R' k8 `' B; W5 ]0 G#2=#2-1.
6 M, H/ Z3 v- @5 T#10=#10*10.(百-->千-->萬一直放大十倍)" Q5 K- B" ?5 z# m* O3 I: L- b
END1( {+ Z* I% Q4 V6 {2 D
M0: b2 b5 {' x6 H0 d, h9 k/ Y! r6 Y
! D" T' b6 e3 j2 ?9 ? C
結果：- |/ z- s" m+ f; S2 Q
#501=4.
* [! u/ c v+ u9 r: y#502=3.+ f( M4 ~5 M- k' ~5 ~
#503=2.
$ d; {7 o* ]3 n$ T6 |#504=1.* s3 l+ y! e+ `0 x, `& E6 N
#1也可放入1011.類似2進制的運算! ~% {. k4 [! [3 z! | P" y* m
- i" v. K; B5 ^0 o- q1 `, i
請問你有其他更佳的寫法嗎?請提出來謝謝 |
|
/2 
|Archiver|手机版|小黑屋|若枫后处理论坛
( 苏ICP备11015087号-1|
苏公网安备32059002001368号 )
IP卡
狗仔卡
发表于 2013-2-8 22:21:31
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
千斤顶
显身卡
楼主试试 大于9位数的分解........这个更有意思