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

羅蓋仙

以下是我的理论请参考，我并没有写得很周全
2 k0 x  i7 L  r2 l* {6 n9 c7 Y
2 v  E' M) D- T' m#1=1234.
* O* b4 F- ~) E6 ]8 d0 L/ A1 x#11=ABS[FIX[#1]]
#500=0.
WHILE[#11GT0.]DO1
+ w& f3 h& B, O4 P4 |5 S#22=[#11/10.-FIX[#11/10.]]*10.
IF[#22 EQ 1.]TH #500=#500 OR 1.
% m' Z3 E1 G% h; Q; f7 hIF[#22 EQ 1.]GO3
IF[#22 EQ 2.]TH #500=#500 OR 2.
1 D& t$ h+ k# i5 I$ TIF[#22 EQ 2.]GO3
IF[#22 EQ 3.]TH #500=#500 OR 4.
  V- M7 P% U$ N5 {0 z& bIF[#22 EQ 3.]GO3
+ \3 u( P1 B' A7 W% t5 m; kIF[#22 EQ 4.]TH #500=#500 OR 8.
  B" Z( [8 {: I# y" fIF[#22 EQ 4.]GO3
! O1 {% ^( L  n. S, T& l#3000=1.(#1-MODE-ERROR)
) u* ^+ q3 A2 uN3 #11=FIX[#11/10.]
# h( n5 h& E3 `9 E9 ^  p/ }+ O" w! C- |END1
M99
4 z6 l- d+ L3 K* U" v
; Q* X, W! M$ c: r0 N- P以下为画蛇添足，多此一举。花拳欺敌法。目的搞死敌人
/ T4 Z9 t5 G5 W5 w- Q/ q（逻辑运算有改）（WH里面的比较式有改）（除的变乘的;乘的变除的）
0 [  N& W, w  t- p7 O
  D. N3 k2 X: \1 q# J, P#1=1234.
#11=FIX[ABS[#1]]
7 b4 ^& B1 V, I; @/ o% r#500=15.(全部装满，让下面逐一减去)
WHILE[#11GE1.]DO1
( \2 X; L2 }; f#22=[#11*0.1-FIX[#11*0.1]]*/0.1
IF[#22 OR 1. EQ 1.]TH #500=#500 XOR 1.
6 \. i. v' g& @- ^* YIF[#22 EQ 1.]GO3
3 W( z3 t, N5 J/ M* yIF[#22 OR 2. EQ 1.]TH #500=#500 XOR 2.
- a0 n. \$ j7 z7 m" X5 y9 `IF[#22 EQ 2.]GO3
IF[#22 OR 3. EQ 1.]TH #500=#500 XOR 4.
5 U/ }1 C8 W/ O+ zIF[#22 EQ 3.]GO3
' y8 X7 u  i" @" ?7 EIF[#22 OR 4. EQ 1.]TH #500=#500 XOR 8.
IF[#22 EQ 4.]GO3
6 \% R3 |* {0 h( ?  n#3000=1.(#1-MODE-ERROR)
8 Y1 L2 I5 K/ Q& K. DN3 #11=FIX[#11*0.1]
END1
* n# x- U  ^* n0 i: _7 PM99
5 K) S! L. Q! i7 _' E

( n& w" G$ b: Y# }1 i1 p
#1=1234.
  D/ e0 E, ^, H# V- G- o* C#500=15.
( N! D7 G5 n9 Q* T, D5 v, A7 F. h5 |#11=ABS[FIX[#1]]
/ z' D$ v- M# z$ bWHILE[#11GT0.]DO1
#22=[#11/10.-FIX[#11/10.]]*10.
$ B% j9 n) Y) ZIF[#22 - 1. EQ 0.]TH #500=#500 - 1.
. c; H% ]* ^" r0 L* eIF[#22 EQ 1.]GO3
( d5 Z' o4 r) Y6 e0 a8 o4 F$ qIF[#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
IF[#22 - 4. EQ 0.]TH #500=#500 - 8.
- M5 M! Y" x- B7 D  r- x7 }0 m5 KIF[#22 EQ 4.]GO3
4 |/ v# R9 j4 j$ ]1 v. ]6 w8 a5 k7 d#3000=1.(#1-MODE-ERROR)
  @( Y' ?! T1 M- B7 W9 AN3 #11=FIX[#11/10.]
  M8 l1 q; H+ {$ Q, v; gEND1
M99



#1=1234.
#11=ABS[FIX[#1]]
7 A) H' f) C' A& y#500=0.
: z$ S& H, F$ S( U! T$ G. y$ L# bWHILE[#11GT0.]DO1
#22=[#11/10.-FIX[#11/10.]]*10.
IF[#22 XOR 1. EQ 0.]TH #500=#500 OR 1.
# [' h" m: `- T# ~( H& ?  pIF[#22 EQ 1.]GO3
! ^* M2 Q( h* l3 Q! T: |1 Q. 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.
IF[#22 EQ 3.]GO3
IF[#22 XOR 4. EQ 0.]TH #500=#500 OR 8.
3 ]. r$ d7 ]( d8 EIF[#22 EQ 4.]GO3
#3000=1.(#1-MODE-ERROR)
) }# ~- p; K0 u; i, e+ uN3 #11=FIX[#11/10.]
4 r) [  |* z3 wEND1
M99

羅蓋仙

最底下紫字也可以改成
#500=#500 + 1.
#500=#500 + 2.
0 Y1 Q, Q; k/ V5 q# B5 x$ Z#500=#500 + 4.
: S5 S1 i) E  E/ y! b#500=#500 + 8.
/ ?* T7 M3 S) g! Y6 F/ T) w8 J1 U
2 u: X# V0 y( L, v, ?/ X) v感想是使用OR最安全
0 k; j' {' G/ r5 a9 c- a! o用其他可能会被累加或被累减

渊源灼

厉害

rfonaqx

我顶啊。接着顶
& J5 Z6 v  ~5 Y7 }0 G* `

5 t( w! X; A+ O- _8 [3 i
: U6 i( I0 j" H( r" [) B
( ~; [! w% g" d" y2 I: M5 \


0 a' m: W$ w) ^

! p! g* f# U; ^4 F( s# m  g
: W/ {( F5 M' U5 ^
tudouyoukuso.org/   kutensale.net/sitemap.html   ylmba.com/sitemap.html

liziang0509

谢谢分享。。。

蕾蕾

回复 5# liziang0509

7 J  `% Z' e( _9 I
    靠。。。这么nx

52106813

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

jy0668

感谢分享，帮顶一下

zxwen

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

1365944322

支持宏程序，哈哈