VFP程序題(已改)

1、程 序 設(shè) 計(jì) 題 選1、求100以內(nèi)最大的自然數(shù)N，使得從1開始的連續(xù)N個(gè)自然數(shù)的倒數(shù)之和小于3.5。SET TALK OFFCLEARS=0FOR N=1 TO 100 S=(S+1)/N 改正：S=S+1/N IF S=3.5 LOOP 改正：EXIT ENDIFENDFOR? N-1SET TALK ONRETURN 運(yùn)行結(jié)果：182、 求100以內(nèi)最小的自然數(shù)N，使得從1開始的連續(xù)N個(gè)自然數(shù)的倒數(shù)之和大于3.6。SET TALK OFFCLEARS=0FOR N=1 TO 100S=S+1/NIF S3.6 LOOP 改正：EXITENDIFENDFOR? NSET TALK ONR

2、ETURN運(yùn)行結(jié)果：213、求50以內(nèi)最大的自然數(shù)N，使得從102開始的連續(xù)N個(gè)偶數(shù)之和小于3000。SET TALK OFFCLEARS=0FOR N=1 TO 50A=100+2*N S=S*A 改正：S=S+A IF S=3000 LOOP 改正：EXIT ENDIFENDFOR? N-1SET TALK ONRETURN運(yùn)行結(jié)果：234、求50以內(nèi)最小的自然數(shù)N，使得從102開始的連續(xù)N個(gè)偶數(shù)之和大于2000。SET TALK OFFCLEARS=0FOR N=1 TO 50A=102+2*N 改正：A=100+2*NS=S+AIF S2000 LOOP 改正：EXITENDIFEND

3、FOR? NSET TALK ONRETURN運(yùn)行結(jié)果：175、 求出100以內(nèi)使得算式1*2+2*3+N*(N+1)的值小于5000的最大的自然數(shù)N。SET TALK OFFCLEARS=0FOR N=1 TO 100A=N*(N+1)S=S+AIF S5000 EXITENDIFENDFOR? N 改正：? N-1SET TALK ONRETURN運(yùn)行結(jié)果：236、 求出100以內(nèi)使得算式1*2+2*3+N*(N+1)的值大于6000的最小的自然數(shù)N。SET TALK OFFCLEAR S=0FOR N=1 TO 100 A=N*(N+1) S=S+A IF S6000 LOOP 改正：E

