|
馬上注冊,結交更多好友,享用更多功能,讓你輕松玩轉社區
您需要 登錄 才可以下載或查看,沒有賬號?立即注冊
×
分離數值,6位數8位數不必煩惱了,我幫你寫好了 " r) @# C+ i0 }5 n; f( ]/ I; [
程式例:
* Q' s2 W9 S! s& a#1=1234.(將被分離的數據)' S; i, H# z& P( \$ |
#1=ABS[FIX[#1]]
a: F4 U8 j& `& b#2=4.(幾位數,沒有大於4位用這招不劃算,一定要帶千元)' U' C( Z; P& T' p7 u% N+ R4 P( B# _
#3=501.(儲存到#501以上)
% D: M; ?! A6 C2 \4 S3 p. P#10=10.(十的乘冪)9 F0 G$ t7 o+ t1 F
WHILE[#2GT0.]DO1
* @) R" I+ C: i#[#3]=FIX[[[[#1/#10]-FIX[#1/#10]]*#10]]0 S v6 v! q( Q6 G: X; N
#3=#3+1.+ I) ? i2 N* S. O6 A) v
#2=#2-1.
: i: u9 x* r" f4 g#10=#10*10.(百-->千-->萬一直放大十倍)9 e, J" w" l0 S1 y9 f
END1! d, l7 Q* w; c
M0
& K' c2 O' }4 D" Z7 }8 y, g/ a2 C
2 U# F& t% `! I( q8 U9 Y; }/ N結果:( l) x) b X# V. C& l: d
#501=4.
2 B; j4 \; z3 R. ^#502=3." d, a. K, ?9 P3 ]! q0 M
#503=2.' L6 h. X2 |( z4 B
#504=1.
* Y9 a4 _+ x8 \) n3 n7 i#1也可放入1011.類似2進制的運算
5 T" i, w. T& o' @; `( D7 w
0 {% F7 Y- C) O5 p$ a請問你有其他更佳的寫法嗎?請提出來謝謝 |
|