如何用宏程序來計算這道數(shù)學(xué)題

ayun918

果然是：高手一出手，便知有沒有！
- J2 J5 I9 W: r$ x$ H/ ^! v別人送我3個學(xué)習(xí)錦囊
- A1 F5 @) t7 i# `% l. v1，實力派
$ I+ Z. }+ t' o3 y, S& c8 A# @+ F2，偶像派
3，蛋黃派
我挑哪個好呢？

wbx8484

該死才注冊幾天的賬號丟了密碼，重新注冊。。。
. z8 k: R8 q5 _/ a# e, _思路：該蘋果的總數(shù)最小值是唯一的。
就是5的倍數(shù)于1，判斷余數(shù)1是關(guān)鍵。
得出最后一次的總數(shù)就可以知道第一次的總數(shù)。
3 j2 \8 n8 Q3 H
西門子840D
' ]4 u8 t! m+ V: V, V' F5 Y
R1=1    總數(shù)的意思（總數(shù)從1個開始計算)
AA:           標(biāo)簽1
R2=R1-(R1-1)/5-1  開始分
" E8 `  {, Y$ e- XR3=R2-(R2-1)/5-1
, C- `+ H2 `9 r4 S% }! [! tR4=R3-(R3-1)/5-1
R5=R4-(R4-1)/5-1  最后一個人分的總數(shù)
R1=R1+1               累加
7 A! o# q* i- C* i0 B' j( V# @R6=1                     倍數(shù)
; a% V3 S4 k. x. K! O1 m$ A" ~BB:              標(biāo)簽2
8 S$ i, B" G7 v9 D5 AR7=R5-5*R6       對最后最后的總數(shù)進(jìn)行減5的倍數(shù)
R6=R6+1            倍數(shù)累加
8 j  z% a/ x' L  J) q: ^$ N* AIF R7<1 GOTOB AA      對余數(shù)判斷小于1 返回標(biāo)簽1
IF R7>1 GOTOB BB      對余數(shù)判斷大于1  返回標(biāo)簽2
% D9 m8 H+ x0 t3 W: N# y5 \M30

這個程序在機(jī)器上求答案（求 R 值），機(jī)器竟然報警位數(shù)不夠。
. S; m# c7 l/ ~$ ]4 J. y8 v. E  z, S4 e所以先把程序發(fā)上來，向版主求證。。。

dddqmq

8 C1 b* n: v( s, P4 ]
#1=1.
) l7 X( ^# N% R' B6 ?+ }WHILE [#1] DO1
5 p( G. n$ q) q5 v#2=1.
/ ^& ^' k; v, Z" f- ^#3=5.
WHILE [#2 LE #3] DO2
#4=[#1-1]/5.
- z1 x8 d% ]7 P8 z  _#5=FIX[#4]
IF [#4 NE #5] GOTO1
" A8 B9 H* H' {0 U#2=#2+1
  A2 ~1 z# r: v/ E# B$ D; mEND2
& D& V( g" |  hN1
6 ]2 Y% ~% b0 n2 G1 RIF[#4 EQ #5] GOTO2
#1=#1+1
% h: v" F0 Q7 lEND1
N2

dddqmq

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

jiangssli

回復(fù) 13# dddqmq
- _3 K1 G) }, X
" Y1 t& R3 a0 b
8 y# f! v3 f# n& g4 w   
1 h2 c1 e; q( c) J0 o4 _* {第一個WHILE沒有判斷,怎么循環(huán)呢?
還有后面IF判斷調(diào)準(zhǔn)的NG應(yīng)該改成NE吧!

dddqmq

回復(fù) 15# jiangssli
" p  w/ Y& _: N" A( M- m* G

    NG應(yīng)該改NE，抱歉我寫錯了，第一個WHILE是一個死循環(huán)，只要#1不等于零就會執(zhí)行，但我有用GOTO2跳出。

wujwz

以后需再關(guān)注，現(xiàn)在先幫你頂一下

; V; U+ d# W& c, Z& ^# L& ]8 k


; m$ b! i8 u. o+ k


4 Y5 {" Q2 Q- e: K2 ~0 B

  p* y: ~. n9 b
5 s* Z8 P) V& c$ ?5 g% P0 T) L  Z5 `0 |
http://discuz.net/static/image/common/sigline.gif
& s3 P: A1 a! b; ?8 M" q7 Y( g+ \! T加盟寬福量販商城kuanfuhuo.com，創(chuàng)建自己的商圈，QQ1697404576

1 v  F2 [# `, b/ K8 Q" M寬福商城，男裝、女裝、羽絨服，還有鮮花蛋糕送上門
) J1 e0 n' Q  k( W
" m' U" O/ }* v  E" r5 P/ ~http://kuanfuhuo.com/ImgUpload/2011072319584644_50x520.jpg寬福商城，{網(wǎng)店代理}，提供貨源，一件代發(fā)

winnertu

高手啊！！！

dlxuxi

講得有道理啊

dq-lb

回復(fù)  zhousj225
2 g. V6 N4 @( g$ B  M* y呵呵，你沒有理解到樓主的用意，雖然這道題可以用數(shù)學(xué)算出，但是他的要求是用宏程序?qū)崿F(xiàn) ...
wmj820303 發(fā)表于 2011-6-17 22:21 http://postp.net/images/common/back.gif

1 d$ n4 E$ C4 O  m9 z1 r
/ {8 {* Z' p# b( |/ t! N, \
) j$ o$ |' I. e9 D% e! K- T    受益匪淺