|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区
您需要 登录 才可以下载或查看,没有账号?立即注册
×
分離數值,6位數8位數不必煩惱了,我幫你寫好了
+ c) \0 k; u! U }+ p) J) [+ @程式例:* p2 S, }) p- V0 `9 J P3 V
#1=1234.(將被分離的數據); ?* g% H5 X, O/ X
#1=ABS[FIX[#1]]% Z: I* \6 U5 ~+ I, l# B) X/ j
#2=4.(幾位數,沒有大於4位用這招不划算,一定要帶千元): G/ b/ F$ a. R$ Y2 j
#3=501.(儲存到#501以上)
# P/ S% y( m$ c8 O6 |6 G2 d#10=10.(十的乘冪)
1 }" ?2 G2 w0 {$ v8 A- Z1 AWHILE[#2GT0.]DO1
' X( i' r) c6 n# G( n) X# x d6 a5 L9 H#[#3]=FIX[[[[#1/#10]-FIX[#1/#10]]*#10]]. p [7 y- y. f6 T, v
#3=#3+1.
. ^0 R( l' ?6 z#2=#2-1.4 V3 o2 e; o P$ T
#10=#10*10.(百-->千-->萬一直放大十倍). i J5 a: N. ?, E8 g
END1
$ f, D0 m" i- x6 o2 T1 GM0
% `9 K& v2 T/ y* Y) O# h1 F6 y9 j/ e1 X& U1 |2 r
結果:6 n# A0 |- g) d% u. F
#501=4.
- V6 m2 ?+ ~' w; j$ a#502=3./ {. D4 Q1 M% i9 e8 Q# |
#503=2.
: s' {: a: ~1 P, q. s# J#504=1.
4 D0 b- A) C9 s0 N% `" }% H#1也可放入1011.類似2進制的運算& O. F9 n1 }! Q' S8 C6 G) |$ y
# g* q6 C6 u2 D' D" y3 E" T請問你有其他更佳的寫法嗎?請提出來謝謝 |
|