|
|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区
您需要 登录 才可以下载或查看,没有账号?立即注册
×
分離數值,6位數8位數不必煩惱了,我幫你寫好了 + \" }; t! M0 U9 X# {2 M% N. R8 G2 u
程式例:
- _5 Y! ?( r+ q0 |' i#1=1234.(將被分離的數據)
1 M+ z2 Z- p2 f3 f9 H4 x#1=ABS[FIX[#1]]
}7 k6 n8 @7 Y* n/ b#2=4.(幾位數,沒有大於4位用這招不划算,一定要帶千元)+ |# N% Q0 B8 U8 i0 v" I
#3=501.(儲存到#501以上)5 V( O' f' ^* @/ y( g
#10=10.(十的乘冪)4 W& u4 O. j) N) }) a% D) h
WHILE[#2GT0.]DO15 v# @4 b' b' {4 W) B1 \
#[#3]=FIX[[[[#1/#10]-FIX[#1/#10]]*#10]]4 \# x. p7 n: ]. f
#3=#3+1.
+ h( q) B/ f& |! y: o#2=#2-1. N! P( n/ X4 V7 O$ o
#10=#10*10.(百-->千-->萬一直放大十倍)
0 z' d- I. U: H( r$ M& H5 G3 w2 |END1
$ V- W: s8 p7 F( cM0
# o; f/ m5 p- y4 v" \# O2 I) r- V; U, l5 y* Z; h
結果:; e& o/ Y8 w) _0 n7 d: ~- o
#501=4.
% F4 D, C$ n9 x. Y$ V- n#502=3.0 p4 x0 K- O' j3 x
#503=2.
4 k: I9 s' ^4 d( B8 F, ?" W+ h#504=1.
* ~; C7 L, O9 u' X" y; d# x3 i5 s4 w#1也可放入1011.類似2進制的運算% p, `/ S9 [ L- a/ [, e! x% B# @
. Q5 g/ f0 m( q v3 {& q! f. }
請問你有其他更佳的寫法嗎?請提出來謝謝 |
|