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

羅蓋仙 · 發表于 2013-8-18 10:42:08

馬上注冊，結交更多好友，享用更多功能，讓你輕松玩轉社區

您需要登錄才可以下載或查看，沒有賬號？立即注冊

×

以下是我的理論請參考，我并沒有寫得很周全

#1=1234.
5 w( f, W! M; e, Q$ }; S7 K4 x#11=ABS[FIX[#1]]% ?" v( Q9 M! [6 U
#500=0.
. Z3 |, U0 i# e9 [" k( ?: ^WHILE[#11GT0.]DO1
, ]0 s' A: H2 S2 E7 r$ k3 n#22=[#11/10.-FIX[#11/10.]]*10.& Z9 {2 y0 g  e3 p9 b
IF[#22 EQ 1.]TH #500=#500 OR 1.
! E4 k3 ]7 j8 B7 D$ Y2 P8 b/ {IF[#22 EQ 1.]GO3
! ~5 G- `# n/ }' KIF[#22 EQ 2.]TH #500=#500 OR 2.
# E/ h/ A& m3 f& n1 HIF[#22 EQ 2.]GO3
6 g. {/ v2 r! zIF[#22 EQ 3.]TH #500=#500 OR 4.+ Z/ C  m0 }4 E8 _+ J& C4 _& W
IF[#22 EQ 3.]GO3/ l/ K5 T( X4 i" o: a3 I& v
IF[#22 EQ 4.]TH #500=#500 OR 8.
! @- w( x4 k, b8 U$ F. ~IF[#22 EQ 4.]GO3
1 H8 ?4 N3 o4 I" K# S% T/ f( W) o5 v#3000=1.(#1-MODE-ERROR), Y" v7 y) W  k" A+ U  _- P
N3 #11=FIX[#11/10.]
: n0 f, T7 T  _. X% V9 ~END1% \& p. M4 D3 O( Y$ J0 u
M99
6 }7 f9 A1 F5 x; g* V# o
以下為畫蛇添足，多此一舉。花拳欺敵法。目的搞死敵人
（邏輯運算有改）（WH里面的比較式有改）（除的變乘的;乘的變除的）

#1=1234.
$ ~; k/ c" s+ t- @#11=FIX[ABS[#1]]: _* ~% G; X5 T4 B7 {" I( z3 K
#500=15.(全部裝滿，讓下面逐一減去)  }/ [$ C* t# q2 P
WHILE[#11GE1.]DO1
* `' B" R! ]9 A) W9 I8 T- E& A#22=[#11*0.1-FIX[#11*0.1]]*/0.1- C2 ~0 Q) ^# A7 J
IF[#22 OR 1. EQ 1.]TH #500=#500 XOR 1.  Y( Y+ v" r" M4 q$ I
IF[#22 EQ 1.]GO3- O5 F& Q0 t2 R$ O/ Y1 |
IF[#22 OR 2. EQ 1.]TH #500=#500 XOR 2.
! {) w6 @9 T; v( u' PIF[#22 EQ 2.]GO3
1 U; S$ Y, [- MIF[#22 OR 3. EQ 1.]TH #500=#500 XOR 4.
( w: A2 I$ k: P& G% U1 A* g, WIF[#22 EQ 3.]GO3" h. y- F2 o  u* I* d2 G
IF[#22 OR 4. EQ 1.]TH #500=#500 XOR 8.
7 f) W/ o+ y# r' T5 Q) b! f* O+ tIF[#22 EQ 4.]GO3& C/ I, e5 Z' [) h( t' Z7 c3 G
#3000=1.(#1-MODE-ERROR)
4 F" G2 n" i3 Q6 N& Q/ W6 r% LN3 #11=FIX[#11*0.1], A, b* O$ g/ t- N; i: p" J1 v
END1
  d! e# o) X* y9 I; c) BM99

#1=1234.& Q) D, ~9 l" T* q+ K
#500=15.
/ e9 g  z1 Q: U4 v#11=ABS[FIX[#1]]( F. E+ S# }8 w9 K3 v
WHILE[#11GT0.]DO1+ Y8 q$ O1 }. {/ x* x9 I
#22=[#11/10.-FIX[#11/10.]]*10.
7 S6 v' p, i" x. yIF[#22 - 1. EQ 0.]TH #500=#500 - 1.4 j9 a7 c* P" F* q* |
IF[#22 EQ 1.]GO37 V: ?! U1 c7 i6 a- z7 Z0 Z- Z- @
IF[#22 - 2. EQ 0.]TH #500=#500 - 2.; o& l. @" x3 D, {8 X9 u8 I
IF[#22 EQ 2.]GO3
# f, z' h' m( l/ {" ^3 g1 bIF[#22 - 3. EQ 0.]TH #500=#500 - 4.
6 N: J' C/ L$ l0 f" V- ^IF[#22 EQ 3.]GO3
! m! ]; m; d* C" z% U0 d3 d5 lIF[#22 - 4. EQ 0.]TH #500=#500 - 8.
  x. u9 p: c, D# R' j8 fIF[#22 EQ 4.]GO3% _9 q2 l( `6 P% t8 c8 q2 a2 g
#3000=1.(#1-MODE-ERROR)+ V" F9 n0 P# S, r8 ]$ A8 j
N3 #11=FIX[#11/10.]: O' t1 V- R  A/ H4 S. k
END1
5 A9 d% `7 |) B- `8 ~M99

#1=1234.
# E2 W% M2 V, k' V8 z( D$ C#11=ABS[FIX[#1]]
0 ]/ o1 B0 A, i( S# ~#500=0.
: p3 l: p% ^& G% rWHILE[#11GT0.]DO12 e9 Y! F9 f# v" i" q" l- d
#22=[#11/10.-FIX[#11/10.]]*10.6 G5 M: e- z$ [  _% a, E- P
IF[#22 XOR 1. EQ 0.]TH #500=#500 OR 1.3 l8 f" e7 s' ?) r6 i
IF[#22 EQ 1.]GO3- A) Y; \% T+ |+ }) E2 m
IF[#22 XOR 2. EQ 0.]TH #500=#500 OR 2.
1 ?$ ^) v9 ]) Q- `& pIF[#22 EQ 2.]GO3' D) [4 ?( J% C5 e# Z; b
IF[#22 XOR 3. EQ 0.]TH #500=#500 OR 4.
- u/ w, D- i7 I6 H6 ?IF[#22 EQ 3.]GO3* @/ A' P4 l) i' V3 ?0 R- _
IF[#22 XOR 4. EQ 0.]TH #500=#500 OR 8.( {8 g  `+ G% t1 T* A& N
IF[#22 EQ 4.]GO3  {" A; `# A2 l) r8 E* ]" m
#3000=1.(#1-MODE-ERROR)( `. `- v- E9 N  p5 n9 x
N3 #11=FIX[#11/10.]
( g( B* [. J" [/ @5 A" v6 Q, d8 bEND17 g0 H! u1 P9 ]! ?" {9 z
M99

羅蓋仙 · 發表于 2013-8-18 13:50:47

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

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

淵源灼 · 發表于 2014-6-29 08:23:35

厲害

rfonaqx · 發表于 2014-6-30 00:55:23

我頂啊。接著頂

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

liziang0509 · 發表于 2014-7-1 20:14:34

謝謝分享。。。

蕾蕾 · 發表于 2014-9-5 19:57:53

回復 5# liziang0509

靠。。。這么nx

52106813 · 發表于 2014-10-9 04:54:50

拿來研究一下，怎么不用WHILE-DO，IF-GO跳轉不如WHILE-DO順暢

jy0668 · 發表于 2014-10-16 13:48:10

感謝分享，幫頂一下

zxwen · 發表于 2014-10-26 15:46:53

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

1365944322 · 發表于 2014-11-3 10:57:29

支持宏程序，哈哈

賬號		自動登錄	找回密碼
密碼			立即注冊

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

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

馬上注冊，結交更多好友，享用更多功能，讓你輕松玩轉社區

站長推薦 /2