|
|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区
您需要 登录 才可以下载或查看,没有账号?立即注册
×
分離數值,6位數8位數不必煩惱了,我幫你寫好了
; o5 C' @& G2 d程式例:
' F$ X. D# g* O# {#1=1234.(將被分離的數據)$ H9 a: n7 s6 G+ f( }& U/ _
#1=ABS[FIX[#1]]
3 G# {& Z" U' g; l#2=4.(幾位數,沒有大於4位用這招不划算,一定要帶千元)
T7 F& a0 E9 Y% \& I" P#3=501.(儲存到#501以上)& {: Z% ]& N0 Z$ o6 j& x- ?9 b
#10=10.(十的乘冪), ?2 h4 w7 w% z
WHILE[#2GT0.]DO1' H* r+ l5 i; {
#[#3]=FIX[[[[#1/#10]-FIX[#1/#10]]*#10]]5 c4 `' {. u: ^ o' V
#3=#3+1.
* g- m8 e9 v) ]6 y& W8 a; @5 i#2=#2-1.1 Z3 k$ @* Q0 B9 T7 Q. V. i1 v
#10=#10*10.(百-->千-->萬一直放大十倍)2 ^- C- s/ [) M# B4 H
END1& W i' t# I" c; x( L6 o6 h
M0
( O5 i) F+ v* @; b7 ~
# Y3 b. F' k9 g+ W4 L結果:# R: u |' @6 R- S* f& K* l9 W
#501=4.
. I% j# }4 z. B#502=3.! `6 x8 ~2 [; J* `
#503=2.
/ m2 J, W) R0 u#504=1.& {$ w* U, M9 D& j) \) k
#1也可放入1011.類似2進制的運算0 r5 i4 L7 W1 y7 v
5 d& F, v0 F8 E1 z8 d! M9 i請問你有其他更佳的寫法嗎?請提出來謝謝 |
|