|
|
馬上注冊,結(jié)交更多好友,享用更多功能,讓你輕松玩轉(zhuǎn)社區(qū)
您需要 登錄 才可以下載或查看,沒有賬號?立即注冊
×
分離數(shù)值,6位數(shù)8位數(shù)不必?zé)懒耍規(guī)湍銓懞昧?img src="static/image/smiley/default/biggrin.gif" smilieid="3" border="0" alt="" />
) d5 F. [ r) L+ {9 h$ r0 B) b* ~程式例:
1 |! l+ a8 \& B0 T9 a+ Z#1=1234.(將被分離的數(shù)據(jù))
0 v0 {0 E+ h% f4 N1 o w4 \#1=ABS[FIX[#1]]: t; @" q6 t% A
#2=4.(幾位數(shù),沒有大於4位用這招不劃算,一定要帶千元)* @. x: j( Y. m; e; G: |; E0 t( ^
#3=501.(儲存到#501以上)
+ k- ^* o( ~% p#10=10.(十的乘冪)# Y( e+ S( i1 t
WHILE[#2GT0.]DO1: N8 ~8 M& y( ^, Y
#[#3]=FIX[[[[#1/#10]-FIX[#1/#10]]*#10]]
( L: v+ W2 U' B8 {1 b* A; I#3=#3+1.
4 i+ S2 U& J6 f4 G#2=#2-1.! [3 U; D* i( m. t8 {3 d
#10=#10*10.(百-->千-->萬一直放大十倍) W. {3 J# X+ X3 H: Y3 ]
END1
4 d3 j# x1 k' {" k- w8 C. I' T2 M& gM0
: A5 t5 V0 N+ @* b5 r1 a! ?9 W$ i& N3 C; q. C3 ^( ]- N
結(jié)果:
5 o2 v/ }6 h' X6 w#501=4.* _1 P$ T* g1 q. E5 Q
#502=3.
' S* J1 j4 j- [#503=2.0 a* G* y4 H, Z9 I8 w
#504=1.
) A1 `$ e& P4 ^, ?2 E#1也可放入1011.類似2進制的運算; D9 o9 ] k! l y$ t
1 v w2 o- ~( E; S! ~# u" f請問你有其他更佳的寫法嗎?請?zhí)岢鰜碇x謝 |
|