|
|
马上注册，结交更多好友，享用更多功能，让你轻松玩转社区
您需要 登录 才可以下载或查看，没有账号？立即注册
×
分離數值，6位數8位數不必煩惱了，我幫你寫好了 4 ?: S1 A; c# Q( j4 R' r
程式例：, r$ [* n$ T9 Q$ w( N
#1=1234.(將被分離的數據)
/ e/ b! R- I K+ C9 b#1=ABS[FIX[#1]]( l3 y4 Y a+ I; I
#2=4.(幾位數，沒有大於4位用這招不划算，一定要帶千元)
4 Y @; J' n, L- E#3=501.(儲存到#501以上)
5 |4 @ w. w; B2 X7 P#10=10.(十的乘冪)+ a+ h( `8 c9 [! s" ^* l
WHILE[#2GT0.]DO1
2 |) ]2 C' M+ x! X% n9 U#[#3]=FIX[[[[#1/#10]-FIX[#1/#10]]*#10]]3 `; a% W0 i, Y9 l! S
#3=#3+1.1 g4 G+ H: ^$ o2 U+ n
#2=#2-1.
$ v0 j+ K7 j- q: i4 H#10=#10*10.(百-->千-->萬一直放大十倍)
$ c4 K2 i0 d, X$ g. t2 [4 SEND1
8 {+ Z: J* w" m# n: C" nM0+ S) t1 Y5 w! n- d
: h9 K, z+ s/ b, f }8 L5 ]' _9 {9 ~結果：+ N$ N# {' G! |3 u
#501=4.0 s9 q0 ?0 h1 M' I$ `
#502=3.$ B( K" Y6 o) ?( J( A; K+ f* E2 ]7 V
#503=2.
1 K7 P& d$ U E, H. T$ H3 ]7 I) Y#504=1." |' ?2 S3 {5 m
#1也可放入1011.類似2進制的運算3 h8 ?; @' \5 J; B) g
( r/ ^3 a' ]# a; @3 U
請問你有其他更佳的寫法嗎?請提出來謝謝 |
|
/2 
|Archiver|手机版|小黑屋|若枫后处理论坛
( 苏ICP备11015087号-1|
苏公网安备32059002001368号 )
IP卡
狗仔卡
发表于 2013-2-8 22:21:31
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
千斤顶
显身卡
楼主试试 大于9位数的分解........这个更有意思