|
馬上注冊,結交更多好友,享用更多功能,讓你輕松玩轉社區
您需要 登錄 才可以下載或查看,沒有賬號?立即注冊
×
分離數值,6位數8位數不必煩惱了,我幫你寫好了 ( G% }* t% S% w5 }2 y, E
程式例:
! R$ _% i' I6 ^$ T#1=1234.(將被分離的數據)% }. l9 y3 P; D; ~. n* R% j& ?
#1=ABS[FIX[#1]]
& }$ h: U& U0 V) _+ m9 y0 i7 u7 H#2=4.(幾位數,沒有大於4位用這招不劃算,一定要帶千元)
3 O+ b+ Q {5 m1 C J" y. w#3=501.(儲存到#501以上)" Y2 N8 W8 f) P) b4 J _7 d4 {
#10=10.(十的乘冪)
* O6 G0 ? C. D6 X' C( D2 GWHILE[#2GT0.]DO1
8 I. T. f4 H; I6 p X#[#3]=FIX[[[[#1/#10]-FIX[#1/#10]]*#10]]1 E( y- P" W8 p/ e7 u. L
#3=#3+1.
3 j4 e: v* O( c: v1 W+ k3 h% G#2=#2-1.
* ~/ a2 O7 L: O: P* O ^0 [& L#10=#10*10.(百-->千-->萬一直放大十倍)
( y3 F2 J% X+ DEND15 E. P+ p' A. U
M0
& S& F& ^1 |5 R
" S! b. S/ k0 `% e/ _1 E結果:- m, F8 S: q9 s. G: W% K
#501=4.+ H( B* i: c( }
#502=3.
- b, L# H; z( ^4 k#503=2.
: o7 e6 ^3 e% z' u* a7 M#504=1.
, l w5 @, \& H#1也可放入1011.類似2進制的運算
7 Q) Z2 @* o3 q& |8 V" |' U
0 l ?9 `. z6 e- F$ Z請問你有其他更佳的寫法嗎?請提出來謝謝 |
|