|
|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区
您需要 登录 才可以下载或查看,没有账号?立即注册
×
分離數值,6位數8位數不必煩惱了,我幫你寫好了
; _' p& D5 M' n% a/ p# T& M程式例:- y) V6 T: N8 M/ `9 I
#1=1234.(將被分離的數據)6 ^; x6 e; x5 W9 K; @
#1=ABS[FIX[#1]]
; F( T! | `6 e1 m. Y k& n: p+ I#2=4.(幾位數,沒有大於4位用這招不划算,一定要帶千元)( W2 h7 i2 b/ c% @$ N# z% l6 T
#3=501.(儲存到#501以上)
8 M0 L. P. V( A/ A#10=10.(十的乘冪)
, h. Y) x, R6 IWHILE[#2GT0.]DO13 t& d, [, o1 M. b" ?5 l
#[#3]=FIX[[[[#1/#10]-FIX[#1/#10]]*#10]]' c" C% Z% f6 h7 r+ a! ?, u" f
#3=#3+1.* ^7 D9 h2 n* z. [
#2=#2-1.
0 c8 c5 I, u% _+ y4 ]2 |#10=#10*10.(百-->千-->萬一直放大十倍)) G/ g/ V8 J3 \0 t
END1
/ ]9 y; k$ B- r6 dM0
7 \1 {/ x4 u* h8 ?' g7 z+ u
$ Y) u2 g; i1 z) m結果:
; ~. Z" X' Z% J2 K. V( A: p#501=4.5 @0 P( |+ e, X5 }2 \1 l
#502=3.
0 y8 n {2 D: l6 j#503=2.6 u6 l$ S4 M/ Q# N+ `
#504=1.
4 X3 Z( N0 ^1 S1 w7 \#1也可放入1011.類似2進制的運算, G' [) p5 @/ I& O7 y2 l2 [0 z
3 \6 L. ?1 J4 C8 P請問你有其他更佳的寫法嗎?請提出來謝謝 |
|