|
|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区
您需要 登录 才可以下载或查看,没有账号?立即注册
×
分離數值,6位數8位數不必煩惱了,我幫你寫好了
+ y1 p) ^6 q+ |4 R4 s& F- h程式例:* G4 a$ ]* j" b' |9 P: L
#1=1234.(將被分離的數據)4 t1 `8 S/ \* M' G
#1=ABS[FIX[#1]]# Y. `% [: M4 ?: t
#2=4.(幾位數,沒有大於4位用這招不划算,一定要帶千元)
/ | l# c, R- H4 ?#3=501.(儲存到#501以上)
, n; Z% k: L/ K" O( x0 _& g#10=10.(十的乘冪)
9 b; y: e8 r4 y1 J" Q. X/ g* {WHILE[#2GT0.]DO18 T# i$ @( k! V
#[#3]=FIX[[[[#1/#10]-FIX[#1/#10]]*#10]]
$ S! A. H5 c8 F& t#3=#3+1.
8 d W; Q# k3 S4 _. }#2=#2-1.2 W1 q- R1 E' I; y: P% \
#10=#10*10.(百-->千-->萬一直放大十倍)0 P. W" f* x% y! I" M
END1
8 u, w' H% L v& f/ CM0; q) F. k: ]1 B. f
6 _6 v) i; `3 i& t( w結果:
- p! z* ?& F! p# g& ~8 V% ~! n#501=4.6 \8 E8 c0 v# b0 ~# a
#502=3.
& ~) r( C, E/ I1 O5 [7 F" V#503=2.
) V8 ?4 Y4 I. G5 r" U0 P' d- [4 g% W#504=1.1 Y( O6 _( d8 y6 ]. c4 \9 n
#1也可放入1011.類似2進制的運算5 U" T! l* \/ b% g! Z* O* e- J
. q, R# I% R( ?. n; l) I5 t c
請問你有其他更佳的寫法嗎?請提出來謝謝 |
|