如何用宏程序來計算這道數學題

ayun918

果然是：高手一出手，便知有沒有！
別人送我3個學習錦囊
1，實力派
& A, L2 G7 y& H6 |% \2，偶像派
3 K# j/ P4 U9 w3，蛋黃派
/ x: _' D/ b# f2 c我挑哪個好呢？

wbx8484

該死才注冊幾天的賬號丟了密碼，重新注冊。。。
4 j# |& ]) i  Q7 w思路：該蘋果的總數最小值是唯一的。
0 [$ N+ m& z5 g0 E* Q- u; D) m- }就是5的倍數于1，判斷余數1是關鍵。
3 w; y4 B! ?3 P7 V" i: t5 H6 P得出最后一次的總數就可以知道第一次的總數。
5 y' t! M4 u) d" v4 g
西門子840D

R1=1    總數的意思（總數從1個開始計算)
3 p+ H. G2 Q& o# L, t' aAA:           標簽1
R2=R1-(R1-1)/5-1  開始分
5 N2 ?1 d. V) q* s. x8 J1 M! b" iR3=R2-(R2-1)/5-1
R4=R3-(R3-1)/5-1
R5=R4-(R4-1)/5-1  最后一個人分的總數
6 g2 E+ n$ w9 }R1=R1+1               累加
# B, ]$ e8 g$ q) Y$ Q5 HR6=1                     倍數
BB:              標簽2
3 j( f6 o% g! J  W( _4 X, H' W* B# VR7=R5-5*R6       對最后最后的總數進行減5的倍數
R6=R6+1            倍數累加
* b+ o6 W5 r! m1 Q4 j) a( `IF R7<1 GOTOB AA      對余數判斷小于1 返回標簽1
IF R7>1 GOTOB BB      對余數判斷大于1  返回標簽2
M30
' j: T, W. g( Q
這個程序在機器上求答案（求 R 值），機器竟然報警位數不夠。
所以先把程序發上來，向版主求證。。。

dddqmq

9 t. _" t. N' X6 G#1=1.
3 R- p$ H) u9 o2 M  h8 h1 z* mWHILE [#1] DO1
- t, t+ }" v) Y. `#2=1.
- l3 t: N' Z: Z9 B#3=5.
* Y4 a% c9 K7 EWHILE [#2 LE #3] DO2
#4=[#1-1]/5.
#5=FIX[#4]
IF [#4 NE #5] GOTO1
#2=#2+1
' i. }5 q7 G% F$ P* q6 XEND2
N1
) G7 O/ T" H) ?IF[#4 EQ #5] GOTO2
; k8 ?; r5 e( T/ \/ F, |- ~1 s5 m#1=#1+1
5 R& Z) u8 Y- u  D2 {# ?4 m- k3 w7 w: tEND1
, [; k1 `0 R6 z5 b  {N2

dddqmq

說一下個人的思路，拿一堆蘋果5個人來分，先拿掉一個，如果分到一個整數就繼續直到分完5次，如果還沒有分到5次就出現分不到整數，總數加1在來分。一旦到第五個人分時還能得到整數個蘋果，結束，

jiangssli

4 ?- _4 c  |3 S
回復 13# dddqmq
0 i  p$ {; \1 I, s; v& g2 c9 N

, ^/ {% ~1 ]6 ]5 H9 R7 x) g# U! ^3 S   
第一個WHILE沒有判斷,怎么循環呢?
, b# m0 @! g: A還有后面IF判斷調準的NG應該改成NE吧!

dddqmq

回復 15# jiangssli
5 ~$ \& ?1 v( U  G. s9 G$ P
0 ]! w" u5 j) d7 e
    NG應該改NE，抱歉我寫錯了，第一個WHILE是一個死循環，只要#1不等于零就會執行，但我有用GOTO2跳出。

wujwz

以后需再關注，現在先幫你頂一下

! L. ~' Y  w. t

  ^1 w  M$ U. M+ @2 L


4 h7 J7 ^# u) _. c

; a0 c* [/ P4 @# O# T. d9 g' x, I


- M4 }2 V" |0 S5 nhttp://discuz.net/static/image/common/sigline.gif
加盟寬福量販商城kuanfuhuo.com，創建自己的商圈，QQ1697404576
4 c. k/ o2 c/ S7 ~
寬福商城，男裝、女裝、羽絨服，還有鮮花蛋糕送上門
( y: ]( L, R0 r! P& A% {6 k
6 ]3 b4 d, u- h! N- L. hhttp://kuanfuhuo.com/ImgUpload/2011072319584644_50x520.jpg寬福商城，{網店代理}，提供貨源，一件代發

winnertu

高手啊！！！

dlxuxi

講得有道理啊

dq-lb

回復  zhousj225
/ O1 M+ D0 O2 ?$ b! ?, }呵呵，你沒有理解到樓主的用意，雖然這道題可以用數學算出，但是他的要求是用宏程序實現 ...
! z* l; q" {/ gwmj820303 發表于 2011-6-17 22:21 http://postp.net/images/common/back.gif

    受益匪淺