4、XIT ENDIFENDFOR? NSET TALK ONRETURN運(yùn)行結(jié)果：267、求出100以內(nèi)使得算式1+(1+2)+(1+2+N)的值小于1000的最大的自然數(shù)N。SET TALK OFFCLEARS=0T=0FOR N=1 TO 100 S=S+N T=T+S IF T1000 EXIT ENDIFENDFOR? N 改正：? N-1SET TALK ONRETURN運(yùn)行結(jié)果：178、 求出100以內(nèi)最大的奇數(shù)N使得算式(1-1/2)+(1/3-1/4)+(1/N-1/(N+1)的值小于0.68。 SET TALK OFF CLEAR S=0 FOR N=1 TO 100 STEP

5、 2 A=1/N-1/(N+1) S=S+A IF S0.68 EXIT ENDIF ENDFOR ? N-2 SET TALK ON RETURN 運(yùn)行結(jié)果：359、某國(guó)在2000年時(shí)人口總數(shù)為1億，若以每年3%的速度遞增，試求出至少要到哪一年該國(guó)人口總數(shù)才會(huì)翻一翻。 SET TALK OFF CLEAR S=1 FOR N=2001 TO 2100 S=S*1.03 IF S=2 改正：IF S=2 LOOP 改正：EXIT ENDIF ENDFOR ? N SET TALK ON RETURN 運(yùn)行結(jié)果：20249、設(shè)等比數(shù)列：1，2，4，8，。求使得此數(shù)列的前N項(xiàng)之和大于100000的

6、最小的自然數(shù)N。 SET TALK OFF CLEAR A=1 S=1 改正：S=0 FOR N=1 TO 100 S=S+A IF S100000 EXIT ENDIF A=2+A 改正：A=A*2 ENDFOR ? N SET TALK ON RETURN 運(yùn)行結(jié)果：1710、設(shè)等比數(shù)列：1，2，4，8，。求使得此數(shù)列的前N項(xiàng)之和小于2345678的最大的自然數(shù)N。 SET TALK OFF CLEAR A=1 S=0 FOR N=1 TO 100 S=S+A IF S=2345678 EXIT ENDIF A=2+A 改正：A=A*2 ENDFOR ? N 改正：? N-1 SET TA

7、LK ON RETURN 運(yùn)行結(jié)果：2111、求出45678的所有非平凡因子（即除1和它本身以外的約數(shù)）中是奇數(shù)的因子個(gè)數(shù)。 SET TALK OFF CLEAR A=45678 N=0 FOR B=3 TO A STEP 2 IF MOD(B,A)=0 改正：IF MOD(A,B)=0 N=N+1 ENDIF ENDFOR ? B 改正：? N SET TALK ON RETURN 運(yùn)行結(jié)果：712、求出20677和42067的最大公約數(shù)。 SET TALK OFF CLEAR A=20677 B=42067 FOR D=1 TO A IF MOD(A,D)=0 AND MOD(B,D)=0

8、 MAX=B 改正：MAX=D ENDIF ENDFOR ? D 改正：MAX SET TALK ON RETURN 運(yùn)行結(jié)果：71313、求前1,100內(nèi)能被6或8整除的所有自然數(shù)的平方根的和（將第1位小數(shù)四舍五入，結(jié)果只保留整數(shù)）。 SET TALK OFF CLEAR S=0 FOR N=1 TO 100 IF MOD(N,6)=0 AND MOD(N,8)=0 改正：IF MOD(N,6)=0 OR MOD(N,8)=0 S=SQRT(S+N) 改正：S= S+SQRT(N) ENDIF ENDFOR ? ROUND(S,0) SET TALK ON RETURN 運(yùn)行結(jié)果：16214

9、、求所有符合算式AB*BA=2701的最小的兩位數(shù)AB（即A*10+B）。其中A、B是19之間的一位整數(shù)。 SET TALK OFF CLEAR FOR X=11 TO 99 A=X/10 改正：A=INT(X/10) B=MOD(X,10) Y=10*A+B 改正：Y=10*B+A IF X*Y=2701 EXIT ENDIF ENDFOR ? X SET TALK ON RETURN 運(yùn)行結(jié)果：3715、已知數(shù)列：1,2,4,7,11,16,，其規(guī)律是相鄰兩項(xiàng)之差依次是1,2,3,4,5,。試求出此數(shù)列中大于5000的最小的項(xiàng)。 SET TALK OFF CLEAR A=1 FOR N=0

10、 TO 1000 A=A+N IF A5000 LOOP 改正：EXIT ENDIF ENDFOR ? N 改正：? A SET TALK ON RETURN 運(yùn)行結(jié)果：505116、已知數(shù)列：1,2,4,7,11,16,，其規(guī)律是相鄰兩項(xiàng)之差依次是1,2,3,4,5,。試求出此數(shù)列中小于6000的最大的項(xiàng)。 SET TALK OFF CLEAR A=0 改正：A=1 FOR N=0 TO 1000 IF A+N6000 EXIT ENDIF A=A+N ENDFOR ? A SET TALK ON RETURN 運(yùn)行結(jié)果：599617、已知數(shù)列F(N)：F(1)=1，F(xiàn)(2)=4，當(dāng)N=3,

11、4,5,時(shí)，F(xiàn)(N)=3*F(N-1)-F(N-2)。試求出100以內(nèi)最小的自然數(shù)N使得此數(shù)列的第N項(xiàng)大于87654321。 SET TALK OFF CLEAR DIMENSION F(100) F(1)=1 F(2)=4 FOR N=3 TO 100 F(N)=3*F(N-1)-F(N-2) IF F(N)87654321 LOOP 改正：EXIT ENDIF ENDFOR ? N SET TALK ON RETURN 運(yùn)行結(jié)果：2018、求出100以內(nèi)最大的自然數(shù)N，使得從1開始的連續(xù)N個(gè)自然數(shù)的立方之和小于999999。 SET TALK OFF CLEAR S=0 FOR N=1 T

12、O 100 A=N*N*N S=S+A IF S999999 改正：IF S678 EXIT ENDIF ENDFOR? NSET TALK ONRETURN運(yùn)行結(jié)果：1320、設(shè)有用26個(gè)字母表示的26個(gè)表達(dá)式：A=1，B=1/(A+1)，C=1/(B+2)，Z=1/(Y+25)。試求出這26個(gè)字母中其值小于0.1的字母?jìng)€(gè)數(shù)。SET TALK OFFCLEARLETT=1N=0FOR K=1 TO 26 改正：FOR K=1 TO 25 LETT=1/LETT+K 改正：LETT=1/(LETT+K) IF LETT54321 N=N+1 ENDIF F1=F2 F2=F3 F3=F1 改正

