|
|
馬上注冊,結交更多好友,享用更多功能,讓你輕松玩轉社區
您需要 登錄 才可以下載或查看,沒有賬號?立即注冊
×
分離數值,6位數8位數不必煩惱了,我幫你寫好了
( q( y. B' ^6 u' n0 v3 \1 m) Q5 f* A程式例:) n6 [ n+ u- E/ p5 ]% {
#1=1234.(將被分離的數據)8 U" I# w# n7 G7 E8 u- l
#1=ABS[FIX[#1]]( X C7 P2 r* j$ y& i/ D
#2=4.(幾位數,沒有大於4位用這招不劃算,一定要帶千元)
, f; P: U$ Z) J- Q#3=501.(儲存到#501以上)0 F$ O! `% j: L1 f4 C9 \9 u
#10=10.(十的乘冪)7 t3 l3 d5 V% l2 `
WHILE[#2GT0.]DO1
2 r2 M& V6 p- Q# K' y3 [9 s) Z) Q, p#[#3]=FIX[[[[#1/#10]-FIX[#1/#10]]*#10]] i, G) Q* D) h' C2 K
#3=#3+1.
) u1 ~+ S$ i! G& l1 x#2=#2-1.
0 T9 a1 g) U, k, x; Y2 `- ]/ \#10=#10*10.(百-->千-->萬一直放大十倍)$ v" Y& ~* Z/ P% m _- n: L ]6 y
END1
! G3 L6 C4 z) w4 K) L! |6 DM0
! j( U# W0 P& n7 @1 R5 E) x: E0 s W# I# ]! y' R
結果: T( c* I; x' M" f; @. x* o+ K! N7 l
#501=4.
6 A D1 q! ^ a" v#502=3.
4 q. N7 k6 C- u#503=2.* Y( i& |1 _, G7 J' K0 ~- ~
#504=1.
' q7 o" c9 ?, ^/ m- ^% H#1也可放入1011.類似2進制的運算
: ~) v1 c( y- d7 g) \. u$ T. K
6 Q" m: O7 M* X請問你有其他更佳的寫法嗎?請提出來謝謝 |
|