|
|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区
您需要 登录 才可以下载或查看,没有账号?立即注册
×
分離數值,6位數8位數不必煩惱了,我幫你寫好了 ' d. h7 @6 \$ R* ^, w) G. V
程式例:& {# _& l* E* z$ u C( O5 K2 b2 g
#1=1234.(將被分離的數據)
* | g+ b$ \3 f$ g; u4 m9 j#1=ABS[FIX[#1]]' ~: e n# T% f2 p
#2=4.(幾位數,沒有大於4位用這招不划算,一定要帶千元)
+ w+ l8 I* T' g& A% v! K#3=501.(儲存到#501以上)* m& T& d4 h: ^; M4 d
#10=10.(十的乘冪)
8 J, {9 ^( Z0 R: Y7 [ tWHILE[#2GT0.]DO1$ n# V4 h# ]% W
#[#3]=FIX[[[[#1/#10]-FIX[#1/#10]]*#10]]9 U; i3 R6 V1 }0 S
#3=#3+1./ C ?* Q n w9 U1 T1 k
#2=#2-1.
+ E* ?$ _8 y: _0 G$ X* E: H, G#10=#10*10.(百-->千-->萬一直放大十倍)
5 O5 `0 j9 o$ ^) GEND13 L' A) ]. x& x0 i# _) H4 {
M0( ?4 F" y: b0 r! }1 g
9 K! J% E0 X* x3 L3 c1 M) m& e結果:
- _1 I. a$ z7 n) }1 Z! H! S1 g#501=4.
, T2 f8 ^# ~) [ g9 h#502=3.
7 }5 e0 z- o* A8 k! V#503=2. g p7 s6 Q. X& G8 c$ w
#504=1. j; a% B# Q+ m- q0 I) b" X* }
#1也可放入1011.類似2進制的運算4 Q+ X2 C6 I- s2 t$ x" n
4 @. p4 C# D1 e& T" W請問你有其他更佳的寫法嗎?請提出來謝謝 |
|