13、：F3=FENDFOR? NSET TALK ONRETURN“運(yùn)行結(jié)果：523、已知一個(gè)由分?jǐn)?shù)組成的數(shù)列：1/2，3/5，8/13，21/34，其特點(diǎn)是：從其中第2個(gè)分?jǐn)?shù)起，每個(gè)分?jǐn)?shù)的分子都是前一分?jǐn)?shù)的分子分母之和而其分母都是其分子與前一分?jǐn)?shù)的分母之和。試求出此數(shù)列的前25項(xiàng)中其值大于0.618的項(xiàng)數(shù)。SET TALK OFFCLEARF1=1F2=2N=0FOR K=1 TO 25 F=F1/F2 IF F0.618 N=N+1 ENDIF F1=F2 改正：F1=F1+F2 F2=F1 改正：F2=F1+F2ENDFOR? NSET TALK ONRETURN運(yùn)行結(jié)果：2024、回文指的

14、是正讀和反讀都一樣的一串字符，如121、1221。試求出1421,4112內(nèi)所有回文數(shù)的和。SET TALK OFFCLEARS=0FOR X=1421 TO 4112 A=X/1000 改正：A=INT(X/1000) B=INT(X-A*1000)/100) C=INT(X-A*1000-B*100)/10) D=X-A*1000-B*100-C*10 IF A=D AND B=C S=S*X 改正：S=S+X ENDIFENDFOR? SSET TALK ONRETURN運(yùn)行結(jié)果：7425025、求出1234,6789內(nèi)中間兩位數(shù)字之和等于首尾兩位數(shù)字之積的數(shù)的個(gè)數(shù)。SET TALK O

15、FFCLEARN=0FOR X=1234 TO 6789 A=INT(X/1000) B=INT(X-A*1000)/100 改正：B=INT(X-A*1000)/100) C=INT(X-A*1000-B*100)/10 改正：C=INT(X-A*1000-B*100)/10) D=X-A*1000-B*100-C*10 IF B+C=A*D N=N+1 ENDIFENDFOR? NSET TALK ONRETURN運(yùn)行結(jié)果：17526、將大于1000且能被4和6中至少一個(gè)數(shù)整除的所有整數(shù)按從小到大順序排列后，求前面20個(gè)數(shù)之和。SET TALK OFFCLEARS=0K=0X=1000DO

