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

ayun918

果然是：高手一出手，便知有沒有！
別人送我3個學習錦囊
1，實力派
" }) s+ ~# M7 P. h1 T  ?2，偶像派
3，蛋黃派
我挑哪個好呢？

wbx8484

該死才注冊幾天的賬號丟了密碼，重新注冊。。。
思路：該蘋果的總數最小值是唯一的。
0 r5 P# ^# f% j& _) R8 H就是5的倍數于1，判斷余數1是關鍵。
得出最后一次的總數就可以知道第一次的總數。

, t- l' w% |6 O0 L西門子840D
2 o8 z9 V% p- r% `
: Q( c& J& B9 t1 c8 T, ]9 @0 JR1=1    總數的意思（總數從1個開始計算)
AA:           標簽1
5 H/ r) u6 C) F6 SR2=R1-(R1-1)/5-1  開始分
* A% t% V4 b2 G+ E( N# c- Y9 I& E2 P: {) BR3=R2-(R2-1)/5-1
! e& h6 M% o3 IR4=R3-(R3-1)/5-1
R5=R4-(R4-1)/5-1  最后一個人分的總數
  y# j/ R" J, V. K+ [) gR1=R1+1               累加
6 `0 n. [; x7 N) G$ N& [; ]R6=1                     倍數
9 A7 [* X9 y* H6 @$ @' A7 mBB:              標簽2
+ M& Z1 f- R! fR7=R5-5*R6       對最后最后的總數進行減5的倍數
  K# i- V4 `3 e0 n, H* [. s9 b: gR6=R6+1            倍數累加
; r) U: K/ T7 O6 U8 B; QIF R7<1 GOTOB AA      對余數判斷小于1 返回標簽1
- s+ e" A9 l4 M: c4 J* ]% aIF R7>1 GOTOB BB      對余數判斷大于1  返回標簽2
& n' P, Y# V2 ?  o+ g0 I# CM30
! H/ s' s- r% C! U+ a* g' U
這個程序在機器上求答案（求 R 值），機器竟然報警位數不夠。
4 ]2 o7 }3 Q, G/ b: ?所以先把程序發上來，向版主求證。。。

dddqmq

, g3 N6 U0 W8 Y4 i& U  V# f% M#1=1.
4 @, ?2 u4 U6 G$ Q' LWHILE [#1] DO1
#2=1.
- V$ w8 Y/ u/ \1 ?#3=5.
WHILE [#2 LE #3] DO2
- [# E0 k: R( }#4=[#1-1]/5.
* W  H7 b% Y$ P: H* r#5=FIX[#4]
) j  G0 a& g; h: ]IF [#4 NE #5] GOTO1
#2=#2+1
% N) K- l4 l- A0 c2 }5 W/ k; R+ H! tEND2
N1
1 v4 B  {! {4 Y1 h+ }4 X% }( Q) bIF[#4 EQ #5] GOTO2
) b: @0 Y2 ]3 b$ p) g: l$ k) `/ p. W#1=#1+1
END1
( V. k! ?. A5 G9 F/ d8 cN2

dddqmq

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

jiangssli

. J( E9 K" j, p回復 13# dddqmq


   
第一個WHILE沒有判斷,怎么循環呢?
; K$ D# }/ Z' B! d; C還有后面IF判斷調準的NG應該改成NE吧!

dddqmq

回復 15# jiangssli

: M8 O, A3 ?5 r# J' L1 M
    NG應該改NE，抱歉我寫錯了，第一個WHILE是一個死循環，只要#1不等于零就會執行，但我有用GOTO2跳出。

wujwz

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





) T' L; ~  u! O5 s9 k+ G; j- Y6 X

% n, x7 o6 {& U4 ~7 g, h

: A0 E% t- A4 M! N

  Y/ t$ t3 Q8 R* I$ N  Ahttp://discuz.net/static/image/common/sigline.gif
/ _2 _3 n: o% C. O1 |$ V- X2 L加盟寬福量販商城kuanfuhuo.com，創建自己的商圈，QQ1697404576

: f* h9 x5 T6 j( U" L) `' ^6 `5 D寬福商城，男裝、女裝、羽絨服，還有鮮花蛋糕送上門
% Q: W7 L8 ~( p1 q
$ `+ }7 D2 ^/ M# Qhttp://kuanfuhuo.com/ImgUpload/2011072319584644_50x520.jpg寬福商城，{網店代理}，提供貨源，一件代發

winnertu

高手啊！！！

dlxuxi

講得有道理啊

dq-lb

回復  zhousj225
呵呵，你沒有理解到樓主的用意，雖然這道題可以用數學算出，但是他的要求是用宏程序實現 ...
& c6 Z0 Z& z7 ^. e* J2 |/ pwmj820303 發表于 2011-6-17 22:21 http://postp.net/images/common/back.gif

6 K9 j1 H: M' u* c
    受益匪淺