|
|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区
您需要 登录 才可以下载或查看,没有账号?立即注册
×
分離數值,6位數8位數不必煩惱了,我幫你寫好了 - D2 w$ z6 i/ v1 a7 e
程式例:4 K! w7 g& }$ M1 K0 @
#1=1234.(將被分離的數據)' D1 @ w: t8 K3 Y6 R: K
#1=ABS[FIX[#1]]7 y3 {- n- h( ^; z ]1 h+ w# I$ q6 l
#2=4.(幾位數,沒有大於4位用這招不划算,一定要帶千元)
* ]% c7 P4 ^2 C& q4 C#3=501.(儲存到#501以上)
! x8 j, }1 P* P% h0 @) ^! B6 X#10=10.(十的乘冪)" ~, P# Y w) A7 W
WHILE[#2GT0.]DO1+ D5 p; ?- M! l6 n& l
#[#3]=FIX[[[[#1/#10]-FIX[#1/#10]]*#10]]
- c; l1 o, R* z0 N- R. `5 x#3=#3+1.' ^; t) \5 i0 v3 C" c* T6 o
#2=#2-1.
# o" m. ^- ]7 \9 j* E g#10=#10*10.(百-->千-->萬一直放大十倍)
0 X2 i% P' W Z! jEND1. d9 ?: ~9 }( C$ |: z" Z1 A) X
M0
! L$ Q* f( A ~1 E( h
6 E4 Y* K* k% w8 E6 b" [結果:
6 r8 {+ @' q4 E8 f$ F#501=4.
6 O( L8 [) v8 v1 V1 v; h#502=3.
9 l! G6 c; ~: g#503=2.
$ d) f/ c- s* H9 Y' r. w( D#504=1.
- j& R. `: M: m. v& s#1也可放入1011.類似2進制的運算
) {, x4 K' N1 t; `2 _
) | p4 C# S l: a# l* Q; E請問你有其他更佳的寫法嗎?請提出來謝謝 |
|