|
|
马上注册，结交更多好友，享用更多功能，让你轻松玩转社区
您需要 登录 才可以下载或查看，没有账号？立即注册
×
分離數值，6位數8位數不必煩惱了，我幫你寫好了
4 X# Z2 S. V* Y3 I程式例：
$ N/ M" J3 @, S1 Z) a6 P# p- e. @#1=1234.(將被分離的數據)0 j- E# \0 e! s! O8 y
#1=ABS[FIX[#1]]
. a @% M; K. F; M#2=4.(幾位數，沒有大於4位用這招不划算，一定要帶千元)& z! k! s9 u; ?+ p j
#3=501.(儲存到#501以上)8 p( P( ^# E9 a2 ` M
#10=10.(十的乘冪)
' c) e9 |% m: yWHILE[#2GT0.]DO1 ~1 e& y2 k0 Q: d
#[#3]=FIX[[[[#1/#10]-FIX[#1/#10]]*#10]]% f$ S2 R- ^- R4 u; u
#3=#3+1., B6 T; L9 W& B8 k5 b4 j
#2=#2-1.! T4 p& \+ D. F2 K! v
#10=#10*10.(百-->千-->萬一直放大十倍)' L4 N, x- Q" g; n
END1
/ Z: V& m/ X3 R. w7 V) BM0, M' P' S" ^; {
C' \! P$ v- ?/ z結果：+ L& V( @. ^5 o7 s, u$ z
#501=4.
5 m4 U( C7 P, T#502=3.
$ p9 d2 J; J4 R X9 e; z& j#503=2.: H) V$ m' f+ u. J3 H9 z' ]
#504=1.; h3 _( U+ x [! f
#1也可放入1011.類似2進制的運算 l5 |% |- h- B# i, S
2 p9 C1 \. ]) n. `請問你有其他更佳的寫法嗎?請提出來謝謝 |
|
/2 
|Archiver|手机版|小黑屋|若枫后处理论坛
( 苏ICP备11015087号-1|
苏公网安备32059002001368号 )
IP卡
狗仔卡
发表于 2013-2-8 22:21:31
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
千斤顶
显身卡
楼主试试 大于9位数的分解........这个更有意思