|
|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区
您需要 登录 才可以下载或查看,没有账号?立即注册
×
分離數值,6位數8位數不必煩惱了,我幫你寫好了
; S' h4 I5 w& N) m8 B: ~7 S程式例:+ v2 F Y4 i7 I( c+ q$ v7 B( ?9 n9 ^& i
#1=1234.(將被分離的數據)
* s5 C [! u$ F, T# R6 E) A#1=ABS[FIX[#1]]* h, L( ^2 y0 k( r; q( {
#2=4.(幾位數,沒有大於4位用這招不划算,一定要帶千元)
* h$ B' h# g5 ]; e/ ~2 ]#3=501.(儲存到#501以上)
' g3 t" y! T. l4 v4 O2 Q* R! L#10=10.(十的乘冪)
0 x: N4 n' c R; r L* P( b! Q5 yWHILE[#2GT0.]DO1
* a V& D8 J: H8 y* N/ f) `#[#3]=FIX[[[[#1/#10]-FIX[#1/#10]]*#10]]" x9 b$ B+ n) f) u
#3=#3+1." B S2 E" ^9 O n. D: I4 }- F! _
#2=#2-1., R: Q4 D) A/ M- b" U: T
#10=#10*10.(百-->千-->萬一直放大十倍)
6 n2 q0 i4 T* e9 m2 ]1 f NEND1! h( p( W: f8 J9 }/ k$ n0 q! R/ v9 {
M0
0 q5 [' s; m2 G+ X1 Z0 H; K. U4 T/ M- k- G# v$ b/ d$ S
結果:
% }* s3 I5 n7 u! m, X @; F, b- ~6 r#501=4.
8 z8 _( A* O; @6 u; q5 e2 g4 _4 r( P#502=3.7 a! N# J+ c1 }
#503=2.! b. u: r( g( Q# R" C$ a
#504=1.
?/ A" g, s6 A0 X- E8 Z. ]' p* J#1也可放入1011.類似2進制的運算
' {$ E1 ]1 ~$ X( c
7 }: @! B6 P. y+ [# ]. B請問你有其他更佳的寫法嗎?請提出來謝謝 |
|