16、 WHILE K=20 改正：DO WHILE K20 X=X+1 IF MOD(X,4*6)=0 改正：IF MOD(X,4)=0 OR MOD(X,6)=0 S=S+X K=K+1 ENDIFENDDO? SSET TALK ONRETURN運(yùn)行結(jié)果：2061027、若一個(gè)自然數(shù)恰好等于某個(gè)整數(shù)的平方，則稱此數(shù)為完全平方數(shù)。如144是完全平方數(shù)，因?yàn)樗扔?2的平方。求1000,9999內(nèi)所有完全平方數(shù)的和。SET TALK OFFCLEARS=0FOR X=1000 TO 3000 Y=SQRT(X) 改正： Y=INT(SQRT(X) 或改下一語(yǔ)句為 IF X=INT(Y)*INT(Y

17、) IF X=Y*Y S=S+X ENDIFENDFOR? X 改正：? SSET TALK ONRETURN運(yùn)行結(jié)果：4353928、若一個(gè)自然數(shù)恰好是它的平方的末后幾位數(shù)，則稱此數(shù)為自同構(gòu)數(shù)。如5和76都是自同構(gòu)數(shù)，因?yàn)樗鼈兊钠椒椒謩e是25和5776。求2,99999內(nèi)所有自同構(gòu)數(shù)之和。（提示：若X是M位同構(gòu)數(shù)，則X的平方除以10的M次方的余數(shù)就是X）SET TALK OFFCLEARS=0FOR X=2 TO 99999 Y=X*X M=LEN(LTRIM(STR(X) & 設(shè)X是M位數(shù) IF MOD(Y,10*M)=X 改正：IF MOD(Y,10*M)=X S=S+X ENDIFEN

18、DFOR? Y 改正：? SSET TALK ONRETURN運(yùn)行結(jié)果：10111429、求滿足條件A*B=54321且使A+B的值最小的自然數(shù)對(duì)A、B中較大的一個(gè)數(shù)。（提示：設(shè)A0R=MOD(A,P)IF R=1N=1 改正：N=N+1ENDIFA=INT(A/P)ENDDO? NSET TALK ONRETURN運(yùn)行結(jié)果：1332、4087求出將十進(jìn)制整數(shù)98765432等值轉(zhuǎn)換為二進(jìn)制形式表示后其中數(shù)字0的個(gè)數(shù)。（提示：模擬人工計(jì)算的“2除取余”法）SET TALK OFFCLEARA=98765432P=2N=0DO WHILE A=0 改正：DO WHILE A0R=MOD(A,P)

19、IF R=0N=P+1 改正：N=N+1ENDIFA=INT(A/P)ENDDO? NSET TALK ONRETURN運(yùn)行結(jié)果：1433、 求出將十進(jìn)制整數(shù)99887766554等值轉(zhuǎn)換為十六進(jìn)制形式表示后其中字母C的個(gè)數(shù)。（提示：模擬人工計(jì)算的“16除取余”法）SET TALK OFFCLEARA=99887766554P=16N=0DO WHILE A=0R=MOD(A,P)IF R=11 改正：IF R=12N=N+R 改正：N=N+1ENDIFA=INT(A/P)ENDDO? NSET TALK ONRETURN運(yùn)行結(jié)果：234、對(duì)自然數(shù)A、B、C，若ABC且A*A+B*B=C*C，

20、則稱A,B,C為一組勾股弦數(shù)，其中A、B、C分別稱為勾、股、弦。試求出弦為25000的勾股弦數(shù)組的個(gè)數(shù)。SET TALK OFFCLEARC=25000N=1 改正：N=0FOR A=1 TO CB=INT(SQRT(C*C-A*A)IF A*A+B*B=C*C 改正：IF A*A+B*B=C*C AND ABN=N+A 改正：N=N+1ENDIFENDFOR? NSET TALK ONRETURN運(yùn)行結(jié)果：535、4094對(duì)自然數(shù)A、B、C，若ABC且A*A+B*B=C*C，則稱A,B,C為一組勾股弦數(shù)，其中A、B、C分別稱為勾、股、弦。試求出弦為1300的勾股弦組數(shù)。SET TALK OF

21、FCLEARC=1300N=0FOR A=1 TO CB1=SQRT(C*C-A*A)B=INT(B1)IF B=B1 改正：IF B=B1 AND ABN=N+B 改正：N=N+1ENDIFENDFOR? NSET TALK ONRETURN運(yùn)行結(jié)果：740、求方程3X-7Y=1在條件|X|100且|Y|40下的整數(shù)解的個(gè)數(shù)。SET TALK OFFCLEARN=0FOR X=-99 TO 99Y=INT(3*X-1)/7)IF 3*X-7*Y=1 OR ABS(Y)40 改正： IF 3*X-7*Y=1 AND ABS(Y)40N=N+X 改正：N=N+1ENDIFENDFOR? NSET

22、 TALK ONRETURN運(yùn)行結(jié)果：2641、求方程3X-7Y=1在條件|X|100且|Y|40下的所有整數(shù)解的|X|+|Y|的最大值。SET TALK OFFCLEARMAX=140 改正：MAX=0FOR X=-99 TO 99Y=INT(3*X-1)/7)Z=ABS(X+Y) 改正：Z=ABS(X)+ABS(Y)IF 3*X-7*Y=1 AND ABS(Y)Z 改正：IF 3*X-7*Y=1 AND ABS(Y)40 AND MAXZMAX=ZENDIFENDFOR? MAXSET TALK ONRETURN運(yùn)行結(jié)果：12742、求1001000內(nèi)的第10個(gè)素?cái)?shù)。（素質(zhì)是指只能被1和本

23、身整除的數(shù)）SET TALK OFFCLEAN=0K=0FOR I=100 TO 1000F=1FOR J=2 TO I 改正：FOR J=2 TO I-1IF MOD(I,J)=0F=0EXITENDIFENDFORIF F=1N=IK=K+I 改正：K=K+1IF K=10EXITENDIFENDIFENDFOR? NRETURN運(yùn)行結(jié)果：14943、對(duì)自然數(shù)A、B、C，若ABC且A*A+B*B=C*C，則稱A,B,C為一組勾股弦數(shù)，其中A、B、C分別稱為勾、股、弦。試求出弦為2500的勾股數(shù)組中ABC的值最大為多少？。SET TALK OFFCLEARC=2500MAX=0FOR A=1

