|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区
您需要 登录 才可以下载或查看,没有账号?立即注册
×
分離數值,6位數8位數不必煩惱了,我幫你寫好了
: `" g" e' `4 v' L程式例:0 p+ d! e# G0 _
#1=1234.(將被分離的數據)) L/ l# k/ o. v h0 X
#1=ABS[FIX[#1]]( l& P" ^% U0 ?0 i6 Y) |2 a4 w
#2=4.(幾位數,沒有大於4位用這招不划算,一定要帶千元)
! ]7 f0 V$ _' \" z8 @" t$ B& N#3=501.(儲存到#501以上)
! m+ M; c5 h1 X#10=10.(十的乘冪)7 ]7 F- c6 A: k9 @7 c6 P) m) O" x; G% r
WHILE[#2GT0.]DO10 v3 ]% I: a" T+ ^8 W/ Q
#[#3]=FIX[[[[#1/#10]-FIX[#1/#10]]*#10]]2 V. y# Y6 m0 ?1 @
#3=#3+1.% W& n4 Y! O3 y! z5 y! U$ s
#2=#2-1.5 Q5 o# M4 ?# ^
#10=#10*10.(百-->千-->萬一直放大十倍)3 x D3 \7 e0 u( @) l$ ~6 [6 _: G, Y
END1
% C; a, \" D f8 p+ yM02 L, o1 G9 A7 U! r( a: M; j
% i5 T3 T- a6 E/ L/ [9 i$ @5 e! P. [結果:- I/ h) S. q. p7 P9 }) ?
#501=4.
# ?) E1 Y$ B L3 ^9 {( _6 e) [#502=3.( Y, h% I' r" i7 A
#503=2.4 y3 _) n- O' \& p' y, R& D
#504=1.
( W" }8 P% |, e8 e: X#1也可放入1011.類似2進制的運算1 p3 g) p# f8 b& V8 L( H- T
5 y3 X) _+ v6 k3 J# T# U請問你有其他更佳的寫法嗎?請提出來謝謝 |
|