|
|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区
您需要 登录 才可以下载或查看,没有账号?立即注册
×
分離數值,6位數8位數不必煩惱了,我幫你寫好了
& L# ]9 n; G m4 g9 h程式例:% b" b: |8 b: _# o
#1=1234.(將被分離的數據)
3 {% `* y2 a( e#1=ABS[FIX[#1]]6 p* O9 v0 N( J' q [
#2=4.(幾位數,沒有大於4位用這招不划算,一定要帶千元)6 d( m6 L. g+ |5 o
#3=501.(儲存到#501以上)* _4 m+ S2 g6 r- ?2 S1 g7 }
#10=10.(十的乘冪)! P/ n( u1 ?; {4 D; D
WHILE[#2GT0.]DO1
( \/ l# t* Z! m$ T3 H2 W# W#[#3]=FIX[[[[#1/#10]-FIX[#1/#10]]*#10]]
" }& W k: }7 {; |#3=#3+1.; L6 D4 ~0 ~6 B2 ?+ c7 G
#2=#2-1.
$ B, j: P8 S4 d5 n#10=#10*10.(百-->千-->萬一直放大十倍)
& f9 A+ m- C- k+ B6 O6 XEND1( L1 m' n9 e6 h4 _
M0
! d% m+ \0 J& w2 f6 }3 h3 K$ ?4 \/ I w9 N4 \
結果:
) e& L. S1 i( t#501=4., k* H6 n# w( V% S
#502=3.
2 O2 l9 t2 Y F. f#503=2.
& U! A8 i: b ]; Y, c9 x#504=1.2 F! Q) C* _7 |2 U
#1也可放入1011.類似2進制的運算% V, ^5 ?4 E; S/ P" K' R
2 n" F5 v$ t, m. v1 j4 d請問你有其他更佳的寫法嗎?請提出來謝謝 |
|