小鱼老师的智能钻孔──我另有新启发

羅蓋仙

以下是我的理论请参考，我并没有写得很周全
2 }9 w6 w5 L9 W$ p
. _0 ^9 Z2 l% k) b" r. ?#1=1234.
" ?( f) z9 u& N7 @& ], ?#11=ABS[FIX[#1]]
& s; |  U+ L7 Q* o5 D1 T#500=0.
WHILE[#11GT0.]DO1
; O2 ]. q4 }; v#22=[#11/10.-FIX[#11/10.]]*10.
IF[#22 EQ 1.]TH #500=#500 OR 1.
: y6 `$ {) i' t% q; C7 gIF[#22 EQ 1.]GO3
8 m3 R! e6 s0 }. s' I( B/ ?IF[#22 EQ 2.]TH #500=#500 OR 2.
' g+ m: t: T/ O9 IIF[#22 EQ 2.]GO3
IF[#22 EQ 3.]TH #500=#500 OR 4.
IF[#22 EQ 3.]GO3
& y( S) O, Q$ q6 f% N" ]IF[#22 EQ 4.]TH #500=#500 OR 8.
IF[#22 EQ 4.]GO3
: C5 N0 _6 M0 n" ]#3000=1.(#1-MODE-ERROR)
- V/ l$ K/ C2 a( R. k' pN3 #11=FIX[#11/10.]
9 H$ f9 |" b( O% l0 O) F) h- IEND1
  D) _8 C9 s& p1 T4 z2 a4 eM99
( S( n0 q, s" t! _% M) l
以下为画蛇添足，多此一举。花拳欺敌法。目的搞死敌人
) G2 ?: ]* I& P' s& ^2 k（逻辑运算有改）（WH里面的比较式有改）（除的变乘的;乘的变除的）
. n" c- r/ ]+ g: o
  n* N' O1 z% s#1=1234.
# H  T/ [3 g  n( _2 n#11=FIX[ABS[#1]]
" e0 E/ ]8 l7 n+ ?- N( U9 t#500=15.(全部装满，让下面逐一减去)
8 u" \3 ^9 i4 oWHILE[#11GE1.]DO1
0 Y" `5 g' ?2 o/ N0 K& y#22=[#11*0.1-FIX[#11*0.1]]*/0.1
IF[#22 OR 1. EQ 1.]TH #500=#500 XOR 1.
IF[#22 EQ 1.]GO3
8 C$ m# T3 E8 i  H) A" [8 r; yIF[#22 OR 2. EQ 1.]TH #500=#500 XOR 2.
' b0 ~2 r- s4 U9 }. l  |: R4 fIF[#22 EQ 2.]GO3
3 K4 q7 }& Z9 S/ B4 j: O- \9 |3 rIF[#22 OR 3. EQ 1.]TH #500=#500 XOR 4.
7 g2 m  z. V+ E- ^: D, tIF[#22 EQ 3.]GO3
IF[#22 OR 4. EQ 1.]TH #500=#500 XOR 8.
2 ?  r* J( ?" x2 c4 s4 ~$ VIF[#22 EQ 4.]GO3
) ]8 s1 z! }& _4 j#3000=1.(#1-MODE-ERROR)
N3 #11=FIX[#11*0.1]
END1
M99
/ L$ K/ l9 t2 \7 c: K' m

# U% x9 C* W9 ^: s$ q
" \7 ?5 J# n, L3 b#1=1234.
#500=15.
3 K; @# w/ D7 d# V9 a: t#11=ABS[FIX[#1]]
WHILE[#11GT0.]DO1
- \8 C, y3 m+ q% t#22=[#11/10.-FIX[#11/10.]]*10.
& C5 l$ Y, a  w# VIF[#22 - 1. EQ 0.]TH #500=#500 - 1.
  \2 B  y& c  Y& J2 }& e: m  mIF[#22 EQ 1.]GO3
- ?1 E7 g0 J: A1 N: aIF[#22 - 2. EQ 0.]TH #500=#500 - 2.
IF[#22 EQ 2.]GO3
( Q+ d3 H; g1 o; j, E/ [' kIF[#22 - 3. EQ 0.]TH #500=#500 - 4.
) B1 e7 [( R- U9 g0 U# w$ ^IF[#22 EQ 3.]GO3
IF[#22 - 4. EQ 0.]TH #500=#500 - 8.
IF[#22 EQ 4.]GO3
#3000=1.(#1-MODE-ERROR)
0 W* q8 _. l2 n/ Z. a# nN3 #11=FIX[#11/10.]
END1
3 H! U' s3 i9 }% b' L0 CM99

" {% k' B: \* E6 ]! {% A
& P& O4 m& \3 C: q8 U
#1=1234.
1 p7 w! _+ j+ Z* M+ L: X#11=ABS[FIX[#1]]
#500=0.
, E$ C" h. ^! K7 o  {2 NWHILE[#11GT0.]DO1
( e+ V+ t5 _* W% j- ~7 k! R* ]#22=[#11/10.-FIX[#11/10.]]*10.
IF[#22 XOR 1. EQ 0.]TH #500=#500 OR 1.
2 t3 a. G. x* J9 KIF[#22 EQ 1.]GO3
/ l- n) r4 J  y8 P) @. n% [IF[#22 XOR 2. EQ 0.]TH #500=#500 OR 2.
IF[#22 EQ 2.]GO3
IF[#22 XOR 3. EQ 0.]TH #500=#500 OR 4.
4 U, N0 L& f) G  @# T: b7 vIF[#22 EQ 3.]GO3
IF[#22 XOR 4. EQ 0.]TH #500=#500 OR 8.
! H% K! Y) t; P' L  L& ~5 vIF[#22 EQ 4.]GO3
4 d. n5 {- g. w$ N: m#3000=1.(#1-MODE-ERROR)
N3 #11=FIX[#11/10.]
END1
. L2 n1 V( `. J! x% W! `3 HM99

羅蓋仙

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

  U' h4 E+ `! J9 q) n' j+ O, m& ~感想是使用OR最安全
$ a, e7 r8 h& z* W用其他可能会被累加或被累减

渊源灼

厉害

rfonaqx

我顶啊。接着顶
6 T" P9 U  c8 |/ c" F2 a: t
* t7 l2 i" d3 m) X! n. H$ `: d. d






5 L; J, r+ K4 c


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

liziang0509

谢谢分享。。。

蕾蕾

回复 5# liziang0509
+ f( F% ^) D6 ]$ l$ n% e
- q( o. P% }: }  K8 p, X
    靠。。。这么nx

52106813

拿来研究一下，怎么不用WHILE-DO，IF-GO跳转不如WHILE-DO顺畅

jy0668

感谢分享，帮顶一下

zxwen

谢谢分享。。。。。。。。。。。。

1365944322

支持宏程序，哈哈