|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区
您需要 登录 才可以下载或查看,没有账号?立即注册
×
分離數值,6位數8位數不必煩惱了,我幫你寫好了 6 j$ e) _: A) ?. v7 r2 h% ~
程式例:
; r8 k* Z6 X; S+ Y/ c2 _& v5 U2 d#1=1234.(將被分離的數據)
4 L2 ` W1 }) y2 M2 A( n0 U9 ]#1=ABS[FIX[#1]]& ]% M7 M" V+ E5 ]- p
#2=4.(幾位數,沒有大於4位用這招不划算,一定要帶千元)
) O2 L$ ^& _# ^0 z#3=501.(儲存到#501以上)
; n" I ^0 W6 \' j4 X! o#10=10.(十的乘冪)
5 A- }; V- M; q$ L/ B+ h. a' [' A3 rWHILE[#2GT0.]DO1
2 |( y2 B4 ^1 A% M0 I- F* s#[#3]=FIX[[[[#1/#10]-FIX[#1/#10]]*#10]]
H. a) N- S% L/ e B#3=#3+1.2 e) G9 p6 [7 q, p$ m* B2 V& R8 X. y
#2=#2-1.
) U0 V+ @9 g# P#10=#10*10.(百-->千-->萬一直放大十倍)
$ \' R4 J/ m @6 V, v% XEND1% S6 I- E: z9 q4 l
M0/ o1 q. G0 ~. k9 Q
. k5 f! }/ e! ~& X$ ?: Q* r結果:
2 q- n* y- F7 [# G+ u9 d( L9 Y#501=4.+ F5 u: D1 b/ f( h7 ^
#502=3.
5 j' j* ?! w! o' {$ W9 t#503=2.
* P! l$ G6 [; f8 L4 A- F#504=1.
/ ^2 w0 o9 g+ e& l6 H& R#1也可放入1011.類似2進制的運算5 l7 \0 `. h; F5 ^9 `
% G( X% V# K3 I; C; u: h
請問你有其他更佳的寫法嗎?請提出來謝謝 |
|