如何用宏程序来计算这道数学题

ayun918

果然是：高手一出手，便知有没有！
别人送我3个学习锦囊
- }$ J! J7 B6 W+ e# {1 N, j1，实力派
2，偶像派
6 U6 m! `+ V# m6 f6 M+ R3，蛋黄派
1 U1 F$ S* e, \. Q* z$ R- t+ N我挑哪个好呢？

wbx8484

该死才注册几天的账号丢了密码，重新注册。。。
% L* Z, b7 x& t" z; C思路：该苹果的总数最小值是唯一的。
就是5的倍数于1，判断余数1是关键。
得出最后一次的总数就可以知道第一次的总数。

0 N8 ?9 u( W: |4 i8 R+ a西门子840D
1 g7 @$ C6 Z5 |5 |4 u' h
- t! W5 R+ M$ c1 z7 G) M/ @R1=1    总数的意思（总数从1个开始计算)
! S! ~! Z  S: N7 WAA:           标签1
, H# r9 [: N" x0 _; IR2=R1-(R1-1)/5-1  开始分
R3=R2-(R2-1)/5-1
& u8 s* ^, H0 k$ L. \7 aR4=R3-(R3-1)/5-1
R5=R4-(R4-1)/5-1  最后一个人分的总数
5 C: j7 b, _+ G- X& c# kR1=R1+1               累加
& Q+ w: C6 v5 h# zR6=1                     倍数
+ F( P7 F# E8 d0 ]" q9 B4 ~2 UBB:              标签2
- ^( K* F% |# h$ k3 X! \R7=R5-5*R6       对最后最后的总数进行减5的倍数
R6=R6+1            倍数累加
IF R7<1 GOTOB AA      对余数判断小于1 返回标签1
IF R7>1 GOTOB BB      对余数判断大于1  返回标签2
M30
% S+ ]1 @: P" ]# `8 C6 _
这个程序在机器上求答案（求 R 值），机器竟然报警位数不够。
$ ?' \1 k6 O: v* T; h) `! t1 ?; i所以先把程序发上来，向版主求证。。。

dddqmq

#1=1.
2 N( ?+ z0 _6 _( `WHILE [#1] DO1
2 h1 U3 K" ?4 [' f, r. j2 Z7 w9 T# c* U#2=1.
% A# J# U0 Z- b/ Z9 T#3=5.
; {! {) T2 [9 a0 d5 h3 CWHILE [#2 LE #3] DO2
7 W' i2 P$ O( i5 z4 l1 J#4=[#1-1]/5.
#5=FIX[#4]
* ?% w# C" W" j" E; x3 A- j1 JIF [#4 NE #5] GOTO1
2 V* U) F0 l* }  F#2=#2+1
END2
/ P: X) V) g$ C5 Z7 v0 @N1
4 I! L, ^) t/ a( K+ N9 l# @2 ^IF[#4 EQ #5] GOTO2
#1=#1+1
+ l, F. _, S4 v$ q9 g- mEND1
N2

dddqmq

说一下个人的思路，拿一堆苹果5个人来分，先拿掉一个，如果分到一个整数就继续直到分完5次，如果还没有分到5次就出现分不到整数，总数加1在来分。一旦到第五个人分时还能得到整数个苹果，结束，

jiangssli

回复 13# dddqmq

- V& \; e7 r/ l$ b7 ~7 q0 V
0 z; v" ~$ F- t& s, o   
% s7 }9 e3 q2 g& M) ?& o第一个WHILE没有判断,怎么循环呢?
. {% @2 u9 q2 t! w$ B还有后面IF判断调准的NG应该改成NE吧!

dddqmq

回复 15# jiangssli
" Y" y% n3 k1 v
# e1 ]  X. a' o7 I- |5 d4 R
5 ]( h' n: Z* I# q; k    NG应该改NE，抱歉我写错了，第一个WHILE是一个死循环，只要#1不等于零就会执行，但我有用GOTO2跳出。

wujwz

以后需再关注，现在先帮你顶一下
6 k( O# M* v8 e


8 G3 T/ X* \- L% z; G3 q2 O. V
; ]- b$ ~/ M" F% N# Y# f& \
) U, y5 v1 B' q4 L6 M

5 g/ c. X9 t1 N$ M8 r9 c# \# B
( S$ f1 F5 C6 o% b0 a) H! J$ @

; _: `$ C% F; i: F5 o" H
http://discuz.net/static/image/common/sigline.gif
7 G7 F7 e$ N! R, p" Q. g加盟宽福量贩商城kuanfuhuo.com，创建自己的商圈，QQ1697404576

2 P' }) D$ l% B# p" `宽福商城，男装、女装、羽绒服，还有鲜花蛋糕送上门

http://kuanfuhuo.com/ImgUpload/2011072319584644_50x520.jpg宽福商城，{网店代理}，提供货源，一件代发

winnertu

高手啊！！！

dlxuxi

讲得有道理啊

dq-lb

回复  zhousj225
呵呵，你没有理解到楼主的用意，虽然这道题可以用数学算出，但是他的要求是用宏程序实现 ...
, A. E! s5 x* ?wmj820303 发表于 2011-6-17 22:21 http://postp.net/images/common/back.gif

& C  Z0 f  }# Z" w1 v    受益匪浅