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

羅蓋仙

以下是我的理论请参考，我并没有写得很周全

' l: @- E( M' T#1=1234.
* `3 {  \% D7 ~3 D+ p( ]" G#11=ABS[FIX[#1]]
#500=0.
WHILE[#11GT0.]DO1
#22=[#11/10.-FIX[#11/10.]]*10.
IF[#22 EQ 1.]TH #500=#500 OR 1.
IF[#22 EQ 1.]GO3
/ \+ u+ g9 U/ m6 H6 U1 PIF[#22 EQ 2.]TH #500=#500 OR 2.
6 i( [, X/ r9 j/ W9 |4 j7 PIF[#22 EQ 2.]GO3
4 C8 `& K) K2 GIF[#22 EQ 3.]TH #500=#500 OR 4.
( v8 v6 H0 q4 f# z; o* _IF[#22 EQ 3.]GO3
6 o' s( f8 \) b) C& m9 V5 _IF[#22 EQ 4.]TH #500=#500 OR 8.
IF[#22 EQ 4.]GO3
: @2 R! O  ^2 D( ~#3000=1.(#1-MODE-ERROR)
N3 #11=FIX[#11/10.]
END1
M99

以下为画蛇添足，多此一举。花拳欺敌法。目的搞死敌人
（逻辑运算有改）（WH里面的比较式有改）（除的变乘的;乘的变除的）

#1=1234.
#11=FIX[ABS[#1]]
#500=15.(全部装满，让下面逐一减去)
WHILE[#11GE1.]DO1
#22=[#11*0.1-FIX[#11*0.1]]*/0.1
IF[#22 OR 1. EQ 1.]TH #500=#500 XOR 1.
3 S  D4 U/ @1 O2 i2 h' m( cIF[#22 EQ 1.]GO3
IF[#22 OR 2. EQ 1.]TH #500=#500 XOR 2.
IF[#22 EQ 2.]GO3
IF[#22 OR 3. EQ 1.]TH #500=#500 XOR 4.
. h/ \2 t" w! S& ?# EIF[#22 EQ 3.]GO3
IF[#22 OR 4. EQ 1.]TH #500=#500 XOR 8.
, l2 H& @& n) f$ K3 ?( C+ hIF[#22 EQ 4.]GO3
#3000=1.(#1-MODE-ERROR)
( N0 [5 G" _$ @* z* ?4 E$ A3 k3 r4 ON3 #11=FIX[#11*0.1]
4 w+ P- j& |) V- qEND1
# g5 k3 I9 R/ y* }  H- U- Y  xM99

: \* g! q+ D, W; k. l/ ~# Y
" Z3 w. e2 t8 U& u3 o
+ I# }+ r7 V/ ~5 }; P1 u#1=1234.
6 l" T9 b. \  j: c( H#500=15.
/ w1 p" X! _1 p2 |* j4 r#11=ABS[FIX[#1]]
WHILE[#11GT0.]DO1
5 {. E- O1 e  {: x7 m( d& n#22=[#11/10.-FIX[#11/10.]]*10.
3 h7 X) n. d6 H) U# RIF[#22 - 1. EQ 0.]TH #500=#500 - 1.
IF[#22 EQ 1.]GO3
' _2 g1 a; M- F5 X1 L: RIF[#22 - 2. EQ 0.]TH #500=#500 - 2.
IF[#22 EQ 2.]GO3
IF[#22 - 3. EQ 0.]TH #500=#500 - 4.
  }) y' d$ R! OIF[#22 EQ 3.]GO3
0 J* m/ \) K0 D( M. K9 a; JIF[#22 - 4. EQ 0.]TH #500=#500 - 8.
- _+ E0 O) G! GIF[#22 EQ 4.]GO3
0 o: h% N1 n- m+ [' A- j4 Q4 U1 w#3000=1.(#1-MODE-ERROR)
/ H7 ]1 R" P' @3 X( zN3 #11=FIX[#11/10.]
END1
M99
, I3 I% B7 H5 D4 d
/ c( j/ _/ r/ H; R* V8 H

#1=1234.
3 X$ A* E3 Y- Z: o9 ?! L#11=ABS[FIX[#1]]
#500=0.
1 H7 i6 g9 K6 Z/ l/ }WHILE[#11GT0.]DO1
#22=[#11/10.-FIX[#11/10.]]*10.
IF[#22 XOR 1. EQ 0.]TH #500=#500 OR 1.
2 X" ]$ o! L! ], X/ f3 }5 `IF[#22 EQ 1.]GO3
8 J  g( B  t( D4 m7 e" f1 D) jIF[#22 XOR 2. EQ 0.]TH #500=#500 OR 2.
; x9 o, y+ y  ^1 _2 o6 }2 s6 Q2 IIF[#22 EQ 2.]GO3
IF[#22 XOR 3. EQ 0.]TH #500=#500 OR 4.
  M3 L- j4 W  s  S! V0 t& FIF[#22 EQ 3.]GO3
7 V6 j1 c, M/ O/ q' d1 jIF[#22 XOR 4. EQ 0.]TH #500=#500 OR 8.
% I2 P; f+ l$ o+ s# k" ?( B, yIF[#22 EQ 4.]GO3
#3000=1.(#1-MODE-ERROR)
" j, Z( L0 ]; U' jN3 #11=FIX[#11/10.]
END1
M99

羅蓋仙

最底下紫字也可以改成
#500=#500 + 1.
#500=#500 + 2.
#500=#500 + 4.
2 G5 m9 G6 ?- R9 U#500=#500 + 8.

0 l; Q! @' k" F4 J+ B' c' Q感想是使用OR最安全
% L. p; K7 O( K9 }用其他可能会被累加或被累减

渊源灼

厉害

rfonaqx

我顶啊。接着顶




  `8 I$ ^8 @' k* x5 e8 z
$ P4 E# X2 w& e2 N% D
9 ~( v* W! m, O6 S9 V( @4 }


# ]; t" l  V+ r" y- |$ A- ?. b
; K8 s/ i  M+ M% D# ~
tudouyoukuso.org/   kutensale.net/sitemap.html   ylmba.com/sitemap.html

liziang0509

谢谢分享。。。

蕾蕾

回复 5# liziang0509

; x( l1 y, u) C# |2 C
( r  W" [$ S7 b0 q; [    靠。。。这么nx

52106813

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

jy0668

感谢分享，帮顶一下

zxwen

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

1365944322

支持宏程序，哈哈