|
|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区
您需要 登录 才可以下载或查看,没有账号?立即注册
×
分離數值,6位數8位數不必煩惱了,我幫你寫好了 ' A: g6 V2 B9 s& F8 m6 |, g9 W% W% v9 d
程式例:
- \( D* F/ s# X& S9 x( `' n#1=1234.(將被分離的數據)1 m2 M! A! Z5 O% e& x5 T; ?2 e
#1=ABS[FIX[#1]]
8 q5 o& I# u- s#2=4.(幾位數,沒有大於4位用這招不划算,一定要帶千元)6 N- N, C1 E6 b1 g' ?
#3=501.(儲存到#501以上)
/ b% M7 I) D8 W' j0 O#10=10.(十的乘冪)
4 O, o, X; m3 I6 u {1 e6 oWHILE[#2GT0.]DO1# c7 Z+ h' `& o1 @
#[#3]=FIX[[[[#1/#10]-FIX[#1/#10]]*#10]]
% e# t" g4 Y% `5 q7 S#3=#3+1.
, P0 j1 _. S3 z9 c#2=#2-1.
/ f/ ] p& }6 Q1 F M4 x* G/ Z( P#10=#10*10.(百-->千-->萬一直放大十倍)& b; V& w# K; ?5 ?6 V3 F
END1( ?# z2 @' l1 E. c; {
M0' K) l5 r4 S+ L5 s* s3 z$ p
# N W1 x- R9 |/ `' ^結果:$ S9 H% {/ Y8 O- M j
#501=4.( t7 V1 e; p, o" j. M, K9 v
#502=3./ L( r0 t0 Q4 ~4 U
#503=2./ g q) F1 k! V0 E& h1 o
#504=1.
) R$ y( F, c1 y- p' d: G& h#1也可放入1011.類似2進制的運算4 D. T8 {, `$ t
4 \8 x4 _1 \" Z) z& r$ w9 M" f0 o
請問你有其他更佳的寫法嗎?請提出來謝謝 |
|