小魚老師的智能鉆孔──我另有新啟發(fā)

羅蓋仙 · 發(fā)表于 2013-8-18 10:42:08

馬上注冊(cè)，結(jié)交更多好友，享用更多功能，讓你輕松玩轉(zhuǎn)社區(qū)

您需要登錄才可以下載或查看，沒(méi)有賬號(hào)？立即注冊(cè)

×

以下是我的理論請(qǐng)參考，我并沒(méi)有寫得很周全

#1=1234., B2 B% i9 ?3 i( {/ ^3 V9 D
#11=ABS[FIX[#1]]9 D% P; [+ W6 S
#500=0.
+ i3 d2 f8 P% g& }8 GWHILE[#11GT0.]DO1( r6 i9 J5 t7 t8 P( K% X3 ?
#22=[#11/10.-FIX[#11/10.]]*10./ ^8 z" h4 e* x! O5 V0 [
IF[#22 EQ 1.]TH #500=#500 OR 1.# b5 h6 s% J: y3 V/ F/ ^/ x
IF[#22 EQ 1.]GO3
0 C* n. u3 o" A; S7 K' SIF[#22 EQ 2.]TH #500=#500 OR 2.
2 i' C1 B. {3 h% o( T0 m' o' m- WIF[#22 EQ 2.]GO3; G. n: B8 f) o  q. _+ H: a4 G
IF[#22 EQ 3.]TH #500=#500 OR 4.
( G3 y' p: K7 D  ?. P. ^. y7 bIF[#22 EQ 3.]GO3+ O# ^) Z: w# M5 y3 d4 j( `
IF[#22 EQ 4.]TH #500=#500 OR 8.8 `( [4 u9 P6 D
IF[#22 EQ 4.]GO3
* P% Q& i* P6 L$ @' ?; \#3000=1.(#1-MODE-ERROR)! n' @& c( O0 h- Q
N3 #11=FIX[#11/10.]4 \4 `, q( \7 n' t0 H9 s% T
END14 Q8 B  e/ ]8 p4 |
M99
! P, J9 J6 O$ h0 J* `( l
以下為畫蛇添足，多此一舉。花拳欺敵法。目的搞死敵人
（邏輯運(yùn)算有改）（WH里面的比較式有改）（除的變乘的;乘的變除的）

#1=1234.
+ @, f1 p; A+ c( u#11=FIX[ABS[#1]]
#500=15.(全部裝滿，讓下面逐一減去)- ]1 I% J6 X8 b# z1 C
WHILE[#11GE1.]DO1/ w( a* _. Z6 C! o/ ]% i
#22=[#11*0.1-FIX[#11*0.1]]*/0.1: g6 k# z% [' z  ^+ |4 X* {- N  Q
IF[#22 OR 1. EQ 1.]TH #500=#500 XOR 1.
( w3 z" H2 d( f" [3 P6 v/ hIF[#22 EQ 1.]GO3* Y; X, J# `8 l5 A% F) h9 Y
IF[#22 OR 2. EQ 1.]TH #500=#500 XOR 2.1 W; Y2 [. f8 p; u
IF[#22 EQ 2.]GO3
# p% U  B1 H  d$ i- K; i8 G) tIF[#22 OR 3. EQ 1.]TH #500=#500 XOR 4.7 I% Q7 d8 Q* c! {1 R- v9 m
IF[#22 EQ 3.]GO3% b5 ]7 t5 y% F4 d. P3 {" ]3 c" O
IF[#22 OR 4. EQ 1.]TH #500=#500 XOR 8.9 @/ t9 S4 n9 d) R
IF[#22 EQ 4.]GO31 _9 g7 |9 a# p* x/ K2 c2 {
#3000=1.(#1-MODE-ERROR)( c' k& q. b( ^# {+ c
N3 #11=FIX[#11*0.1]
2 {9 J# y; v# s- X7 {3 R4 mEND1% F. B, {5 A& H$ Z2 {- a
M99

#1=1234.
4 L0 P1 j" n9 u#500=15.0 e* t' q7 ?7 b; ]4 Q
#11=ABS[FIX[#1]]
2 J- |" p, P9 `+ L* J% \1 dWHILE[#11GT0.]DO1  R( o( Y+ a% E4 s
#22=[#11/10.-FIX[#11/10.]]*10.! H1 X7 @7 D$ q! I+ ^; ?( f1 B, ~7 K
IF[#22 - 1. EQ 0.]TH #500=#500 - 1.
4 ?, h4 _: g$ |6 MIF[#22 EQ 1.]GO3* D' i! }0 L! v2 H$ R* R& t$ W
IF[#22 - 2. EQ 0.]TH #500=#500 - 2.
# A; [( y9 i5 r2 H% nIF[#22 EQ 2.]GO3$ o6 D, E: w+ {/ J2 x& u
IF[#22 - 3. EQ 0.]TH #500=#500 - 4., t% e( p$ m3 ]* x) T. j1 M" v8 h
IF[#22 EQ 3.]GO3
& x% i3 U5 j* r, nIF[#22 - 4. EQ 0.]TH #500=#500 - 8.8 I. m: h" |4 ?/ G
IF[#22 EQ 4.]GO3
/ O" h8 Q  J0 Z#3000=1.(#1-MODE-ERROR)
+ m( G: F& W' m5 C% D2 wN3 #11=FIX[#11/10.]! g% z& L; c$ }5 u+ D. v
END1( H( d' i( T' S5 l1 ?. i: ?  G! q
M99

#1=1234.* X' n( u' p$ P- a# B" b* y% ]
#11=ABS[FIX[#1]]
, @2 O' h6 `( F6 m0 Q#500=0.
) W, c7 G; o7 d$ l& z. i5 B: t* @WHILE[#11GT0.]DO11 I) F4 g' [5 k. L% e* ~& x
#22=[#11/10.-FIX[#11/10.]]*10.: c9 W4 B1 n! a  ~
IF[#22 XOR 1. EQ 0.]TH #500=#500 OR 1.0 m! d; `" B. R- P
IF[#22 EQ 1.]GO37 \) |* w1 \8 X6 m, W
IF[#22 XOR 2. EQ 0.]TH #500=#500 OR 2.6 x) r; _6 \! G3 W( _: o1 f, m
IF[#22 EQ 2.]GO30 e8 N- j! m; g1 ^# m( J4 T" |
IF[#22 XOR 3. EQ 0.]TH #500=#500 OR 4.* K5 `2 o6 @4 \
IF[#22 EQ 3.]GO3
  a# Z, Q+ s3 j% _IF[#22 XOR 4. EQ 0.]TH #500=#500 OR 8.7 h8 o6 }, |( R5 _% x' W1 T! r% U; }
IF[#22 EQ 4.]GO3* s, ^; Q+ x5 q% V
#3000=1.(#1-MODE-ERROR)* q' s- D5 N5 K
N3 #11=FIX[#11/10.]: \" O: V; P2 k2 |$ @, R3 U
END1
0 Y- M5 [/ `. l% b3 E9 tM99

羅蓋仙 · 發(fā)表于 2013-8-18 13:50:47

最底下紫字也可以改成
#500=#500 + 1.
#500=#500 + 2.
#500=#500 + 4.
#500=#500 + 8.

感想是使用OR最安全
用其他可能會(huì)被累加或被累減

淵源灼 · 發(fā)表于 2014-6-29 08:23:35

厲害

rfonaqx · 發(fā)表于 2014-6-30 00:55:23

我頂啊。接著頂

tudouyoukuso.org/ kutensale.net/sitemap.html ylmba.com/sitemap.html

liziang0509 · 發(fā)表于 2014-7-1 20:14:34

謝謝分享。。。

蕾蕾 · 發(fā)表于 2014-9-5 19:57:53

回復(fù) 5# liziang0509

靠。。。這么nx

52106813 · 發(fā)表于 2014-10-9 04:54:50

拿來(lái)研究一下，怎么不用WHILE-DO，IF-GO跳轉(zhuǎn)不如WHILE-DO順暢

jy0668 · 發(fā)表于 2014-10-16 13:48:10

感謝分享，幫頂一下

zxwen · 發(fā)表于 2014-10-26 15:46:53

謝謝分享。。。。。。。。。。。。

1365944322 · 發(fā)表于 2014-11-3 10:57:29

支持宏程序，哈哈

賬號(hào)		自動(dòng)登錄	找回密碼
密碼			立即注冊(cè)

亚洲二区精品_国产精品com_日本高清精品_国产高清一级毛片在线不卡

[分享] 小魚老師的智能鉆孔──我另有新啟發(fā)

馬上注冊(cè)，結(jié)交更多好友，享用更多功能，讓你輕松玩轉(zhuǎn)社區(qū)

站長(zhǎng)推薦 /2