|
|
马上注册，结交更多好友，享用更多功能，让你轻松玩转社区
您需要 登录 才可以下载或查看，没有账号？立即注册
×
分離數值，6位數8位數不必煩惱了，我幫你寫好了 $ u5 n' d% f( {, ^. @
程式例：- {' R" W" Y+ l) Y) C, X) U
#1=1234.(將被分離的數據)
5 M, Y, |0 B) k' b1 c* o#1=ABS[FIX[#1]]% U' h7 g1 E4 g; G
#2=4.(幾位數，沒有大於4位用這招不划算，一定要帶千元)
3 X1 {* |/ u* O4 L. N+ T% P#3=501.(儲存到#501以上)
( K6 Q+ u6 _& L4 k#10=10.(十的乘冪)3 T7 W* q0 P$ }% _: C" X
WHILE[#2GT0.]DO15 {8 _4 i' V& c! |" N
#[#3]=FIX[[[[#1/#10]-FIX[#1/#10]]*#10]]. T0 Y; D W5 i
#3=#3+1.; B- S5 S3 ?9 R3 K8 x
#2=#2-1., p. A, Q# [+ a) E0 d* ^* P
#10=#10*10.(百-->千-->萬一直放大十倍)
3 x. f8 V3 g! `& r5 s: c1 q* q, O* rEND1/ d: l6 O. S" H
M07 v3 U2 l! y% D; ]; J
4 r0 d4 p3 G6 Z' C( e: y結果：
1 g% a7 }8 t7 B f4 @#501=4.. G7 p ]/ E; p9 w! n4 u3 ]6 k3 q1 B
#502=3.5 @7 o5 S. J! J. D3 W4 {
#503=2.5 U' ^* j) w# U8 Z0 u8 ^
#504=1.4 U- `$ d' E( y9 h W
#1也可放入1011.類似2進制的運算8 s- P6 U+ U0 @- S1 a
+ ]! J% Y/ }4 s5 V6 c" u請問你有其他更佳的寫法嗎?請提出來謝謝 |
|
/2 
|Archiver|手机版|小黑屋|若枫后处理论坛
( 苏ICP备11015087号-1|
苏公网安备32059002001368号 )
IP卡
狗仔卡
发表于 2013-2-8 22:21:31
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
千斤顶
显身卡
楼主试试 大于9位数的分解........这个更有意思