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

羅蓋仙 · 發表于 2013-8-18 10:42:08

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

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

×

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

#1=1234.  |2 ?( y  s) M/ D# k
#11=ABS[FIX[#1]]) m5 Y+ F1 E1 I6 _
#500=0.' M/ |6 I7 K. ]& \
WHILE[#11GT0.]DO1% K/ O+ L* C6 \& Q* Y
#22=[#11/10.-FIX[#11/10.]]*10.. `2 |* D- b* S5 v) U% h
IF[#22 EQ 1.]TH #500=#500 OR 1.1 P: q7 m! [0 d
IF[#22 EQ 1.]GO3
" Q. K: x- x6 H8 w! j4 L/ S9 AIF[#22 EQ 2.]TH #500=#500 OR 2.
& R. c4 f/ n; pIF[#22 EQ 2.]GO3
# u* V0 T7 [$ d. ^& EIF[#22 EQ 3.]TH #500=#500 OR 4.2 J( {  x. Q1 v2 W' D
IF[#22 EQ 3.]GO3
" z  F0 ~8 s/ ^  i) HIF[#22 EQ 4.]TH #500=#500 OR 8.
* ]( V+ H8 V; q5 |  R- F, b6 GIF[#22 EQ 4.]GO3
1 ]3 R5 Z0 w0 ]) j+ x) H3 r4 z#3000=1.(#1-MODE-ERROR)
+ t2 q) a  `/ R) S. C$ lN3 #11=FIX[#11/10.]
# w' q' M0 |* `% }5 pEND12 _5 T2 s( }& K5 J% @+ x9 X
M99
2 `4 x9 H' z+ |  Z& M
以下為畫蛇添足，多此一舉。花拳欺敵法。目的搞死敵人
（邏輯運算有改）（WH里面的比較式有改）（除的變乘的;乘的變除的）

#1=1234.
8 p  l1 Q) A  Q; M4 Q#11=FIX[ABS[#1]]5 R2 s6 x6 D  d8 @" {
#500=15.(全部裝滿，讓下面逐一減去)
* }- `, s8 K9 L, x! D1 dWHILE[#11GE1.]DO1) P8 L& |. R. B5 f5 X
#22=[#11*0.1-FIX[#11*0.1]]*/0.1* \! \3 T1 h; @6 `/ I1 U
IF[#22 OR 1. EQ 1.]TH #500=#500 XOR 1.% ]+ o( Q7 Z0 a8 B; D0 L
IF[#22 EQ 1.]GO3
+ y% r8 A# P( A7 e: N, nIF[#22 OR 2. EQ 1.]TH #500=#500 XOR 2.
3 w7 E8 A# D5 v$ ?6 HIF[#22 EQ 2.]GO3
0 {! \; b* B- C/ u! WIF[#22 OR 3. EQ 1.]TH #500=#500 XOR 4.
) N' n6 e: H$ ?IF[#22 EQ 3.]GO3+ w( X0 g2 K3 x5 ^+ h5 ?# o
IF[#22 OR 4. EQ 1.]TH #500=#500 XOR 8.& t7 Z, A0 H% `/ G4 I# N$ F5 d' c
IF[#22 EQ 4.]GO3
; J7 i8 a. S1 Y  o+ F) S+ e! U#3000=1.(#1-MODE-ERROR)
3 S& S0 w3 ^0 M  S, u& ^0 cN3 #11=FIX[#11*0.1]
0 g. O! |1 C; r4 S6 l0 mEND1
, l" n/ q  Y6 @# }  n! r! H1 g/ vM99

#1=1234.
6 P7 ?3 j. F! I4 J" b' @, n: C" x+ X#500=15.' c2 H- E1 e6 P& k7 x4 ~  t& i
#11=ABS[FIX[#1]]
/ O6 h! A0 W- g5 ZWHILE[#11GT0.]DO10 Q$ v- a; V3 {) g
#22=[#11/10.-FIX[#11/10.]]*10.! O0 f* a. v. U1 r6 C% V8 G* k! [
IF[#22 - 1. EQ 0.]TH #500=#500 - 1.8 j, Z. c& G: z! L+ D. e7 Z1 q. d
IF[#22 EQ 1.]GO3
" `3 B; [& A1 v, \; {: y- }2 BIF[#22 - 2. EQ 0.]TH #500=#500 - 2.0 d! q8 U1 I% {, ?; O  k
IF[#22 EQ 2.]GO34 E* ]% ~( P! Z8 b
IF[#22 - 3. EQ 0.]TH #500=#500 - 4.. Y3 X, B# U5 C" H
IF[#22 EQ 3.]GO33 Y* k) \9 m+ O3 v( T/ i2 Z6 y& Z
IF[#22 - 4. EQ 0.]TH #500=#500 - 8.
- P3 s4 G9 b6 `6 m+ T9 c& tIF[#22 EQ 4.]GO3) o# K2 j! S/ d& h
#3000=1.(#1-MODE-ERROR)
3 o) l- Y- v# nN3 #11=FIX[#11/10.]0 }4 v: U- r# H( V- G# L0 y: _
END1
/ D7 w7 ]0 ?1 ?0 f1 d8 E( ?M99

#1=1234.
- X2 U& A8 z1 m1 Y2 B+ z#11=ABS[FIX[#1]]
$ Y- }/ P% u. ^& e  O7 A. j#500=0.
. X) X2 k* T$ X/ x1 F6 H+ B2 CWHILE[#11GT0.]DO1
+ |. `4 L7 g( ?4 o' l4 y7 S- I#22=[#11/10.-FIX[#11/10.]]*10.5 P4 a( d1 a! h
IF[#22 XOR 1. EQ 0.]TH #500=#500 OR 1.
3 z; R  S8 h7 x; k4 O% Y+ N4 |IF[#22 EQ 1.]GO3. v% \& ]0 n$ C% C% O6 \2 g) s2 C
IF[#22 XOR 2. EQ 0.]TH #500=#500 OR 2.3 ]' B" D+ y; _& t- [
IF[#22 EQ 2.]GO3
* _2 _, X- g$ _* x8 LIF[#22 XOR 3. EQ 0.]TH #500=#500 OR 4.
/ `! [/ q' Q5 x, f% Q6 j" sIF[#22 EQ 3.]GO3$ e5 M9 u; \* }
IF[#22 XOR 4. EQ 0.]TH #500=#500 OR 8.
6 s6 Y- T6 |9 W4 Y: l+ aIF[#22 EQ 4.]GO3
1 `: v: ^. p& a4 Z. b- l6 I: I3 }#3000=1.(#1-MODE-ERROR)5 V( u9 h  R3 O* e" x- }7 [
N3 #11=FIX[#11/10.]) \1 S) V% |/ v
END13 k9 D- \) _( n
M99

羅蓋仙 · 發表于 2013-8-18 13:50:47

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

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

淵源灼 · 發表于 2014-6-29 08:23:35

厲害

rfonaqx · 發表于 2014-6-30 00:55:23

我頂啊。接著頂

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

liziang0509 · 發表于 2014-7-1 20:14:34

謝謝分享。。。

蕾蕾 · 發表于 2014-9-5 19:57:53

回復 5# liziang0509

靠。。。這么nx

52106813 · 發表于 2014-10-9 04:54:50

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

jy0668 · 發表于 2014-10-16 13:48:10

感謝分享，幫頂一下

zxwen · 發表于 2014-10-26 15:46:53

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

1365944322 · 發表于 2014-11-3 10:57:29

支持宏程序，哈哈

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

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

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

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

站長推薦 /2

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

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

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

站長推薦 /2

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