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

ayun918

果然是：高手一出手，便知有没有！
别人送我3个学习锦囊
% v$ p$ @/ ^& E+ Y; k3 b. R( G1，实力派
2，偶像派
8 k- Z5 _- V+ j, ?4 _3 |! {3，蛋黄派
我挑哪个好呢？

wbx8484

该死才注册几天的账号丢了密码，重新注册。。。
思路：该苹果的总数最小值是唯一的。
# |0 `% R* H0 n就是5的倍数于1，判断余数1是关键。
1 i) N% H- d2 e9 D% [( }得出最后一次的总数就可以知道第一次的总数。

' }# {# A0 M5 N4 s/ M0 @9 |/ u4 q4 k0 Q西门子840D
" x' B' D! u" w7 k7 J
R1=1    总数的意思（总数从1个开始计算)
7 R  f) C2 I! f$ g! WAA:           标签1
R2=R1-(R1-1)/5-1  开始分
R3=R2-(R2-1)/5-1
" }! G" b+ ?& h; R# I) gR4=R3-(R3-1)/5-1
$ @, p, Z" H$ c) t" ~5 bR5=R4-(R4-1)/5-1  最后一个人分的总数
0 E$ l* k. I) U# K8 R7 M' LR1=R1+1               累加
- m# j! Y/ f9 a( x4 ]- B, {) GR6=1                     倍数
, c. Z+ J' s( ^6 A: S. oBB:              标签2
R7=R5-5*R6       对最后最后的总数进行减5的倍数
1 \3 g% w) u. n& f/ sR6=R6+1            倍数累加
IF R7<1 GOTOB AA      对余数判断小于1 返回标签1
* U- q" C/ H$ u7 HIF R7>1 GOTOB BB      对余数判断大于1  返回标签2
M30
' b, \' J5 R# r. {! _
, A. }5 e+ e9 r& B0 v这个程序在机器上求答案（求 R 值），机器竟然报警位数不够。
1 G# v( Z' z+ N1 v8 C8 H% f2 n, s所以先把程序发上来，向版主求证。。。

dddqmq

. ~$ Z0 P5 P' @) L; K#1=1.
. Z1 B) ^2 N8 G2 H3 G, r" YWHILE [#1] DO1
& Q( V! M. e+ W  `4 @! ^#2=1.
#3=5.
WHILE [#2 LE #3] DO2
#4=[#1-1]/5.
#5=FIX[#4]
& g# ^. ]# X* V5 W- ]3 e' ?4 y+ HIF [#4 NE #5] GOTO1
% W) ^# T- Z  A4 q+ e5 _#2=#2+1
! ?9 ~, c: Z4 G% `) xEND2
N1
! ]3 D  d& q- E; |/ o% NIF[#4 EQ #5] GOTO2
#1=#1+1
END1
N2

dddqmq

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

jiangssli

* K- M1 [. u) {3 w) |
回复 13# dddqmq


   
3 m. T2 ^1 m6 W4 W第一个WHILE没有判断,怎么循环呢?
还有后面IF判断调准的NG应该改成NE吧!

dddqmq

回复 15# jiangssli


& d# `7 K4 t6 N$ Y* K; M8 J0 `    NG应该改NE，抱歉我写错了，第一个WHILE是一个死循环，只要#1不等于零就会执行，但我有用GOTO2跳出。

wujwz

以后需再关注，现在先帮你顶一下
, l8 D1 U7 P1 W


" u( g: {( E. Z$ F. C3 {
7 C+ D5 u  a2 a$ c

9 g7 K/ c( _1 G1 J* x7 _




http://discuz.net/static/image/common/sigline.gif
( {9 j2 s. h$ U4 n0 ]: c9 ^加盟宽福量贩商城kuanfuhuo.com，创建自己的商圈，QQ1697404576
8 _& C* t3 p. H) F! z1 O
宽福商城，男装、女装、羽绒服，还有鲜花蛋糕送上门

4 J( q6 _# Q/ t) j2 D, Y( Uhttp://kuanfuhuo.com/ImgUpload/2011072319584644_50x520.jpg宽福商城，{网店代理}，提供货源，一件代发

winnertu

高手啊！！！

dlxuxi

讲得有道理啊

dq-lb

回复  zhousj225
* m- t8 W" Z; q  s( Q3 s# G, N呵呵，你没有理解到楼主的用意，虽然这道题可以用数学算出，但是他的要求是用宏程序实现 ...
: u& u; l8 r0 L# B/ c+ L- Mwmj820303 发表于 2011-6-17 22:21 http://postp.net/images/common/back.gif

6 h& B6 ?( b7 s; F1 I: R& e- D9 s
0 k' `$ E1 q6 Z
    受益匪浅