|
|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区
您需要 登录 才可以下载或查看,没有账号?立即注册
×
分離數值,6位數8位數不必煩惱了,我幫你寫好了 1 C( W8 @$ }7 P# m' P% q& u" L
程式例:6 B1 s' c* `% A- l' J0 R `/ Q
#1=1234.(將被分離的數據)) ^( O9 } K9 L0 G- t. l, z1 O
#1=ABS[FIX[#1]]
# o5 P7 s! ^8 c4 k* |$ i, u#2=4.(幾位數,沒有大於4位用這招不划算,一定要帶千元)
/ i) p# Q7 H O- P# v#3=501.(儲存到#501以上) D" _6 b- F0 N3 Q5 v9 ?) O
#10=10.(十的乘冪)
/ j" k8 s' Q' h/ SWHILE[#2GT0.]DO13 R+ i- u1 t+ U* l
#[#3]=FIX[[[[#1/#10]-FIX[#1/#10]]*#10]]
: y% i2 C" N# u, z. b5 l#3=#3+1.% x; X) b8 T4 g" R4 {5 t
#2=#2-1.; o, D' \* `2 T- `' e
#10=#10*10.(百-->千-->萬一直放大十倍)$ Y, s" \7 m. W1 ~5 N
END1
+ U8 b8 y% [) G4 R5 r5 W5 q5 E' vM0
5 b- Q: k1 x6 Q/ h
+ a( K( ` w4 V( k- j& ^( T$ w結果:
. |+ c7 N& f% U7 p* ?$ \ A#501=4.
" S$ H! R; N! R- E3 i8 f#502=3.
( h2 h$ r. w3 e4 p: R) O+ ^#503=2.
! _: R" S4 K6 u" e1 E' F* O#504=1.3 u/ h- H, ^- p( {4 w' V6 r
#1也可放入1011.類似2進制的運算9 {( `3 U' ^! W$ l* R o
! U( c- y" ~1 v
請問你有其他更佳的寫法嗎?請提出來謝謝 |
|