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

羅蓋仙

以下是我的理论请参考，我并没有写得很周全
: |0 q6 C  r7 k  j$ t9 v, A
#1=1234.
5 l( V% k  O4 Q- |- j8 l1 [1 m8 b#11=ABS[FIX[#1]]
& t: Y6 u- T7 `6 @7 |- W#500=0.
1 {* S" r" t& WWHILE[#11GT0.]DO1
& P- }3 @$ _5 |. o, }#22=[#11/10.-FIX[#11/10.]]*10.
IF[#22 EQ 1.]TH #500=#500 OR 1.
IF[#22 EQ 1.]GO3
IF[#22 EQ 2.]TH #500=#500 OR 2.
5 r4 U$ Z; K3 @' rIF[#22 EQ 2.]GO3
IF[#22 EQ 3.]TH #500=#500 OR 4.
/ P: s# o2 p  a$ }IF[#22 EQ 3.]GO3
IF[#22 EQ 4.]TH #500=#500 OR 8.
/ Z: Y3 V7 j9 K6 y% _8 x' R( r$ FIF[#22 EQ 4.]GO3
#3000=1.(#1-MODE-ERROR)
) {9 T( R% h6 S4 I0 @N3 #11=FIX[#11/10.]
END1
# U. k1 |: r2 M; |M99
  k- X# J* N' s5 ~1 u! G% x
7 Z: N+ L3 x, u0 ~2 i/ f* _! U8 z以下为画蛇添足，多此一举。花拳欺敌法。目的搞死敌人
（逻辑运算有改）（WH里面的比较式有改）（除的变乘的;乘的变除的）

#1=1234.
#11=FIX[ABS[#1]]
#500=15.(全部装满，让下面逐一减去)
WHILE[#11GE1.]DO1
1 X2 P9 `6 }- _9 y2 P( D, m( l#22=[#11*0.1-FIX[#11*0.1]]*/0.1
) z+ ], }  g! k# R/ [5 y3 ~1 H7 A% EIF[#22 OR 1. EQ 1.]TH #500=#500 XOR 1.
IF[#22 EQ 1.]GO3
' k$ Z+ t. ?" c7 S# XIF[#22 OR 2. EQ 1.]TH #500=#500 XOR 2.
& h. m1 \3 ?2 s5 I! t+ z) {IF[#22 EQ 2.]GO3
4 m8 n8 h4 O4 D5 aIF[#22 OR 3. EQ 1.]TH #500=#500 XOR 4.
. R) y7 f/ F7 `" y3 ]$ KIF[#22 EQ 3.]GO3
6 P% ~- x* w; _) ]4 u* e5 YIF[#22 OR 4. EQ 1.]TH #500=#500 XOR 8.
% [5 z$ T3 Q: [  QIF[#22 EQ 4.]GO3
#3000=1.(#1-MODE-ERROR)
N3 #11=FIX[#11*0.1]
END1
M99


' s* R- Y/ t, R; w; {8 k& ^6 L% v
#1=1234.
#500=15.
#11=ABS[FIX[#1]]
9 E6 @, w+ |/ NWHILE[#11GT0.]DO1
# ?+ {% Q/ D2 L: P#22=[#11/10.-FIX[#11/10.]]*10.
$ q" a* c. a5 k3 CIF[#22 - 1. EQ 0.]TH #500=#500 - 1.
5 f  c" L1 O1 _4 p( m! XIF[#22 EQ 1.]GO3
IF[#22 - 2. EQ 0.]TH #500=#500 - 2.
+ H( s$ b) ]3 P$ r+ N. QIF[#22 EQ 2.]GO3
IF[#22 - 3. EQ 0.]TH #500=#500 - 4.
IF[#22 EQ 3.]GO3
IF[#22 - 4. EQ 0.]TH #500=#500 - 8.
IF[#22 EQ 4.]GO3
. U/ m6 n" `) ?& |#3000=1.(#1-MODE-ERROR)
N3 #11=FIX[#11/10.]
: J/ P( J# |% E' {END1
M99
# M, q; j% z" `- R
. z" Y5 L7 n9 M
+ u: S9 l9 a7 C# c7 e+ Q
7 `/ K# y: S1 Q#1=1234.
#11=ABS[FIX[#1]]
& r  m) J1 P) i, C0 i' G3 E#500=0.
WHILE[#11GT0.]DO1
#22=[#11/10.-FIX[#11/10.]]*10.
IF[#22 XOR 1. EQ 0.]TH #500=#500 OR 1.
4 \; v5 \9 C6 T* s, f0 UIF[#22 EQ 1.]GO3
IF[#22 XOR 2. EQ 0.]TH #500=#500 OR 2.
IF[#22 EQ 2.]GO3
- u' ~& Z+ s, j! g, V5 NIF[#22 XOR 3. EQ 0.]TH #500=#500 OR 4.
/ h0 s1 B( _% |$ k/ hIF[#22 EQ 3.]GO3
IF[#22 XOR 4. EQ 0.]TH #500=#500 OR 8.
IF[#22 EQ 4.]GO3
#3000=1.(#1-MODE-ERROR)
N3 #11=FIX[#11/10.]
END1
" y; n( ]; W+ w- k# uM99

羅蓋仙

最底下紫字也可以改成
#500=#500 + 1.
#500=#500 + 2.
+ E5 c% u2 m! [7 L# W( U5 y#500=#500 + 4.
#500=#500 + 8.
! `! O, Q/ I. H- E
感想是使用OR最安全
用其他可能会被累加或被累减

渊源灼

厉害

rfonaqx

我顶啊。接着顶
! B) u3 R& r5 E3 G7 f' i2 U
4 v: ~4 B$ L0 k. ]0 q
/ s% ]# \  j, B/ f; }; Q
0 i* F. d) \4 d- ?7 O* F
' h' X7 K, s4 O
1 R  b3 f; {6 d. ^


, `7 L; D7 h9 T" S- [) Q


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

liziang0509

谢谢分享。。。

蕾蕾

回复 5# liziang0509
. N( D. j$ O) G/ x* H" T

7 P% g5 d# _  _/ c7 s. ~5 [3 L, W    靠。。。这么nx

52106813

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

jy0668

感谢分享，帮顶一下

zxwen

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

1365944322

支持宏程序，哈哈