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

羅蓋仙

以下是我的理论请参考，我并没有写得很周全
  A6 D7 ]( x# X* [. q1 z
( |. ]9 |  m/ _  k% K#1=1234.
$ G7 y3 H' ]) f$ v: S6 d#11=ABS[FIX[#1]]
( U8 D8 S) ^) m#500=0.
" V9 d: `4 F* ~! @+ t3 ?& aWHILE[#11GT0.]DO1
) ^' x! R5 ~7 L2 B9 M# H- O& I+ [. Y#22=[#11/10.-FIX[#11/10.]]*10.
$ w! f; r* R% y! xIF[#22 EQ 1.]TH #500=#500 OR 1.
IF[#22 EQ 1.]GO3
IF[#22 EQ 2.]TH #500=#500 OR 2.
7 U9 P2 y+ [- J* d& kIF[#22 EQ 2.]GO3
8 L# M6 b) K5 q  R" e0 MIF[#22 EQ 3.]TH #500=#500 OR 4.
& r( t& M& S- N" s: J6 ?) UIF[#22 EQ 3.]GO3
IF[#22 EQ 4.]TH #500=#500 OR 8.
IF[#22 EQ 4.]GO3
3 E$ l" g- c0 g; l* \#3000=1.(#1-MODE-ERROR)
# [, n) F# |9 \1 M/ b  L2 V: N  ]N3 #11=FIX[#11/10.]
# @' J& |# f* I) |; g3 t' }END1
M99

以下为画蛇添足，多此一举。花拳欺敌法。目的搞死敌人
) N6 ~% [1 J0 s9 {# O  h* u  h（逻辑运算有改）（WH里面的比较式有改）（除的变乘的;乘的变除的）
. p5 H' v1 C+ B3 h1 H
7 _( Q" o% n9 W+ {+ k#1=1234.
! [$ P6 U1 e8 O$ t  s/ A# o#11=FIX[ABS[#1]]
4 n! O/ j0 Q$ F: O, d#500=15.(全部装满，让下面逐一减去)
  N! [$ n( ^% s5 N0 A4 Z+ `* B& V/ O" hWHILE[#11GE1.]DO1
6 M7 O. {5 L5 R0 F& W* Y$ }; ]' P& K#22=[#11*0.1-FIX[#11*0.1]]*/0.1
# f5 E. }6 R! Y1 qIF[#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.
2 @0 U; B! C2 H; `$ f* RIF[#22 EQ 2.]GO3
6 }: Y7 j$ S8 I/ W& A! n' A" b$ vIF[#22 OR 3. EQ 1.]TH #500=#500 XOR 4.
IF[#22 EQ 3.]GO3
( y2 m/ M& w6 Y) d2 BIF[#22 OR 4. EQ 1.]TH #500=#500 XOR 8.
- I$ S; x1 }. M5 {0 ]: {7 uIF[#22 EQ 4.]GO3
- Y8 s. r' v1 Z; K, S+ h' h#3000=1.(#1-MODE-ERROR)
N3 #11=FIX[#11*0.1]
" e7 a5 U+ _/ ?2 ?END1
M99


" X- ?+ K! s  V" t% C1 F% n
#1=1234.
#500=15.
#11=ABS[FIX[#1]]
* h3 {) [/ H4 ^. C% D1 z) M" LWHILE[#11GT0.]DO1
#22=[#11/10.-FIX[#11/10.]]*10.
& X, M6 W) y+ y% \+ w7 i+ ?( Y# MIF[#22 - 1. EQ 0.]TH #500=#500 - 1.
5 Y% z- M) ~/ L9 }; s; ]3 dIF[#22 EQ 1.]GO3
: {# N: O# A( TIF[#22 - 2. EQ 0.]TH #500=#500 - 2.
IF[#22 EQ 2.]GO3
IF[#22 - 3. EQ 0.]TH #500=#500 - 4.
IF[#22 EQ 3.]GO3
7 m# }- `( u# NIF[#22 - 4. EQ 0.]TH #500=#500 - 8.
IF[#22 EQ 4.]GO3
8 u' y6 D- ]' ]. L3 I" {9 A#3000=1.(#1-MODE-ERROR)
2 h5 e9 {1 W$ M& I+ r$ mN3 #11=FIX[#11/10.]
END1
1 I5 d- b+ c# R/ U, A; P6 k/ i7 eM99
2 q: s; `5 x8 f  q: y* P


6 v! u: ]4 v2 k3 Y- G- c  y#1=1234.
#11=ABS[FIX[#1]]
3 Z$ }7 A/ T6 S" m2 u0 u) b" O#500=0.
9 P% l- g( v* L" Y. [WHILE[#11GT0.]DO1
#22=[#11/10.-FIX[#11/10.]]*10.
IF[#22 XOR 1. EQ 0.]TH #500=#500 OR 1.
6 D) b: d5 Q0 E0 B! i2 OIF[#22 EQ 1.]GO3
" w+ m  ^9 M. wIF[#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.
- L0 v- H8 `" U4 H/ q, n6 @: `IF[#22 EQ 3.]GO3
4 ?* t8 n# ~, N3 C5 g9 n/ XIF[#22 XOR 4. EQ 0.]TH #500=#500 OR 8.
; G/ I; `' O6 q# ^$ t( f# x, v9 p2 `IF[#22 EQ 4.]GO3
1 z% C# L5 n7 e" a. u#3000=1.(#1-MODE-ERROR)
N3 #11=FIX[#11/10.]
END1
9 {: g$ C( c7 {; s! @$ gM99

羅蓋仙

最底下紫字也可以改成
7 [0 q, z; H4 e2 l5 g#500=#500 + 1.
% N8 Q' f& h, J#500=#500 + 2.
#500=#500 + 4.
3 X' ~0 t/ h6 x6 J8 N+ g2 T#500=#500 + 8.
: s5 V% o3 E+ m& r+ R: @
$ Q" J5 Y9 r- h  A% M感想是使用OR最安全
: V- ^* n& M8 T+ x6 n5 N用其他可能会被累加或被累减

渊源灼

厉害

rfonaqx

我顶啊。接着顶
- ^2 m4 a4 P2 C, R. B/ C, N, N


+ Z1 t$ U1 f, |% Z1 B/ R0 P

# u6 t+ i+ Y) ]2 U+ s; o

3 e) X* |  k2 R/ Q. u9 k

' D1 N7 L8 M$ u" Q3 u4 y

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

liziang0509

谢谢分享。。。

蕾蕾

回复 5# liziang0509
; k' R  B& Q- m% c; S! o' v' V
# n" \3 ^2 p# |# f" p
    靠。。。这么nx

52106813

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

jy0668

感谢分享，帮顶一下

zxwen

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

1365944322

支持宏程序，哈哈