|
|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区
您需要 登录 才可以下载或查看,没有账号?立即注册
×
分離數值,6位數8位數不必煩惱了,我幫你寫好了 , l" f$ D$ K* E
程式例:
. a0 Y4 [ v# {- Z9 V5 ?# O#1=1234.(將被分離的數據)% E s3 ?1 E2 l
#1=ABS[FIX[#1]]
2 Z- T: B% m. _$ B0 d1 N9 M#2=4.(幾位數,沒有大於4位用這招不划算,一定要帶千元)1 d+ [4 b" c+ \; u9 c, O( C+ r) q
#3=501.(儲存到#501以上)
" V1 T7 p" o+ h& G. D q5 O#10=10.(十的乘冪): o1 S: A0 _1 R4 \2 H: m: o. A
WHILE[#2GT0.]DO1
$ J( V( f1 H' e8 c" w% U#[#3]=FIX[[[[#1/#10]-FIX[#1/#10]]*#10]]
9 T) ^# a7 `0 Y8 Y0 H#3=#3+1.) i& g. o- U3 `. n7 ?
#2=#2-1., T+ Z5 q5 \: \, N$ V6 c
#10=#10*10.(百-->千-->萬一直放大十倍)
% {- q5 l/ x% F3 _+ hEND1# O6 U# ~1 r/ l5 y
M0
3 Z$ `' v5 c; k: b; K- x
7 e4 F0 @: @# F( f& L0 J$ _結果:: ^& J. K4 n+ W. K+ W9 B
#501=4.
4 O" Q) ^. m5 e: H/ _1 O+ b3 q#502=3.
+ K# ?/ _3 W: t+ L7 i#503=2.
, x# {' S l- a2 I: O& U#504=1.
# ]- } q# N: ?# R+ _#1也可放入1011.類似2進制的運算* I5 ?4 e: O9 o5 O
" J2 p6 {; w1 `. H1 |
請問你有其他更佳的寫法嗎?請提出來謝謝 |
|