|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区
您需要 登录 才可以下载或查看,没有账号?立即注册
×
分離數值,6位數8位數不必煩惱了,我幫你寫好了
2 g! o: E* f9 ^# J5 z3 `- f程式例:# X: d0 h0 L) @& P8 x3 C2 Y8 u# _
#1=1234.(將被分離的數據)+ B7 ^1 D0 K9 ?0 s
#1=ABS[FIX[#1]]% f6 y( e; G3 K4 r) l" {
#2=4.(幾位數,沒有大於4位用這招不划算,一定要帶千元)* A: Z0 a. z, ?5 c; R7 W
#3=501.(儲存到#501以上)
) ]$ r9 ?$ i) i0 J% @* @) k% c! l# v#10=10.(十的乘冪)7 F& u( _) _4 N
WHILE[#2GT0.]DO17 C+ w% C- l/ ]
#[#3]=FIX[[[[#1/#10]-FIX[#1/#10]]*#10]]
! z) y1 o- J4 w9 L#3=#3+1.
. T8 P2 U/ \2 y. Z F: s' g#2=#2-1.1 r& q% E' Z) J
#10=#10*10.(百-->千-->萬一直放大十倍)
% j& i" t) F' @; pEND1! `* P$ Q4 I$ }# [% {, ^
M0
# I) n% j+ z/ v9 x0 F/ D1 m; I6 q' g. K/ F
結果:/ i& {3 y. `4 L
#501=4.+ a* `3 }8 `5 E
#502=3.8 a8 j' ]# B4 ^. `
#503=2.
: |2 A" v, _# e) P. S# O6 ]#504=1.; D5 M7 f: Q8 O2 f* U
#1也可放入1011.類似2進制的運算$ U/ z5 S8 C1 l
6 r7 y9 i. C7 D s) `請問你有其他更佳的寫法嗎?請提出來謝謝 |
|