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

羅蓋仙

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

& \  T" ?+ e; [( P- g) @#1=1234.
0 c+ H$ }1 G% D+ F" R#11=ABS[FIX[#1]]
  |8 Z" c6 P3 h8 u9 v#500=0.
WHILE[#11GT0.]DO1
( R" w* k7 U8 W0 n2 w  Y#22=[#11/10.-FIX[#11/10.]]*10.
IF[#22 EQ 1.]TH #500=#500 OR 1.
+ ~! P6 ~* |- a; p$ r) TIF[#22 EQ 1.]GO3
) f5 X0 y! [2 g  QIF[#22 EQ 2.]TH #500=#500 OR 2.
; b) n" R. s# D) nIF[#22 EQ 2.]GO3
" y. u% ~+ P( FIF[#22 EQ 3.]TH #500=#500 OR 4.
' ^# D; g- \) u7 r% n- CIF[#22 EQ 3.]GO3
IF[#22 EQ 4.]TH #500=#500 OR 8.
IF[#22 EQ 4.]GO3
#3000=1.(#1-MODE-ERROR)
. i3 [+ W/ d6 h& O2 \N3 #11=FIX[#11/10.]
* t! A0 T4 l6 b/ \" E# i; W# qEND1
3 W5 {) P5 G) C2 hM99

" }' f: _+ l) j, o' |- x以下为画蛇添足，多此一举。花拳欺敌法。目的搞死敌人
  `6 x- {, c6 ?; m（逻辑运算有改）（WH里面的比较式有改）（除的变乘的;乘的变除的）

#1=1234.
% N" w) U# I0 V- I; p% N#11=FIX[ABS[#1]]
# f9 p0 g) e: I. y/ M& |#500=15.(全部装满，让下面逐一减去)
WHILE[#11GE1.]DO1
. h8 N0 d/ \$ h+ G+ J% O- w#22=[#11*0.1-FIX[#11*0.1]]*/0.1
; z+ r* P4 i2 D6 sIF[#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.
4 V0 \# T" o+ G* X/ EIF[#22 EQ 2.]GO3
7 U( @8 `0 f/ CIF[#22 OR 3. EQ 1.]TH #500=#500 XOR 4.
IF[#22 EQ 3.]GO3
IF[#22 OR 4. EQ 1.]TH #500=#500 XOR 8.
" r5 a7 t( ?% @1 QIF[#22 EQ 4.]GO3
#3000=1.(#1-MODE-ERROR)
N3 #11=FIX[#11*0.1]
% Y. f: p0 @' E( [) h8 O- IEND1
( X' G0 i* U$ q; W' S: o8 nM99
  p7 V6 P+ [  n) T* C
0 G6 F5 @6 x* c( N- W; t0 N
, q' N1 D" o/ }$ s( U; k
#1=1234.
#500=15.
5 \* M) B$ e4 B8 u0 ^1 _#11=ABS[FIX[#1]]
WHILE[#11GT0.]DO1
. N9 }' S/ a) r#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.
$ Z/ i# C! ^0 xIF[#22 EQ 2.]GO3
IF[#22 - 3. EQ 0.]TH #500=#500 - 4.
/ l7 N" ^0 a+ P6 O; e# i% c' [* ?$ n; OIF[#22 EQ 3.]GO3
IF[#22 - 4. EQ 0.]TH #500=#500 - 8.
IF[#22 EQ 4.]GO3
#3000=1.(#1-MODE-ERROR)
4 m+ z1 c9 ~2 j5 D: BN3 #11=FIX[#11/10.]
END1
M99
& ?# M& V, q3 I; S- N- d
& J# `- W, Q1 {  x. O

#1=1234.
( G6 V5 d: O0 u* D( L% T  H# Q7 f# [#11=ABS[FIX[#1]]
# L# o8 P% y$ |- h: B#500=0.
4 ]- J. p/ H+ ^WHILE[#11GT0.]DO1
  X+ A0 k4 r8 T7 j7 k. \5 f& v#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.
' V/ a# d3 ~2 HIF[#22 EQ 2.]GO3
" n; O( e+ p+ O1 K# PIF[#22 XOR 3. EQ 0.]TH #500=#500 OR 4.
3 W: ^5 E+ Y  P# `- l( aIF[#22 EQ 3.]GO3
IF[#22 XOR 4. EQ 0.]TH #500=#500 OR 8.
- r. W! j7 i/ t/ SIF[#22 EQ 4.]GO3
#3000=1.(#1-MODE-ERROR)
N3 #11=FIX[#11/10.]
4 C% P" ]# q5 y  iEND1
M99

羅蓋仙

最底下紫字也可以改成
- A, N6 D; e4 B! ?, B$ z& ~#500=#500 + 1.
. p" x- ~6 |, T6 a0 @#500=#500 + 2.
" t% Y/ T8 m& A5 i; s& V4 F7 n#500=#500 + 4.
#500=#500 + 8.
" }6 U! O7 {3 @# w
感想是使用OR最安全
用其他可能会被累加或被累减

渊源灼

厉害

rfonaqx

我顶啊。接着顶

% I7 k! B; o1 c7 L0 |& u; b9 _
8 s8 ?/ P  Z& R! e* N6 o







, ~6 h1 c' A6 p: M
tudouyoukuso.org/   kutensale.net/sitemap.html   ylmba.com/sitemap.html

liziang0509

谢谢分享。。。

蕾蕾

回复 5# liziang0509

  g: e% x6 S  O2 n$ p
$ d6 x, V5 F* n3 ?    靠。。。这么nx

52106813

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

jy0668

感谢分享，帮顶一下

zxwen

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

1365944322

支持宏程序，哈哈