|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区
您需要 登录 才可以下载或查看,没有账号?立即注册
×
分離數值,6位數8位數不必煩惱了,我幫你寫好了 * J# T W+ J8 G8 Z; R
程式例:9 P. x4 p: y, Y) b" y7 ~& K
#1=1234.(將被分離的數據)
9 s" g+ z' j `) g#1=ABS[FIX[#1]]! ?: u1 j4 l/ K4 X
#2=4.(幾位數,沒有大於4位用這招不划算,一定要帶千元)
/ u- B/ Z3 H; w$ D0 b0 t* @+ g4 D#3=501.(儲存到#501以上)
3 G( b7 P4 Z$ i4 K#10=10.(十的乘冪)
. L4 y* w c# {. F" l. |$ l" WWHILE[#2GT0.]DO1
) T3 _+ j5 [: n6 J#[#3]=FIX[[[[#1/#10]-FIX[#1/#10]]*#10]]
% K. K6 B% b0 N4 H/ C+ T% r#3=#3+1.3 i- Z8 v2 C" `+ m
#2=#2-1.
0 v% m T6 k3 b% r#10=#10*10.(百-->千-->萬一直放大十倍)% D4 R8 p" B5 u: {3 I
END1# u6 O5 j: ~' F) e
M0
; ?7 q0 X3 b/ T$ s# H: c$ m& Q$ u* c% a
$ Z }" S% h9 z) A: n結果:+ x1 c. K/ h0 N) @) v
#501=4.
7 S* {# f n; [" T7 ?' `#502=3.4 P3 z$ h5 H5 Y' ^" p. ~- w8 {
#503=2.6 f$ m" `) v' b, O
#504=1.. \- g* s/ w* [( P! N' T w# C2 N
#1也可放入1011.類似2進制的運算
; ?! K6 K3 c( {9 w" w1 ^: \ x. C$ U2 _- j9 N$ [# R
請問你有其他更佳的寫法嗎?請提出來謝謝 |
|