|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区
您需要 登录 才可以下载或查看,没有账号?立即注册
×
分離數值,6位數8位數不必煩惱了,我幫你寫好了 0 s/ s9 f) j5 e/ o
程式例:" Q$ z0 p+ ?* l4 t5 D
#1=1234.(將被分離的數據)
/ ^* Y, G8 o; `% d2 z% \% c4 w#1=ABS[FIX[#1]]
# G- K) i5 J4 C$ ~' |7 g#2=4.(幾位數,沒有大於4位用這招不划算,一定要帶千元)2 C W# E! \: M% I# Q
#3=501.(儲存到#501以上)
9 ]& W+ q! J; f5 A5 E/ Z' {4 i7 t#10=10.(十的乘冪)
* `( r2 Y0 e; \. ^WHILE[#2GT0.]DO1
* T- J" P% g) L3 ~1 @#[#3]=FIX[[[[#1/#10]-FIX[#1/#10]]*#10]]) M4 O* T1 J3 U' _/ ]0 j Q8 m& Y& G
#3=#3+1.
+ }. u1 j$ a* t0 @0 L, h+ L' Y; r#2=#2-1.3 f5 U0 |5 ~& b
#10=#10*10.(百-->千-->萬一直放大十倍)
2 D% V5 Q# S2 i) V, G+ _3 ?+ D |; nEND1( l5 H9 Q# o( U+ p' S4 h& Q; j
M07 A' E7 M& ~% e9 ^2 j. T# o2 @
; `7 r/ C) {0 |9 P8 e6 f; g1 c! B# c g$ E
結果:
3 v2 j# w# B9 B$ s#501=4.1 R9 J" m: e7 g. x/ b) j
#502=3.# N( z$ n! F' @4 t' ~
#503=2.
- Q6 t1 ~8 ]& m o' m#504=1.& g C! x1 S! `# T) c+ D
#1也可放入1011.類似2進制的運算( ^, Z+ h# D# N8 c& R) F
) [5 A3 a8 `3 w( n; P
請問你有其他更佳的寫法嗎?請提出來謝謝 |
|