小魚老師的智能鉆孔──我另有新啟發(fā)

羅蓋仙 · 發(fā)表于 2013-8-18 10:42:08

馬上注冊，結交更多好友，享用更多功能，讓你輕松玩轉社區(qū)

您需要登錄才可以下載或查看，沒有賬號？立即注冊

×

以下是我的理論請參考，我并沒有寫得很周全

#1=1234.# @: M: u$ N% e; {- F
#11=ABS[FIX[#1]]* z3 {$ r/ @  V4 \- F1 q9 P. K$ o
#500=0.
- d# o- `2 J3 M: x! }0 |1 [$ I& k$ rWHILE[#11GT0.]DO1
, s% g; m# A( X7 V/ Z- D6 |#22=[#11/10.-FIX[#11/10.]]*10.# c) H# G! i' {# j
IF[#22 EQ 1.]TH #500=#500 OR 1.# i; m" a! X( ^3 G2 M( d+ W
IF[#22 EQ 1.]GO3* o+ e/ n& f, R/ }) t' F
IF[#22 EQ 2.]TH #500=#500 OR 2.  c7 T1 A4 i$ w1 p
IF[#22 EQ 2.]GO3
$ |7 s7 t# b5 k3 N( V5 p2 aIF[#22 EQ 3.]TH #500=#500 OR 4.
( p; i' L$ [+ E+ d5 y6 Z' r) DIF[#22 EQ 3.]GO3
* s) d& ~% ~3 sIF[#22 EQ 4.]TH #500=#500 OR 8.
/ _% p  h. W) tIF[#22 EQ 4.]GO3' _! j8 l1 u' p" f5 i$ B4 r
#3000=1.(#1-MODE-ERROR)
' l* T/ v& ]; D' [% W1 H; D: E7 PN3 #11=FIX[#11/10.]
: u" {9 q; ^9 J, k  zEND14 ?! w2 F8 ]6 N' K$ i: r# z2 h3 H( y- h
M99
# u* Y4 d7 O! I, j
以下為畫蛇添足，多此一舉。花拳欺敵法。目的搞死敵人
（邏輯運算有改）（WH里面的比較式有改）（除的變乘的;乘的變除的）

#1=1234.
/ h" S! D+ Q8 `4 _! j#11=FIX[ABS[#1]], H6 i2 M  N- ~  o: g
#500=15.(全部裝滿，讓下面逐一減去)9 M1 a% B+ P# r" O8 K5 X$ A& v
WHILE[#11GE1.]DO1/ Y" I& Y  m! e* {, s. f. I5 u
#22=[#11*0.1-FIX[#11*0.1]]*/0.1
7 W  I, m) t8 T+ n3 QIF[#22 OR 1. EQ 1.]TH #500=#500 XOR 1.
' f- V4 ]9 U& U* lIF[#22 EQ 1.]GO3- z4 D" L+ ~, F
IF[#22 OR 2. EQ 1.]TH #500=#500 XOR 2.% U' f+ p; V7 V( e! k) |5 X+ m+ c
IF[#22 EQ 2.]GO3
' p0 g8 `! b  G$ k  ZIF[#22 OR 3. EQ 1.]TH #500=#500 XOR 4." g% n# B( V# n' I) a/ x
IF[#22 EQ 3.]GO3: t) I. v0 D& \6 s" x
IF[#22 OR 4. EQ 1.]TH #500=#500 XOR 8.: c" _5 s3 }% I/ _1 B1 l3 @0 a
IF[#22 EQ 4.]GO3
7 ?# h: y9 e, a3 f9 l#3000=1.(#1-MODE-ERROR)
% N9 [! w% k0 ~N3 #11=FIX[#11*0.1]
9 ]: A+ R6 F/ |" j% r# p$ kEND1) w5 p, P1 y9 d& o4 P
M99

#1=1234.
: b: I; \. e5 S#500=15.0 V: {& H5 }3 J* n! B1 d! b
#11=ABS[FIX[#1]]
$ ]0 }5 U# ^, KWHILE[#11GT0.]DO14 O5 U9 v' g1 S2 K$ ~4 x
#22=[#11/10.-FIX[#11/10.]]*10." l) S5 h( O, g$ V7 M# n
IF[#22 - 1. EQ 0.]TH #500=#500 - 1.) }3 ~8 X, f) ^0 C* a; v% _- n
IF[#22 EQ 1.]GO3
7 ~5 O0 r: ?6 RIF[#22 - 2. EQ 0.]TH #500=#500 - 2.
& y9 a3 B& S$ \8 \% L5 J6 s5 vIF[#22 EQ 2.]GO3- s: z* F- I$ H
IF[#22 - 3. EQ 0.]TH #500=#500 - 4.. e: i# N& z, c. q/ a$ W& q* ~3 H
IF[#22 EQ 3.]GO34 ^. S* @* {1 J$ ^- s
IF[#22 - 4. EQ 0.]TH #500=#500 - 8.
0 {6 j+ O6 G# \4 n6 @IF[#22 EQ 4.]GO3
# g; Y, y( O- o1 a#3000=1.(#1-MODE-ERROR)$ J- t$ f# y, b. A) _
N3 #11=FIX[#11/10.]9 u3 B9 w! w* \1 Q; j2 U
END1
* s4 R5 W9 l* f2 q. UM99

#1=1234.
" P' R! O. R9 N- ~#11=ABS[FIX[#1]]; }" @  Q+ Y, m& Z7 N
#500=0.
% P( \  I+ l" K2 F9 ~* B3 s+ xWHILE[#11GT0.]DO1
6 B) {  J" J% ]/ s6 C) M# _#22=[#11/10.-FIX[#11/10.]]*10.# e/ n5 j$ ~; p+ z! Z" Y7 P
IF[#22 XOR 1. EQ 0.]TH #500=#500 OR 1.
/ o  K( o. ?) v+ ^  s. q7 ZIF[#22 EQ 1.]GO31 P. m! D/ O2 V* s" D" U2 G
IF[#22 XOR 2. EQ 0.]TH #500=#500 OR 2.: P0 c2 l" L3 J# \  O
IF[#22 EQ 2.]GO39 y6 q5 h& L. e. A* ]6 ?' p
IF[#22 XOR 3. EQ 0.]TH #500=#500 OR 4.
& O% t! [" S4 V) TIF[#22 EQ 3.]GO3+ [3 h, Q& _9 c; J
IF[#22 XOR 4. EQ 0.]TH #500=#500 OR 8.) H5 Q+ i# x9 ^! ~2 @& ?7 Q2 Q
IF[#22 EQ 4.]GO3$ G5 y% Z! H9 T. `3 U
#3000=1.(#1-MODE-ERROR), k, O2 ?6 H" ^+ l
N3 #11=FIX[#11/10.]: B0 x% A& g+ m& s1 n/ V, Q5 ?5 \
END1
* U+ o( Z& h. D( CM99

羅蓋仙 · 發(fā)表于 2013-8-18 13:50:47

最底下紫字也可以改成
#500=#500 + 1.
#500=#500 + 2.
#500=#500 + 4.
#500=#500 + 8.

感想是使用OR最安全
用其他可能會被累加或被累減

淵源灼 · 發(fā)表于 2014-6-29 08:23:35

厲害

rfonaqx · 發(fā)表于 2014-6-30 00:55:23

我頂啊。接著頂

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

liziang0509 · 發(fā)表于 2014-7-1 20:14:34

謝謝分享。。。

蕾蕾 · 發(fā)表于 2014-9-5 19:57:53

回復 5# liziang0509

靠。。。這么nx

52106813 · 發(fā)表于 2014-10-9 04:54:50

拿來研究一下，怎么不用WHILE-DO，IF-GO跳轉不如WHILE-DO順暢

jy0668 · 發(fā)表于 2014-10-16 13:48:10

感謝分享，幫頂一下

zxwen · 發(fā)表于 2014-10-26 15:46:53

謝謝分享。。。。。。。。。。。。

1365944322 · 發(fā)表于 2014-11-3 10:57:29

支持宏程序，哈哈

賬號		自動登錄	找回密碼
密碼			立即注冊

久久久久天天天天_久久免费视频在线_久久国产成人精品国产成人亚洲_日本精品一区二区三区高清久久

[分享] 小魚老師的智能鉆孔──我另有新啟發(fā)

馬上注冊，結交更多好友，享用更多功能，讓你輕松玩轉社區(qū)

站長推薦 /2

久久久久天天天天_久久免费视频在线_久久国产成人精品国产成人亚洲_日本精品一区二区三区高清 久久

[分享] 小魚老師的智能鉆孔──我另有新啟發(fā)

馬上注冊，結交更多好友，享用更多功能，讓你輕松玩轉社區(qū)

站長推薦 /2

久久久久天天天天_久久免费视频在线_久久国产成人精品国产成人亚洲_日本精品一区二区三区高清久久