|
|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区
您需要 登录 才可以下载或查看,没有账号?立即注册
×
分離數值,6位數8位數不必煩惱了,我幫你寫好了
, E/ d! |# A& K2 I% n0 W# x, e程式例:
, A' K! `! I4 I5 }( h/ J#1=1234.(將被分離的數據)3 P1 S/ U) f: [: o0 w3 n
#1=ABS[FIX[#1]]" }' x& w) A# Q1 _
#2=4.(幾位數,沒有大於4位用這招不划算,一定要帶千元)2 {2 h, N& q: V0 R! j" g* i: x) N
#3=501.(儲存到#501以上)# l# I; P/ ^" d3 j# @
#10=10.(十的乘冪)
$ p2 I' @' Y, t# U& O( O4 lWHILE[#2GT0.]DO1* x$ T! m4 g9 o& m) d9 T
#[#3]=FIX[[[[#1/#10]-FIX[#1/#10]]*#10]]; ^6 Q! }5 Z& i; M, A1 z9 P+ W, [. g
#3=#3+1.6 \; `3 E/ k A
#2=#2-1.9 u" ]. ?: \# f& h
#10=#10*10.(百-->千-->萬一直放大十倍)
! e1 x6 I" t/ W) qEND17 R% }+ A# I4 i9 I ?- r) r* I( \
M0# i m- d) M: x. [! O* F9 C0 O, C
' u3 Z# g9 P; R
結果:
, A' D* @- _3 R( N, N$ Q#501=4.* L" P6 Z0 c% b3 c3 R
#502=3.. T6 M: Y/ M5 z1 G* n v' B- b
#503=2.
$ X7 C9 x1 F9 c2 L2 P. x5 F#504=1.# \4 t" T# v4 q( k' M- A1 x
#1也可放入1011.類似2進制的運算- z5 ^: B/ M) l
2 R# u0 a! H% a, A3 V5 V& v請問你有其他更佳的寫法嗎?請提出來謝謝 |
|