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

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

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

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

×

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

#1=1234.
& x( _! z/ j9 u4 {6 d4 v#11=ABS[FIX[#1]]
% @3 l7 |: X5 C) m; {) A#500=0./ m- s- r2 C7 k- l9 w
WHILE[#11GT0.]DO1( t9 m/ B; k. f( s7 g) p; \* n! q
#22=[#11/10.-FIX[#11/10.]]*10.6 l1 j( J# o# `: x+ t$ f8 X
IF[#22 EQ 1.]TH #500=#500 OR 1.' ^  X0 P  p# t" [1 k
IF[#22 EQ 1.]GO3
9 |# M' Y5 ]7 `# p7 o4 VIF[#22 EQ 2.]TH #500=#500 OR 2.
2 F, g' x" e5 I6 r# O& LIF[#22 EQ 2.]GO3
3 H- c; N, E9 N% Z. B9 p! QIF[#22 EQ 3.]TH #500=#500 OR 4.
. ?/ @( }# u( W0 HIF[#22 EQ 3.]GO3+ E0 T! r8 W9 {* ~3 l( @
IF[#22 EQ 4.]TH #500=#500 OR 8.
  h' q$ j+ E3 A* j2 h% dIF[#22 EQ 4.]GO3& F8 j9 Z/ q2 @
#3000=1.(#1-MODE-ERROR)0 Q$ i  E5 ^# t9 e9 o3 v
N3 #11=FIX[#11/10.]* G( `! A0 z/ ?0 R# Y
END1
4 b6 ~7 g* H# i. IM99; v8 h* U) ]; d8 [3 @# j7 o: l

以下為畫蛇添足，多此一舉。花拳欺敵法。目的搞死敵人
（邏輯運算有改）（WH里面的比較式有改）（除的變乘的;乘的變除的）

#1=1234.  i/ e2 N  K, _) B, R" H+ C* v/ b
#11=FIX[ABS[#1]]
6 I  N1 z8 j  q- K( A5 ~2 `2 l, Z#500=15.(全部裝滿，讓下面逐一減去)3 v. B' d, X$ u. ~. q
WHILE[#11GE1.]DO17 O, r/ ]5 s* m0 ~3 a0 X: T
#22=[#11*0.1-FIX[#11*0.1]]*/0.1
4 X/ [: d# ?; @$ w2 XIF[#22 OR 1. EQ 1.]TH #500=#500 XOR 1.
2 a, N# o1 {- Y& `% vIF[#22 EQ 1.]GO3% L6 m" \' O7 ^+ b. J/ m$ B. Z5 {
IF[#22 OR 2. EQ 1.]TH #500=#500 XOR 2.) W" F/ t/ }/ V+ X; ~1 ?
IF[#22 EQ 2.]GO3) T, F( Q. G  Q3 |' C' X& O3 C
IF[#22 OR 3. EQ 1.]TH #500=#500 XOR 4.
7 h5 j3 K5 |2 _3 G  [IF[#22 EQ 3.]GO3" i+ L, q) q( X
IF[#22 OR 4. EQ 1.]TH #500=#500 XOR 8.8 F) J8 q5 x' r
IF[#22 EQ 4.]GO3
/ D" N$ N( M8 G  r- ^  `  M# Z. M#3000=1.(#1-MODE-ERROR)
. s7 P5 X& E+ ]9 Z( g  JN3 #11=FIX[#11*0.1]% u: p4 ?" ~  Z; [, d* c
END11 @' M6 c& i) P5 B7 z; J6 Y
M99

#1=1234.1 s6 P  k7 Y' L7 P2 A4 o
#500=15.% V/ l# p0 t# P
#11=ABS[FIX[#1]]$ _! M, {1 [; M/ L+ E
WHILE[#11GT0.]DO1# F% h, ~; }- g5 p. ~+ J. a8 Y
#22=[#11/10.-FIX[#11/10.]]*10.
! p8 Z+ p6 }4 l4 TIF[#22 - 1. EQ 0.]TH #500=#500 - 1.
( |8 }$ ]% a; @; b- E$ ]IF[#22 EQ 1.]GO3
, f, O$ ^3 }' `* hIF[#22 - 2. EQ 0.]TH #500=#500 - 2.7 X5 Z2 q1 Y. d9 q& L
IF[#22 EQ 2.]GO3
0 C1 k3 j  C* I) x) z* |6 Y! a  xIF[#22 - 3. EQ 0.]TH #500=#500 - 4.. t2 Z+ r2 p& D9 ^5 o0 A
IF[#22 EQ 3.]GO3, A9 S& ?8 M! V/ l' A( u* Z
IF[#22 - 4. EQ 0.]TH #500=#500 - 8.
2 E: c- G  S* NIF[#22 EQ 4.]GO3* ?( g1 b# O0 y+ X7 d
#3000=1.(#1-MODE-ERROR)
/ Z$ \' S3 T( u/ FN3 #11=FIX[#11/10.]4 [, H, `5 u) X. a6 B
END1
+ ~) ^) x9 Q! a2 g9 PM99

#1=1234.+ d& j, t- O& ^  e
#11=ABS[FIX[#1]]% T* M3 z/ ?; X. X- ^7 @1 F
#500=0.$ I) N. B. P+ T+ ]" U
WHILE[#11GT0.]DO14 t$ J( S, x1 W4 W: P* \- p
#22=[#11/10.-FIX[#11/10.]]*10.
! z1 `$ A+ M2 Q2 |IF[#22 XOR 1. EQ 0.]TH #500=#500 OR 1.
IF[#22 EQ 1.]GO3
+ D) y. K- Q, _8 kIF[#22 XOR 2. EQ 0.]TH #500=#500 OR 2.4 R. `; Z7 M- ]8 I' E0 ~+ C
IF[#22 EQ 2.]GO3: B8 q* p: c; |; m0 ]0 G
IF[#22 XOR 3. EQ 0.]TH #500=#500 OR 4., H/ [$ n2 q$ a( ?% ]
IF[#22 EQ 3.]GO3
; v- T9 A% q0 C% c' f5 PIF[#22 XOR 4. EQ 0.]TH #500=#500 OR 8.
9 T/ o8 |# U1 y1 }9 W& F+ rIF[#22 EQ 4.]GO3
5 V  R3 Q% H' E4 j% K( {( ]#3000=1.(#1-MODE-ERROR)0 Z+ q, d, O% `/ s
N3 #11=FIX[#11/10.]  v# n- p2 }: O; ~  F% ~4 l
END12 i5 s2 {' z" y) `( e- d: N( x
M99

羅蓋仙 · 發(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

回復(fù) 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

支持宏程序，哈哈

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

亚洲二区精品_国产精品com_日本高清精品_国产高清一级毛片在线不卡

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

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

站長推薦 /2