|
|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区
您需要 登录 才可以下载或查看,没有账号?立即注册
×
分離數值,6位數8位數不必煩惱了,我幫你寫好了
- {% } e2 H3 p I: C. ~程式例:$ k) E( a; R- {$ O3 x5 `! p5 C2 H
#1=1234.(將被分離的數據)( S3 g5 U4 L( j8 D/ I" r3 Z
#1=ABS[FIX[#1]]9 |/ P9 r+ s6 a" f
#2=4.(幾位數,沒有大於4位用這招不划算,一定要帶千元)
! Q; S; {0 D/ Q#3=501.(儲存到#501以上)2 ~$ h0 `* v, O
#10=10.(十的乘冪); z$ ?3 }* x! ^* j1 L- m) s, n# B
WHILE[#2GT0.]DO1
4 g4 P- v1 _+ m" z/ c#[#3]=FIX[[[[#1/#10]-FIX[#1/#10]]*#10]]
" ~$ Y! L/ Y/ D" S. f" t" s1 {#3=#3+1.
5 A# d9 w* G" A: Y! r' Q' O& P#2=#2-1.
2 _1 q! Y. F, ~5 ~#10=#10*10.(百-->千-->萬一直放大十倍)6 V. E# {# q# g' ^; v$ W: f! q
END1
8 z5 ]; |5 ~+ c7 c" ?M00 i: P a! ?( {8 \! F; h g
$ N3 S2 B1 x! H9 g1 a _5 B結果:
; l- M0 x& W/ R3 J& X6 e0 O#501=4.
- b! D3 O# }8 n5 Z; |/ k#502=3.
2 _$ d1 _3 X8 b. P( y7 g8 M& I#503=2.
- s9 W' u+ a& H#504=1.
( x" b( S, P' G: Q# T3 p) W#1也可放入1011.類似2進制的運算
. }. q P) p: M s
3 p4 l: ^. B1 v9 ~6 _; N請問你有其他更佳的寫法嗎?請提出來謝謝 |
|