|
|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区
您需要 登录 才可以下载或查看,没有账号?立即注册
×
分離數值,6位數8位數不必煩惱了,我幫你寫好了 1 h/ L ^3 ]5 f
程式例:+ M4 m) j! e, }$ }# U0 N0 l# [
#1=1234.(將被分離的數據)
' Q; Z. p! Q {% a8 G1 Q#1=ABS[FIX[#1]]
/ s3 ~6 Q0 k" n! v& p3 R5 _#2=4.(幾位數,沒有大於4位用這招不划算,一定要帶千元)
6 ~& k, U! ]0 S1 }) a. ~6 b#3=501.(儲存到#501以上)( X/ C5 W, I# k% J' Y5 F
#10=10.(十的乘冪)( b% C5 Y& i; r: t; u2 U* C6 m5 h7 p
WHILE[#2GT0.]DO1
3 \' x( X- f" s( w; V#[#3]=FIX[[[[#1/#10]-FIX[#1/#10]]*#10]]
& V3 _* X+ [6 n& E4 A3 u#3=#3+1.! W( H1 I: i5 \+ z6 o
#2=#2-1.
4 `6 G/ P$ N" s+ U* Y#10=#10*10.(百-->千-->萬一直放大十倍) P% o. }! k2 S K
END1- A) Z7 p7 F% B Z
M0
' L8 n8 R4 z4 R3 n1 g7 _
; q/ [& g$ h* l- { \結果:5 q7 q+ n A2 T) Z# u! c
#501=4.
9 O) t9 Z1 T; K# }1 y9 `#502=3.3 @, R M9 k. h( H3 y
#503=2.- @8 z& S* C! c9 ~
#504=1.3 R1 k0 B7 S; r" w9 g0 K
#1也可放入1011.類似2進制的運算: G! M( z' a/ T
$ Q5 U D& }; m- R* {請問你有其他更佳的寫法嗎?請提出來謝謝 |
|