24、 TO CB=INT(SQRT(C*2-A*2) 改正：B=INT(SQRT(C*2-A*2)IF A*A+B*B=C*C AND AA+B+C 改正：IF MAXX+Y 改正：IF MAXX+YMAX=X+YENDIFENDIFENDFORENDFOR? MAXSET TALK ONRETURN運(yùn)行結(jié)果：4947、已知24有8個(gè)正整數(shù)因子(即:1,2,3,4,6,8,12,24)，而24正好被其因子個(gè)數(shù)8整除。求100,300之間能被其因子數(shù)目整除的數(shù)的個(gè)數(shù)。SET TALK OFFCLEAC=0FOR N=100 TO 300S=0FOR I=1 TO N -1 改正：FOR I=1 TO

25、 NIF INT(I/10)=0 改正：IF INT(I/10)=I/10 或改為 IF MOD(I,10)=0S=S+1ENDIFENDFORIF MOD(N,S)=0C=C+1ENDIFENDFOR? CSET TALK ONRETURN運(yùn)行結(jié)果：1948、分子分母為正整數(shù)，分子小于分母的分?jǐn)?shù)稱為真分?jǐn)?shù)。對(duì)于分?jǐn)?shù)的分子分母取值范圍為 50，90 且分母能被3整除的真分?jǐn)?shù)共有多少個(gè).SET TALK OFFCLEAN=1 改正：N=0FOR A=50 TO 90FOR B=50 TO 90IF MOD(B,3)=0 改正：IF MOD(B,3)=0 AND ABN=N+1ENDIFENDFO

26、RENDFOR? NSET TALK ONRETURN運(yùn)行結(jié)果：28749、分子分母為正整數(shù)，分子小于分母的分?jǐn)?shù)稱為真分?jǐn)?shù)。對(duì)于分?jǐn)?shù)的分子分母取值范圍為 50，90 且分母能被3整除、分子能被5整除的真分?jǐn)?shù)共有多少個(gè).SET TALK OFFCLEAN=1 改正：N=0FOR A=50 TO 89FOR B=50 TO 90IF MOD(B,3)=0 改正：IF MOD(B,3)=0 AND MOD(A,5)=0 AND A0R=INT(A/B) 改正：R=MOD(A,B)B=R 改正：A=BA=B 改正：B=RENDDO? ASET TALK ONRETURN運(yùn)行結(jié)果：7353、利用分解質(zhì)因

27、數(shù)的方法求出18000中含有質(zhì)因數(shù)的個(gè)數(shù)（相同的重復(fù)計(jì)數(shù)，例如，180中含有5個(gè)質(zhì)因數(shù)：2、2、3、3、5）。SET TALK OFFCLEARX=18000N=0K=1 改正：K=2DO WHILE X1IF MOD(X,K)=0N=N+1X=INT(X/K)EXIT 改正：LOOPENDIFK=K+1ENDDO? NSET TALK ONRETURN運(yùn)行結(jié)果：354、分子分母為正整數(shù)，分子小于分母且分子分母無(wú)公因數(shù)的分?jǐn)?shù)稱為最簡(jiǎn)真分?jǐn)?shù)。對(duì)于分?jǐn)?shù)的分母取值范圍為 50，90 時(shí)的最簡(jiǎn)真分?jǐn)?shù)共有多少個(gè).SET TALK OFFCLEAN=0FOR A=2 TO 89 &分子FOR B=50 T

28、O 90&分母IF AB 改正：IF AIMIN=IENDIFENDIFENDFOR? MINSET TALK ONRETURN運(yùn)行結(jié)果：152156、50個(gè)小學(xué)生按至50序號(hào)順時(shí)針圍成一圈，做出局游戲，老師站在圈外順時(shí)針從第一個(gè)人數(shù)起，每數(shù)到5時(shí)，這人從圈里出來(lái)，繼續(xù)數(shù)1,2,3,4,5,數(shù)到第5個(gè)學(xué)生時(shí)，他就出局，已出局的位置不再參加計(jì)數(shù)，直至所有的學(xué)生出局為止，問(wèn)最后一個(gè)出局的學(xué)生序號(hào)是多少號(hào)。SET TALK OFFCLEADIME A(50)FOR I=1 TO 50A(I)=0 改正： A(I)=I ENDFORK=0FOR I=1 TO 50P=1 &每趟報(bào)數(shù)DO WHILE P

