|
|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区
您需要 登录 才可以下载或查看,没有账号?立即注册
×
分離數值,6位數8位數不必煩惱了,我幫你寫好了 ( w% M, V1 C( L) r9 g) z
程式例:' `! t6 s8 u; d: U; x
#1=1234.(將被分離的數據)
2 D- x; n" {" o( W$ C#1=ABS[FIX[#1]]
* h" W1 R1 ]/ }. c; |0 ?5 M/ U2 e#2=4.(幾位數,沒有大於4位用這招不划算,一定要帶千元)
# M1 Z* u2 F+ G. b5 Z. m#3=501.(儲存到#501以上)
2 W- _# R8 S$ l& z#10=10.(十的乘冪)$ G/ G9 t7 x6 h$ o3 C# ~7 A
WHILE[#2GT0.]DO1# a& d7 K$ i0 ~7 z& |: j" f
#[#3]=FIX[[[[#1/#10]-FIX[#1/#10]]*#10]]
' i( R/ _7 n" g0 V6 k#3=#3+1.
# d9 ~5 W* f' @) `) Q: a9 N#2=#2-1.
( h* @( K4 h& L# d4 J: [4 D5 a#10=#10*10.(百-->千-->萬一直放大十倍)
" J# w" g3 m7 J, X$ nEND1' \) g N& D( g+ s
M0
* @4 g8 ^; Z( z; y% _
7 }& U( g" `" ]+ Z9 t. L8 w0 F$ Z結果:
4 F& I$ K5 N" X( _) Q; B#501=4.5 Z5 ?( g0 J* N+ w" w5 x
#502=3.
3 ?9 _7 z, S1 a4 X8 x( r% Y( j#503=2.# { @( h' F$ ^0 \" I4 h6 \/ O+ u- I
#504=1.& w) e5 m+ o1 f& ~
#1也可放入1011.類似2進制的運算 [' \6 }! Y3 e8 ]% b6 ?
7 | b! X, l/ {1 x. A& P! h" ]
請問你有其他更佳的寫法嗎?請提出來謝謝 |
|