|
|
马上注册，结交更多好友，享用更多功能，让你轻松玩转社区
您需要 登录 才可以下载或查看，没有账号？立即注册
×
分離數值，6位數8位數不必煩惱了，我幫你寫好了 + z$ v) O7 y3 C$ ~, G
程式例：
$ @& b& I5 T( ~: d#1=1234.(將被分離的數據)6 i- ], f+ j' p
#1=ABS[FIX[#1]]) q- R9 x" P1 S5 S6 ]8 B
#2=4.(幾位數，沒有大於4位用這招不划算，一定要帶千元): T% B! h$ U5 \0 I
#3=501.(儲存到#501以上)
/ x* z9 e5 r: @* k#10=10.(十的乘冪)
$ B l; ?& |( ^& \( c+ |WHILE[#2GT0.]DO1: A& e+ [/ q* v, j- D- V1 ~
#[#3]=FIX[[[[#1/#10]-FIX[#1/#10]]*#10]]0 l; \: p/ S/ E2 R" Z
#3=#3+1., F2 R D, M5 r3 Y4 ~5 U' A$ z
#2=#2-1.8 \4 O2 t0 z) c' n6 Y7 E: J* X
#10=#10*10.(百-->千-->萬一直放大十倍), P. a5 x% ]+ ]# S( Q
END1
9 e. W! \! t4 BM0
' [; _, f) D6 d+ H! b( o- O) R1 k* c. G' _" k% U4 B8 ]
結果：2 y- z- t; L$ g6 c! O9 ]
#501=4.
& o) Y- `* ^( B: D) y#502=3.0 ]" }9 ~2 I+ j8 H
#503=2.
7 Y6 h, F% w2 E/ a/ ^8 ~#504=1.1 E1 U0 f; X- k0 v
#1也可放入1011.類似2進制的運算
% J+ a3 R1 G4 ?, p) _8 [! `7 H* X( Q9 G5 S) y
請問你有其他更佳的寫法嗎?請提出來謝謝 |
|
/2 
|Archiver|手机版|小黑屋|若枫后处理论坛
( 苏ICP备11015087号-1|
苏公网安备32059002001368号 )
IP卡
狗仔卡
发表于 2013-2-8 22:21:31
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
千斤顶
显身卡
楼主试试 大于9位数的分解........这个更有意思