29、50 K=0 改正： K=1ENDIFIF AK0P=P+1ENDIFENDDOAK=0ENDFOR? KSET TALK OFFRETURN運(yùn)行結(jié)果：1957、水仙花數(shù)是指這樣的數(shù)，其各位數(shù)字的立方和等于該數(shù)本身，如:153=13+53+33。編寫程序，計(jì)算從100年開始到2000年為止，共有多少個(gè)年號(hào)是水仙花數(shù)年號(hào)。SET TALK OFFCLEAN=1FOR I=100 TO 2000A=INT(I/1000)B=INT(I-A*1000)/100)C=MOD(I,100) 改正：C=INT(I-A*1000-B*100)/10)D=MOD(I,10)IF A*A+B*B+C*C=I 改

30、正： IF A*A*A+B*B*B+C*C*C=IN=N+1ENDIFENDFOR? NRETURN運(yùn)行結(jié)果：458、一個(gè)自然數(shù)是素?cái)?shù)，且它的數(shù)字位置經(jīng)過(guò)任意對(duì)換后仍為素?cái)?shù)，則稱為絕對(duì)素?cái)?shù)。如13，試求所有兩位絕對(duì)素?cái)?shù)的和。SET TALK OFFCLEAS=0FOR I=10 TO 99J=MOD(I,10) 改正：J=MOD(I,10)*10+INT(I/10)F1=1FOR K=2 TO I 改正：FOR K=2 TO I-1IF MOD(I,K)=0F1=0ENDIFENDFORF2=1FOR K=2 TO J-1IF MOD(J,K)=0F2=0ENDIFENDFORIF F1=1

31、改正：IF F1=1 AND F2=1S=S+IENDIFENDFOR? SRETURN運(yùn)行結(jié)果：42959、設(shè)某四位數(shù)的各位數(shù)字的平方和等于100，問(wèn)共有多少個(gè)這種四位數(shù)？SET TALK OFFCLEAN=0FOR X=1000 TO 9999 A=INT(X/1000) B=INT(X-A*1000)/100) C=_ INT(I-A*1000-B*100)/10) D=MOD(X,10) IF _ N=N+1 ENDIFENDFOR? NSET TALK ONRETURN運(yùn)行結(jié)果：4960、設(shè)某四位數(shù)的各位數(shù)字的立方和等于100，問(wèn)滿足這種條件的四位數(shù)且是素?cái)?shù)的數(shù)共有多少個(gè)？SET T

32、ALK OFFCLEAN=0FOR X=1000 TO 9999 F=1 FOR I=2 TO INT(SQRT(X) IF _ MOD(X,I)=0 F=0 EXIT ENDIF ENDFOR IF F=1 A=INT(X/1000) B=INT(X-A*1000)/100) C=INT(MOD(X,100)/10) D=MOD(X,10) IF _ A*3+B*3+C*3+D*3=100 N=N+1 ENDIF ENDIF ENDFOR? NSET TALK ONRETURN運(yùn)行結(jié)果：461、把一張一元鈔票,換成一分、二分和五分硬幣,每種至少1枚,問(wèn)兌換后硬幣總數(shù)為50枚的兌換方案有多少種

33、?SET TALK OFFCLEA_ N=1FOR YI=1 TO 100 FOR ER=1 TO 50 FOR WU=1 TO 20 IF _AND _=50 YI+ER*2+WU*5=100 YI+ER+WU N=_ N+1 ENDIF ENDFOR ENDFORENDFOR? NSET TALK ONRETURN運(yùn)行結(jié)果：1262、 把一張一元鈔票,換成一分、二分和五分硬幣,每種至少1枚,問(wèn)兌換后硬幣總數(shù)最多的與硬幣總數(shù)最少的枚數(shù)之差是多少?SET TALK OFFCLEAMIN1=10000MAX1=0FOR YI=1 TO 100 FOR ER=1 TO 50 FOR WU=1 TO

34、 20 IF _=100 YI+ER*2+WU*5=100 T=_ YI+ER+WU IF TMAX1 _ MAX1=T ENDIF IF MIN1T MIN1=T ENDIF ENDIF ENDFOR ENDFORENDFOR? MAX1-MIN1SET TALK ONRETURN運(yùn)行結(jié)果：7363、找滿足以下條件: X2+Y2+Z2=412 且X+Y+Z之值最大的三個(gè)正整數(shù)X,Y,Z, 求X+Y+Z之值.SET TALK OFFCLEAMAX=0FOR X=0 TO 41 FOR Y=0 TO 41 FOR Z=0 TO 41 IF _ X2+Y2+Z2=412 IF _ MAXX+Y+Z MAX=X+Y+Z ENDIF ENDIF ENDFOR ENDFORENDFOR? _ MAXSET TALK ONRETURN運(yùn)行