|
|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区
您需要 登录 才可以下载或查看,没有账号?立即注册
×
分離數值,6位數8位數不必煩惱了,我幫你寫好了 ; ^- k$ C v0 |, v$ }5 B$ y
程式例:' J, E" @# w+ S) ?, I6 k9 v$ n* r3 w
#1=1234.(將被分離的數據)
4 O( s( l, ~- H# |1 r#1=ABS[FIX[#1]]
* N" X% `# f- N5 D+ n#2=4.(幾位數,沒有大於4位用這招不划算,一定要帶千元)8 J+ H$ R; y- B: s1 x5 P
#3=501.(儲存到#501以上)
0 I9 t. i' V* I7 V8 {. B#10=10.(十的乘冪)
* b" x( h) u* x, OWHILE[#2GT0.]DO1* y, ^! M4 S7 c
#[#3]=FIX[[[[#1/#10]-FIX[#1/#10]]*#10]]7 d) |, h h" P. ?% |
#3=#3+1.
7 }' u* Z+ G# b; o' d#2=#2-1.
' [7 L- X8 k6 |6 B#10=#10*10.(百-->千-->萬一直放大十倍)8 I- C) n3 i# g+ ~$ J
END1
. D( W9 \( d/ `6 pM05 {7 T( R' g5 k. U& L! w" }7 Y
, `/ `/ m" n# s0 f+ }" i7 Z結果:+ |9 d9 a+ ]- p
#501=4.- }9 n) ?6 B- d
#502=3.5 i. X! \! D& q/ J' @
#503=2.
. n) m+ Z v8 L0 C$ G#504=1.
3 B% \8 {1 t# {3 e#1也可放入1011.類似2進制的運算
. D1 V( N* O1 w# F% ?* k
, [; |0 v& N! N9 c8 @5 |請問你有其他更佳的寫法嗎?請提出來謝謝 |
|