|
|
馬上注冊,結交更多好友,享用更多功能,讓你輕松玩轉社區
您需要 登錄 才可以下載或查看,沒有賬號?立即注冊
×
分離數值,6位數8位數不必煩惱了,我幫你寫好了 3 W( G! B; K' p# \2 B& Z& c3 P5 s
程式例:
/ H O9 X+ M. }0 F7 {8 J: A$ g#1=1234.(將被分離的數據)
" V' A/ \* c: h/ o0 N- W#1=ABS[FIX[#1]]
; t$ {9 I9 N" L' }1 R) K& ]. n#2=4.(幾位數,沒有大於4位用這招不劃算,一定要帶千元)
3 D3 d/ O0 q8 n1 ]#3=501.(儲存到#501以上)
; R9 D- j( z& v6 k; O* X#10=10.(十的乘冪)
0 s' D5 P T5 a3 ~' F( BWHILE[#2GT0.]DO16 I* n/ ]% e8 M6 {/ p& G* r( \& L
#[#3]=FIX[[[[#1/#10]-FIX[#1/#10]]*#10]]& t% H* R/ @: y6 B* O: ^+ K
#3=#3+1.1 ]; q$ y4 p3 T& S f% n
#2=#2-1.5 p! S! J; W6 l" u- s9 h
#10=#10*10.(百-->千-->萬一直放大十倍)# I" ]% D4 q/ V& T# z
END1
V" p: s; _& k! _3 L& ZM0
7 g* C0 p' u( Q) ~6 Y! C0 W$ M4 N( q7 s2 Q' Y, Y
結果:. |- p# c5 m, l$ m8 z9 i
#501=4.$ E: i1 {+ g' G3 ?. N
#502=3.1 O: w* l. y5 r$ S) }- D! \' J
#503=2.
' X: ^$ B8 F& M3 I7 ]+ S! R* W#504=1.2 C2 w, R) G% G1 W( X+ T" F
#1也可放入1011.類似2進制的運算. G1 B& X9 [ V/ h
; M* _" |( ]* e( |7 I5 @請問你有其他更佳的寫法嗎?請提出來謝謝 |
|