|
|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区
您需要 登录 才可以下载或查看,没有账号?立即注册
×
分離數值,6位數8位數不必煩惱了,我幫你寫好了 % c) ?% S: z, ~# o+ v5 d2 i$ M" c
程式例:1 E W" z; T' T& @5 `
#1=1234.(將被分離的數據)
. |% k3 _* v* h+ T) P8 A6 s#1=ABS[FIX[#1]]
3 o6 g7 N7 L/ [- } ^( F' W#2=4.(幾位數,沒有大於4位用這招不划算,一定要帶千元)
4 R: u/ s9 K5 b* C#3=501.(儲存到#501以上). H3 N% m7 ?1 [' A
#10=10.(十的乘冪)( _/ j" {2 A" U& I& z% H# L: |! f1 Z
WHILE[#2GT0.]DO1
% x. w+ O0 @- ^5 O7 b#[#3]=FIX[[[[#1/#10]-FIX[#1/#10]]*#10]]3 E/ w9 K2 ]6 ~- N
#3=#3+1.
! u. A9 X) z. N- `3 t#2=#2-1.& J$ p/ B7 M% _" z! v2 s
#10=#10*10.(百-->千-->萬一直放大十倍)! T- D, N4 @. D) `. K5 |; Q
END1
9 t9 M# ~& ~* ?4 F0 F* d7 `9 ~M0& s6 Z- p) P. f
. U" Z( Y/ k1 a& ~# @
結果:# ?9 C$ j1 U. I. W
#501=4.( p ?3 z9 F8 D0 w
#502=3.! `, x. ^4 v% f/ N! ]
#503=2.4 w+ S0 x8 Y0 m2 o" }4 e
#504=1.
' v- f4 @+ k0 Q9 _; b6 |/ X+ y( X#1也可放入1011.類似2進制的運算6 H8 j8 r- A! k* U2 Z
, Q8 f9 ]9 Y7 ^
請問你有其他更佳的寫法嗎?請提出來謝謝 |
|