|
|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区
您需要 登录 才可以下载或查看,没有账号?立即注册
×
分離數值,6位數8位數不必煩惱了,我幫你寫好了 7 u9 H3 m0 _. a; E# M
程式例:7 w8 s4 o: h: X! [
#1=1234.(將被分離的數據)( Q5 s1 {+ U$ }# q ~
#1=ABS[FIX[#1]]
( N& w0 T% u0 c x#2=4.(幾位數,沒有大於4位用這招不划算,一定要帶千元)) u& d: ?; ~# I' |' T
#3=501.(儲存到#501以上)$ B8 T9 D1 M2 O! i7 F& V
#10=10.(十的乘冪)
- T r( v0 k* ]$ JWHILE[#2GT0.]DO1; F- n8 T. T. n$ l& j4 R
#[#3]=FIX[[[[#1/#10]-FIX[#1/#10]]*#10]]/ h5 P- p6 P3 j) V( p7 z
#3=#3+1.
# x3 S0 f1 x7 k, d' D#2=#2-1.* S+ v3 R! X$ }+ l5 i4 @. b6 ^6 J
#10=#10*10.(百-->千-->萬一直放大十倍); ^& T* A0 o) R( Y# m0 q5 n
END1
# ~8 |* x @5 aM00 [4 S8 o5 A1 _" X, e' G! ?2 X
8 i7 |2 { b, [! j. b6 B結果:
- v$ y( F( S5 F% P2 K#501=4.' h+ X) q$ d V" v, |" {
#502=3.+ u2 P' H r4 P) `
#503=2.9 ~" [8 A( q$ H' g% ^0 E9 n
#504=1.
( g( l* g. }+ W#1也可放入1011.類似2進制的運算1 }2 Z# ?# N) _6 ?4 G. }& ^3 h
2 E/ A( A, d6 u, I
請問你有其他更佳的寫法嗎?請提出來謝謝 |
|