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

羅蓋仙

以下是我的理论请参考，我并没有写得很周全
' A& W5 ^, j7 _2 O# |! m7 I4 b0 W" d6 U
) J, e* W: I6 H' Q#1=1234.
#11=ABS[FIX[#1]]
3 U+ {+ Z1 Q5 a4 T6 ?+ e#500=0.
WHILE[#11GT0.]DO1
#22=[#11/10.-FIX[#11/10.]]*10.
% \$ s- A# c6 S: O  ^: h# A3 OIF[#22 EQ 1.]TH #500=#500 OR 1.
' h+ @/ c1 g/ w2 I( i8 s  b; FIF[#22 EQ 1.]GO3
* N+ u! D  n9 K6 K: `IF[#22 EQ 2.]TH #500=#500 OR 2.
IF[#22 EQ 2.]GO3
6 w5 r. N9 y! QIF[#22 EQ 3.]TH #500=#500 OR 4.
% ]* e/ q; \* N. \: F# Z1 _IF[#22 EQ 3.]GO3
3 m3 h  m9 D; I3 Y# RIF[#22 EQ 4.]TH #500=#500 OR 8.
IF[#22 EQ 4.]GO3
" r3 R- _3 {! \* n, z+ I7 A# d#3000=1.(#1-MODE-ERROR)
N3 #11=FIX[#11/10.]
% V) m  r  B- A2 O, i- yEND1
+ ], j6 O$ p4 u% q8 HM99

2 i, I  D2 d/ ]+ y# e1 D以下为画蛇添足，多此一举。花拳欺敌法。目的搞死敌人
  L4 U% ]7 e* R* y$ t% t（逻辑运算有改）（WH里面的比较式有改）（除的变乘的;乘的变除的）

5 A# b+ `7 F+ E( k#1=1234.
5 y+ r0 q6 \& n+ d' w#11=FIX[ABS[#1]]
#500=15.(全部装满，让下面逐一减去)
WHILE[#11GE1.]DO1
! b2 b0 u- _% s( W, |' Z#22=[#11*0.1-FIX[#11*0.1]]*/0.1
+ ?& x& E- T/ `IF[#22 OR 1. EQ 1.]TH #500=#500 XOR 1.
IF[#22 EQ 1.]GO3
! y! N0 O% D$ T. \) s" ?" JIF[#22 OR 2. EQ 1.]TH #500=#500 XOR 2.
! E/ S4 M& e% i% L& d$ r/ W2 ^% e) c$ XIF[#22 EQ 2.]GO3
IF[#22 OR 3. EQ 1.]TH #500=#500 XOR 4.
IF[#22 EQ 3.]GO3
+ _6 H8 D- o7 j  Y1 N0 K- f0 IIF[#22 OR 4. EQ 1.]TH #500=#500 XOR 8.
IF[#22 EQ 4.]GO3
3 M! c, P+ g2 t#3000=1.(#1-MODE-ERROR)
0 |! S, r! X) jN3 #11=FIX[#11*0.1]
" L" T8 F* g$ TEND1
M99
$ v& W5 b4 I/ K$ u

5 M" O4 k( l( g* t' I9 E. F- C
& h3 J5 l2 P& ?# `0 \#1=1234.
  p3 @1 s: I# f9 e/ Q#500=15.
( M, I1 Y  w3 h1 G7 u* c/ x6 c, ]! i#11=ABS[FIX[#1]]
. d1 Y; e7 j9 A; g" [3 E' iWHILE[#11GT0.]DO1
#22=[#11/10.-FIX[#11/10.]]*10.
IF[#22 - 1. EQ 0.]TH #500=#500 - 1.
IF[#22 EQ 1.]GO3
IF[#22 - 2. EQ 0.]TH #500=#500 - 2.
  d' `# c4 s! V2 D! S3 B& a- TIF[#22 EQ 2.]GO3
IF[#22 - 3. EQ 0.]TH #500=#500 - 4.
. [3 Y- ?( ^/ P, t8 u* H* {! rIF[#22 EQ 3.]GO3
. X! N" a) C" k, d& `( M4 p3 d  `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

' R: |; _0 Y  n- e+ Z  l
9 `0 h2 m/ F! V3 n! {. a/ ?
/ }2 k) L1 T! @+ K3 |2 q% k#1=1234.
#11=ABS[FIX[#1]]
#500=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
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.
IF[#22 EQ 3.]GO3
$ B( q* t$ V: N/ Z5 L  rIF[#22 XOR 4. EQ 0.]TH #500=#500 OR 8.
IF[#22 EQ 4.]GO3
( P" l0 I. O1 @# f3 S3 u#3000=1.(#1-MODE-ERROR)
  U* S+ g: x3 F- Y/ YN3 #11=FIX[#11/10.]
END1
- e( K+ M, J1 ~+ M% fM99

羅蓋仙

最底下紫字也可以改成
4 I) ~. o5 a8 W0 ?. T  k/ z4 O" B#500=#500 + 1.
5 A$ v. X. K+ @0 H+ k#500=#500 + 2.
#500=#500 + 4.
) F: \9 y1 e8 X# B4 i$ R: ]#500=#500 + 8.
" P+ j, v" I/ [1 {
) ~8 h; n$ \- W4 M1 g" |; y2 T感想是使用OR最安全
用其他可能会被累加或被累减

渊源灼

厉害

rfonaqx

我顶啊。接着顶
, i3 Y% T# c' O, Q# s9 c
5 c! _; n0 M1 W  r8 a0 [; x1 }

7 N4 o+ G- i# W1 f9 Q3 a" z
, |7 S7 c- \0 U2 o" p2 E9 Y7 n* w' I; k5 J






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

liziang0509

谢谢分享。。。

蕾蕾

回复 5# liziang0509

1 U3 f3 o! G" d2 J8 n% n
7 U) f0 n/ Q' l    靠。。。这么nx

52106813

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

jy0668

感谢分享，帮顶一下

zxwen

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

1365944322

支持宏程序，哈哈