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

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

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

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

×

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

#1=1234.
; w9 ~! @$ n+ R! X! P3 `: f) K#11=ABS[FIX[#1]]% m! ?$ l" h' v2 ~& X/ a
#500=0.
4 c6 }  f, r$ m( T- H1 YWHILE[#11GT0.]DO1! U0 }+ D5 [. c6 x% i
#22=[#11/10.-FIX[#11/10.]]*10.
- V2 ?- r# R( e. aIF[#22 EQ 1.]TH #500=#500 OR 1.
) k- x, }+ _1 _) x8 n# mIF[#22 EQ 1.]GO3* \" k2 ^/ |% U4 K) c
IF[#22 EQ 2.]TH #500=#500 OR 2.
2 x  s, l3 D( M' jIF[#22 EQ 2.]GO3
  X% ?  u  B2 l7 o$ [  t! qIF[#22 EQ 3.]TH #500=#500 OR 4.
' {( u  E5 c" y6 vIF[#22 EQ 3.]GO3# y& d1 V. a0 O( f* y0 E: h' W; A
IF[#22 EQ 4.]TH #500=#500 OR 8.1 K6 S$ {4 e, D' c
IF[#22 EQ 4.]GO3
# K- @' I8 F, J. F2 Z#3000=1.(#1-MODE-ERROR)
3 w% {5 k) j* ]/ m6 n' FN3 #11=FIX[#11/10.]$ j- P" J& J# ^  e/ B
END1
- K6 b- g; y& v& W3 R8 Z* GM99
( s$ C) L' z% x+ u7 f5 X
以下為畫蛇添足，多此一舉。花拳欺敵法。目的搞死敵人
（邏輯運算有改）（WH里面的比較式有改）（除的變乘的;乘的變除的）

#1=1234.
9 S! f/ M) O! \- u- \% f( u% k6 w#11=FIX[ABS[#1]]0 n4 x3 _% J# z2 K: K
#500=15.(全部裝滿，讓下面逐一減去)* s& n9 ^2 D* H- d
WHILE[#11GE1.]DO1
9 k0 x+ ~$ i7 H! f2 t, z2 b5 o3 P#22=[#11*0.1-FIX[#11*0.1]]*/0.1$ \% \! y  f0 z# N
IF[#22 OR 1. EQ 1.]TH #500=#500 XOR 1.
! G: f" k0 Y( `& tIF[#22 EQ 1.]GO3/ m) c* k7 v' g# k, o$ E3 k! q6 f& E
IF[#22 OR 2. EQ 1.]TH #500=#500 XOR 2.! L: m& U) C. g% }  S! O# N
IF[#22 EQ 2.]GO3  S* s0 n9 D) p: Q! F
IF[#22 OR 3. EQ 1.]TH #500=#500 XOR 4." w; S: D" ?4 W/ j$ V2 G9 t
IF[#22 EQ 3.]GO36 S3 b" _% d2 W4 ], [
IF[#22 OR 4. EQ 1.]TH #500=#500 XOR 8.
% ^( Q+ c( l- ?4 kIF[#22 EQ 4.]GO34 D4 n! Y- C8 @3 B; n0 Q: G3 Q
#3000=1.(#1-MODE-ERROR): I3 V- i, Z1 v) |- [
N3 #11=FIX[#11*0.1]1 w3 V& W% Y2 D
END1% q' }8 S% t3 _( O
M99

#1=1234.
2 a) v% y: l# J' K+ r, u5 k- ]#500=15.6 _% h0 i0 f0 i. h' u
#11=ABS[FIX[#1]]
) B$ x4 o- K# _WHILE[#11GT0.]DO1) g( X4 _; L" G& y2 `3 l2 m
#22=[#11/10.-FIX[#11/10.]]*10.
# w! Z& x; R5 S2 y  V6 K0 oIF[#22 - 1. EQ 0.]TH #500=#500 - 1.( Q, s3 T1 U! W8 v2 M
IF[#22 EQ 1.]GO3
2 i' Y* W6 c0 }! e7 Y6 `% ~- tIF[#22 - 2. EQ 0.]TH #500=#500 - 2.
& T( X1 T6 o! t9 J0 g9 qIF[#22 EQ 2.]GO3' \9 u: H3 H6 Q8 S* E
IF[#22 - 3. EQ 0.]TH #500=#500 - 4.
: X7 A4 w. f# s+ E2 hIF[#22 EQ 3.]GO3: e9 D5 U0 i' \7 O9 F: d) r
IF[#22 - 4. EQ 0.]TH #500=#500 - 8.
  F( \2 b) N. U4 w& ~! D' r* wIF[#22 EQ 4.]GO3
' I* @+ F( D, r% G9 Q/ W( }( |#3000=1.(#1-MODE-ERROR)1 J% i, R: M1 G( o
N3 #11=FIX[#11/10.]4 b2 a$ }5 N5 `1 p# C4 H& U$ g
END1
/ [  z, n# P3 s1 k$ C; {M99

#1=1234.6 I% e; I4 q+ n! C1 X( G' S
#11=ABS[FIX[#1]]
& r  {( l3 J! F- T0 H8 U#500=0.; g- Y3 Z  Y/ C; T# e) ]* l, o2 d
WHILE[#11GT0.]DO1
4 i! B% h3 f. l" C. x#22=[#11/10.-FIX[#11/10.]]*10.: d$ \; Q3 }: Q+ j, x3 h
IF[#22 XOR 1. EQ 0.]TH #500=#500 OR 1.
0 Y$ E* [2 |. N+ \# j+ eIF[#22 EQ 1.]GO3, c+ R7 S5 q3 e& k: s0 x/ s4 v/ a) K
IF[#22 XOR 2. EQ 0.]TH #500=#500 OR 2.- w1 ~1 q$ K" i6 i: f7 y, J
IF[#22 EQ 2.]GO37 J" J) L6 y5 k) y
IF[#22 XOR 3. EQ 0.]TH #500=#500 OR 4., G( e1 ~8 S. g+ w. u1 l. P
IF[#22 EQ 3.]GO3
' H( T* [& ^5 H/ C* fIF[#22 XOR 4. EQ 0.]TH #500=#500 OR 8.
* r9 e# i: o  N) ZIF[#22 EQ 4.]GO3
3 p: a8 Q* R0 c6 ]7 ?, [#3000=1.(#1-MODE-ERROR); Q0 w( [* k' w& L* F6 x8 P
N3 #11=FIX[#11/10.]; B( o- G/ H  ~  ?( A6 e  n
END1
# `1 I3 h8 ]% k7 a7 d& UM99

羅蓋仙 · 發(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跳轉(zhuǎn)不如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

支持宏程序，哈哈

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

亚洲精品自拍偷拍_欧美八区_天堂中文资源在线_99热超碰在线_伊人亚洲精品_日本中文在线

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

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

站長推薦 /2