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

羅蓋仙

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

, U: a) }0 h5 E: b#1=1234.
: F4 R0 u  {/ R* r+ t#11=ABS[FIX[#1]]
% V, E$ }6 r- G. m: B7 b#500=0.
" \3 y& a. }6 {. r0 @" _WHILE[#11GT0.]DO1
$ _1 T4 c+ ?/ n2 N- Z! b7 I# ^#22=[#11/10.-FIX[#11/10.]]*10.
IF[#22 EQ 1.]TH #500=#500 OR 1.
8 n1 J9 x5 k( G9 m" w0 z0 aIF[#22 EQ 1.]GO3
" u5 y. g9 X# B: I- P9 eIF[#22 EQ 2.]TH #500=#500 OR 2.
# R3 i9 b) s% QIF[#22 EQ 2.]GO3
IF[#22 EQ 3.]TH #500=#500 OR 4.
IF[#22 EQ 3.]GO3
/ A: ]' m5 @( P/ ]/ d- B/ kIF[#22 EQ 4.]TH #500=#500 OR 8.
7 K+ v6 q  O0 c2 A1 z  hIF[#22 EQ 4.]GO3
' p5 g/ h& `& g! ^#3000=1.(#1-MODE-ERROR)
N3 #11=FIX[#11/10.]
END1
M99
; i% H. F: t- i  R1 h
以下为画蛇添足，多此一举。花拳欺敌法。目的搞死敌人
（逻辑运算有改）（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.
IF[#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.
  c1 q: K  L! w, v5 }IF[#22 EQ 3.]GO3
IF[#22 OR 4. EQ 1.]TH #500=#500 XOR 8.
IF[#22 EQ 4.]GO3
#3000=1.(#1-MODE-ERROR)
) b. w6 m8 H! s# D$ ?- GN3 #11=FIX[#11*0.1]
0 K- E5 D9 y* m  PEND1
4 G  p/ O% G2 [) R1 e& uM99


) @; y$ v9 C! E1 h
" }3 l0 Q4 l0 w7 t# j* w! b6 z3 F' S" ~#1=1234.
#500=15.
, `/ |" J9 C+ g- m4 v6 m) P#11=ABS[FIX[#1]]
WHILE[#11GT0.]DO1
#22=[#11/10.-FIX[#11/10.]]*10.
+ {, T2 A* t7 I- L6 RIF[#22 - 1. EQ 0.]TH #500=#500 - 1.
IF[#22 EQ 1.]GO3
& N+ H6 m8 c! [8 r% g4 n% dIF[#22 - 2. EQ 0.]TH #500=#500 - 2.
. D6 R) @9 R- sIF[#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
#3000=1.(#1-MODE-ERROR)
N3 #11=FIX[#11/10.]
END1
M99

# J; G  _4 c0 M% Y% j

#1=1234.
, I  V8 e: i+ I2 d, d! U/ H4 S#11=ABS[FIX[#1]]
#500=0.
2 ^; H! _. _7 ~, T) C$ r* |0 ^WHILE[#11GT0.]DO1
#22=[#11/10.-FIX[#11/10.]]*10.
IF[#22 XOR 1. EQ 0.]TH #500=#500 OR 1.
IF[#22 EQ 1.]GO3
0 L* s5 D* p$ I7 j1 Q% D8 CIF[#22 XOR 2. EQ 0.]TH #500=#500 OR 2.
( U  o5 ?3 Y; o3 EIF[#22 EQ 2.]GO3
! S- Q; |- Z, Q# ?+ }IF[#22 XOR 3. EQ 0.]TH #500=#500 OR 4.
( g" B. V* f5 J; I# XIF[#22 EQ 3.]GO3
9 j1 j9 r6 K8 vIF[#22 XOR 4. EQ 0.]TH #500=#500 OR 8.
IF[#22 EQ 4.]GO3
# c' n$ X+ [0 N( [/ D#3000=1.(#1-MODE-ERROR)
N3 #11=FIX[#11/10.]
- y7 F! D% H3 NEND1
M99

羅蓋仙

最底下紫字也可以改成
  p( N3 V9 r. {#500=#500 + 1.
#500=#500 + 2.
. g: {4 r4 s9 t1 e8 y( V' A6 B#500=#500 + 4.
; m8 W9 s6 y9 M8 z7 m. S; U#500=#500 + 8.

# R8 \- o/ U% ^1 G# \$ G  M感想是使用OR最安全
& S6 M7 Z: j) H) m( ]5 D用其他可能会被累加或被累减

渊源灼

厉害

rfonaqx

我顶啊。接着顶
& L0 n, C+ j* T9 T1 _4 }

5 n3 O' }( e* {




1 P7 X; c6 |# c



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

liziang0509

谢谢分享。。。

蕾蕾

回复 5# liziang0509

5 ?* q4 e8 a5 y
; M4 l1 F3 h: o9 w& b" Y. q, t    靠。。。这么nx

52106813

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

jy0668

感谢分享，帮顶一下

zxwen

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

1365944322

支持宏程序，哈哈