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

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

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

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

×

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

#1=1234.3 ~# \- M: A2 C; f* ^/ e, ?
#11=ABS[FIX[#1]]' C9 a7 B% x' Q6 j( _/ I' m
#500=0.
: v" V6 K: K) ?* A( q7 eWHILE[#11GT0.]DO1: _, d" |- {( j( c, Q; l
#22=[#11/10.-FIX[#11/10.]]*10.
, H& X3 s! s9 l' k7 B% EIF[#22 EQ 1.]TH #500=#500 OR 1.
0 q. ~2 I) w7 E) G' hIF[#22 EQ 1.]GO3
4 c4 k" w' N& A+ Y* dIF[#22 EQ 2.]TH #500=#500 OR 2.& `8 |: r. i5 _( G* D; b7 [7 ?
IF[#22 EQ 2.]GO3: b% `2 D( o  f% ^2 R
IF[#22 EQ 3.]TH #500=#500 OR 4.5 w* J1 P0 l# U% Z6 v# H( ~' W
IF[#22 EQ 3.]GO3. a  |" ]5 J" v' Q! F2 T/ w
IF[#22 EQ 4.]TH #500=#500 OR 8.
6 ?+ W) L, {8 BIF[#22 EQ 4.]GO3' [' b- G% b  A2 R7 B! q
#3000=1.(#1-MODE-ERROR)
2 ^0 Z8 t0 |- e, c4 X5 W: i6 \N3 #11=FIX[#11/10.]
( m6 o8 B# p; wEND10 y0 m0 N( W5 t- O7 m
M99. u9 \) t4 N2 S4 J2 C5 h

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

#1=1234.
; {  N1 F+ B  w8 v5 ~: y& v#11=FIX[ABS[#1]]
+ P6 B. B/ _5 v* d7 S#500=15.(全部裝滿，讓下面逐一減去)" ^5 q0 V! _* C, s* H$ D
WHILE[#11GE1.]DO1
" B7 W* F: v$ X+ r1 K( Z#22=[#11*0.1-FIX[#11*0.1]]*/0.1& j7 W) ~( ]! }$ h; ~: @0 E1 J: ~
IF[#22 OR 1. EQ 1.]TH #500=#500 XOR 1.; h- d6 H+ j# h* h: O9 |
IF[#22 EQ 1.]GO3, m1 m. p! F$ x
IF[#22 OR 2. EQ 1.]TH #500=#500 XOR 2.' r8 o" b$ v8 d/ w" F( R. n
IF[#22 EQ 2.]GO3# ~7 Z; j. o. G+ P  \# k# h. T
IF[#22 OR 3. EQ 1.]TH #500=#500 XOR 4.$ C1 O& t7 n1 Y. [' Z* j- N
IF[#22 EQ 3.]GO3
" Q% o$ p: X% U1 ?  cIF[#22 OR 4. EQ 1.]TH #500=#500 XOR 8.) L3 v* D7 a% S9 a
IF[#22 EQ 4.]GO3, s' E8 p3 M# q# P
#3000=1.(#1-MODE-ERROR)( V* l1 z1 H$ T% N9 a% P- g
N3 #11=FIX[#11*0.1]
' y, |% W4 a+ N6 j. WEND1: m& B2 m/ g' `( s' O
M99

#1=1234.7 W/ D; o6 w9 o! X! k2 ]. z: u& M
#500=15.' T+ N  ]3 V/ g! f" I! @- o
#11=ABS[FIX[#1]]4 A4 U$ f; n- X5 T' C
WHILE[#11GT0.]DO15 _- |+ S6 m* C( v" s1 K3 J
#22=[#11/10.-FIX[#11/10.]]*10.
& k8 ?4 V& B- @IF[#22 - 1. EQ 0.]TH #500=#500 - 1.
% ~) q/ g% m+ A1 ]5 i" RIF[#22 EQ 1.]GO3
! r, @0 ~  q3 T& A, V- uIF[#22 - 2. EQ 0.]TH #500=#500 - 2.- J1 y6 I5 b) |- B- g: h
IF[#22 EQ 2.]GO35 F) X* F7 E2 ~
IF[#22 - 3. EQ 0.]TH #500=#500 - 4.
  f: M. q5 p9 q1 m2 l0 zIF[#22 EQ 3.]GO3# P7 f+ T! a; M: |- M
IF[#22 - 4. EQ 0.]TH #500=#500 - 8., ]7 w$ h5 v) H6 [/ T$ N9 L
IF[#22 EQ 4.]GO3
  s) ]7 f1 q: Q1 d#3000=1.(#1-MODE-ERROR)
  d, G" Q/ a6 S. ^6 R1 `N3 #11=FIX[#11/10.]
% Q( Z5 @& p* u* y6 S7 N& k0 ZEND1# p) ^! u* _- {  y, ^  o1 w6 `
M99

#1=1234.9 N* O) T" d/ T7 w
#11=ABS[FIX[#1]]  i# S# B6 ^  M5 `% e; d- j% M; j
#500=0.
; Y- o9 L& R3 ^. z% z% x& N6 s$ CWHILE[#11GT0.]DO1
6 k) d2 Z2 s1 X( ^5 |#22=[#11/10.-FIX[#11/10.]]*10.
9 _% x, B# P. V! O  M% [9 @9 S- RIF[#22 XOR 1. EQ 0.]TH #500=#500 OR 1.
  b9 e- H' `( x: |9 VIF[#22 EQ 1.]GO3
: A6 @! N7 B  K, p: `7 oIF[#22 XOR 2. EQ 0.]TH #500=#500 OR 2.
! i% f/ M3 }1 U. J8 PIF[#22 EQ 2.]GO3
* g$ c4 }3 ]" W$ z6 t1 X6 g4 b9 w5 O' eIF[#22 XOR 3. EQ 0.]TH #500=#500 OR 4.
6 a( i1 ^# i1 a: b2 |IF[#22 EQ 3.]GO3$ p- ?7 R( P) U; y4 a
IF[#22 XOR 4. EQ 0.]TH #500=#500 OR 8.! o' C' g- A0 g- O' r( n
IF[#22 EQ 4.]GO3
) u* P6 B3 r+ k. K- x2 k/ C#3000=1.(#1-MODE-ERROR)
8 s1 {0 L7 |2 }4 iN3 #11=FIX[#11/10.]# u. Z' s% k2 u# y
END11 t4 f1 O- F; h9 b: R2 U
M99

gouxu · 發(fā)表于 2023-4-15 06:18:24

學習學習，看到分享了這些東西，長見識了

ya_blueang · 發(fā)表于 2015-2-19 18:23:03

學習，謝謝樓主分享

ya_blueang · 發(fā)表于 2015-2-19 13:33:35

學習，謝謝樓主分享

ya_blueang · 發(fā)表于 2015-2-18 16:21:16

學習，謝謝樓主分享

1365944322 · 發(fā)表于 2014-12-22 18:54:53

支持宏程序大師

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

支持宏程序，哈哈

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

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

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

感謝分享，幫頂一下

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

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

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

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

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

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

站長推薦 /2