程序设计练习题(参考程序

1、程 序 设 计 练 习 题或SET TALK OFFCLEARA=B=DO WHILE B0R=MOD(A,B)A=BB=RENDDO? ASET TALK ONRETURN1、求出和的最大公约数。（注：在数学上，常用(A,B)表示A和B的最大公约数。且有结论：若有等式A=B*Q+R，则(A,B)=(B,R)。例如，因为62=20*3+2且20=2*10+0，所以(62,20)=(20,2)=(2,0)=2 ）SET TALK OFFCLEARA=B=FOR I=1 TO A IF MOD(A,I)=0 AND MOD(B,I)=0 MAX=I ENDIFENDFOR?MAXSET TALK

2、ONRETURN2、求S=1+(1+3)+(1+3+5)+(1+3+5+7+99)的值SET TALK OFFCLEARSUB=0FOR N=1 TO 50 S=0 FOR I=1 TO N S=S+2*I-1 ENDFOR SUB=SUB+SENDFOR?SUBSET TALK ONRETURN3、梅森尼数是指能使2N-1为素数的数N，求1，21范围内最大的梅森尼数？SET TALK OFFCLEARFOR N=1 TO 21 M=2N-1 FOR I=2 TO SQRT(M) IF MOD(M,I)=0 EXIT ENDIF ENDFOR IF ISQRT(M) B=N ENDIFENDF

3、OR?BSET TALK ONRETURN4、已知数列：1，2，4，7，11，16，其规律是相邻两项之差依次是1，2，3，4，5，。试求此数列的前30项的和。SET TALK OFFCLEARA=1 & 用A表示已知数列的项,A=1为第一项S=1 & S表示列的和,以数列的第一项为初值FOR N=1 TO 29 A=A+N & 先计算数列的各项 S=S+AENDFOR?SSET TALK ONRETURN5、一个数如果等于其每一个数字立方之和，则称此数为阿姆斯特朗数。如407=43+03+73是一个阿姆斯特朗数。编程序输出1，2000之间所有的阿姆斯特朗数。SET TALK OFFCLEARF

4、OR I=1 TO 2000 A1=MOD(I,10) A2=INT(MOD(I,100)/10) A3=INT(MOD(I,1000)/100) A4=INT(I/1000) IF I=A13+A23+A33+A43 ?I ENDIFNEXTSET TALK ONRETURN& 如果要求程序输出1，2000之间有多少个阿姆斯特朗数，程序应如何修改？& 如果要求程序输出1，2000之间最大的阿姆斯特朗数，程序应如何修改？& 如果要求程序输出1，2000之间最大的及第二大的阿姆斯特朗数，程序应如何修改？6、有一个4行5 列的表，位于第M行第N列交叉处的数的值 为M+N。求出表中所有数的和。SET

5、 TALK OFFCLEARS=0FOR M=1 TO 4 FOR N=1 TO 5 MN=M+N S=S+MN ENDFORENDFOR?SSET TALK ONRETUNR7、求出所有符合算式AB*BA=6624的两位数AB（即A*10+B）。其中A、B是09之间的一位整数。SET TALK OFFCLEARFOR M=11 TO 99 A=INT(M/10) B=MOD(M,10) N=B*10+A IF M*N=6624 ?M ENDIFENDFORSET TALK ONRETURN8、求600， 799内的素数，且要求该素数至少有一位为9。问：(1) 共有多少个? (2) 其中最大一

6、个数是多大?SET TALK OFFCLEARSUM=0BIGGEST=0FOR I=600 TO 799 FLAG=0 FOR J=2 TO SQRT(I) IF MOD(I,J)=0 FLAG=1 EXIT ENDIF ENDFOR IF FLAG=0 AND 9$STR(I) SUM=SUM+1 BIGGEST=I ENDIFENDFOR?600，799内至少有一位为9的素数有+LTRIM(STR(SUM)+个，其中最大的是+LTRIM(STR(BIGGEST)+。SET TALK ONRETURN9、回文数是指正读和反读都一样的自然数、 例如，8，121，5445这三个数都是回文数。试

7、在10，之内找出既是完全平方数，又是回文数的整数。求： (1) 共有多少个? (2) 最大一个是多大?SET TALK OFFCLEARK=0FOR M=10 TO L=LEN(ALLTRIM(STR(M) FOR I=1 TO L/2 IF SUBSTR(ALLTRIM(STR(M),I,1)SUBSTR(ALLTRIM(STR(M),L-I+1,1) EXIT ENDIF ENDFOR IF IL/2 K=K+1 MAX=M ENDIFENDFOR?K,MAXSET TALK ONRETURN10、在10000， 20000范围内考察个位数字是3的素数， 问：(1) 这样的素数有多少个?

8、(2) 其中最大的一个等于几?SET TALK OFFCLEARK=0FOR N=10000 TO 20000 FOR I=2 TO SQRT(N) IF MOD(N,I)=0 EXIT ENDIF ENDFOR IF ISQRT(N) AND MOD(N,10)=3 K=K+1 MAX=N ENDFIFENDFOR?K,MAXSET TALK ONRETURN 11、如果一个整数的最高位与最低位相同， 次高位与次低位相同， 依此类推， 则称该数是对称的， 特别是当整数只有一位数据时， 也称它是对称的， 例如: 7，11， 1221， 45654 等均称为对称的整数。计算: (1) 在0850

9、0范围内有多少个对称的整数? (2) 这些对称的整数中， 为奇数的个数是多少?SET TALK OFFCLEARK=0S=0FOR M=1 TO 8500 L=LEN(ALLTRIM(STR(M) FOR I=1 TO L/2 IF SUBSTR(ALLTRIM(STR(M),I,1)SUBSTR(ALLTRIM(STR(M),L-I+1,1) EXIT ENDIF ENDFOR IF IL/2 K=K+1 IF MOD(M,2)0 S=S+1 ENDIF ENDIFENDFOR?K,SSET TALK ONRETURN12、在10000， 20000范围内考察个位数字是7的素数， 问: (1

10、) 这样的素数有多少个? (2) 其中最大的一个等于几?SET TALK OFFCLEARK=0FOR N=10000 TO 20000 FOR I=2 TO SQRT(N) IF MOD(N,I)=0 EXIT ENDIF ENDFOR IF ISQRT(N) AND MOD(N,10)=7 K=K+1 MAX=N ENDFIFENDFOR?K,MAXSET TALK ONRETURN13、假定一个分数的分子和分母均是两位整数，求满足下列两个条件的该类分数的真分数： 分子的个位数与分母的十位数相同; 去掉分子的个位数和分母的十位数后， 真分数的值不变。编程计算：(1) 满足上述条件的真分数有

11、多少个? (2) 满足上述条件的最大真分数是多少?SET TALK OFFCLEARK=0MAX=0FOR M=11 TO 99 & M为分母 FOR N=10 TO M-1 & N为分子 AM=MOD(M,10) BM=INT(M/10) AN=MOD(N,10) BN=INT(N/10) IF AN=BM AND BN/AM=N/M K=K+1 IF N/MMAX MAX=N/M ENDIF ENDIF ENDFORENDFOR?K,MAXSET TALK ONRETURN14、如果一个数列的头两个数是0和1， 从第三个数开始， 每个数等于前两个数之和 (即: 0， 1， 1， 2， 3，

12、 5， 8， 13， )， 则称该数列为裴波纳契数列，编程计算:(1) 大于等于10000的第一个裴波纳契数是多少?(2) 小于等于10000的裴波纳契数共有多少个?SET TALK OFFCLEARN=30DIME F(N,2)F(1,1)=Fib(1)F(1,2)=0F(2,1)=Fib(2)F(2,2)=1FIRST=0K=0FOR I=3 TO N F(I,1)=Fib(+ALLT(STR(I)+) F(I,2)=F(I-2,2)+F(I-1,2)ENDFORFOR I=1 TO N ?F(I,1),F(I,2)ENDFORFOR I=1 TO N IF F(I,2)=10000 FI

13、RST=F(I,2) EXIT ELSE K=K+1 ENDIFENDFOR? 大于等于10000的第一个裴波纳契数是+ALLT(STR(FIRST)+，小于等于10000的裴波纳契数共有+ALLT(STR(K)+个。SET TALK ONRETURN15、有一数列: A0， A1， ， AN， ， 已知其取值为A0=0， A1=1， A2=2， 从第四个数(即A3)开始，以后的每一个数均为最靠近该数的前面三个相邻数之和，(即对任意给定的整数I (I=3)， 均有AI=AI-1+AI-2+AI-3)， 请计算该数列的第35个数(即A34)或者其值刚好=10000的某个数(此两个条件只要求出现一

14、个即可)， 问:(1) 该数的值是多少? (2) 该数是该数列的第几项?SET TALK OFFCLEARN=35LOCATIN=1DIME F(N)F(1)=0F(2)=1F(3)=2FIRST=1FOR I=4 TO N F(I)=F(I-3)+F(I-2)+F(I-1)ENDFORFOR I=1 TO N IF F(I)=10000 FIRST=F(I) LOCATION=I EXIT ENDIFENDFORIF I=N ? 该数的值是+ALLT(STR(FIRST)+，它是该数列的第+ALLT(STR(LOCATION)+个。ELSE ? 该数的值是+ALLT(STR(F(35)+，它

15、是该数列的第35个。ENDIFSET TALK ONRETURN16、求700， 899内的素数，且要求该素数至少有一位为1。问： (1) 共有多少个? (2) 其中最大一个数是多大?SET TALK OFFCLEARSUM=0BIGGEST=0FOR I=700 TO 899 FLAG=0 FOR J=2 TO SQRT(I) IF MOD(I,J)=0 FLAG=1 EXIT ENDIF ENDFOR IF FLAG=0 AND 1$STR(I) SUM=SUM+1 BIGGEST=I ENDIFENDFOR?700，899内至少有一位为1的素数有+LTRIM(STR(SUM)+个，其中最

16、大的是+LTRIM(STR(BIGGEST)+。SET TALK ONRETURN17、老王和他的孙子年龄之差为60岁，都出生于20世纪， 两人的出生年份分别被3，4， 5和6除， 余数均为1， 2， 3和4。问：(1) 老王出生在哪一年? (2) 老王的孙子出生在哪一年?SET TALK OFFCLEAROLD_WANG=1900FOR Y= 1900 TO 1940 IF MOD(Y,3)=1 AND MOD(Y,4)=2 AND MOD(Y,5)=3 AND ; MOD(Y,6)=4 AND MOD(Y+60,3)=1 AND MOD(Y+60,4)=2 ; AND MOD(Y+60,5

17、)=3 AND MOD(Y+60,6)=4 OLD_WANG=Y ENDIFENDFOR?老王出生在+ALLT(STR(OLD_WANG)+年，他的孙子出生在+ALLT(STR(OLD_WANG+60)+年。SET TALK ONRETURN18、求200， 399内的素数，且要求该素数至少有一位为6。问：(1) 共有多少个? (2) 其中最大一个数是多大?SET TALK OFFCLEARSUM=0BIGGEST=0FOR I=200 TO 399 FLAG=0 FOR J=2 TO SQRT(I) IF MOD(I,J)=0 FLAG=1 EXIT ENDIF ENDFOR IF FLAG

18、=0 AND 6$STR(I) SUM=SUM+1 BIGGEST=I ENDIFENDFOR?200，399内至少有一位为6的素数有+LTRIM(STR(SUM)+个，其中最大的是+LTRIM(STR(BIGGEST)+。SET TALK ONRETURN19、一自然数平方的末几位与该数相同时，称此数为自同构数。例如，由于52=25，252=625，所以5， 25都是自同构数。求： (1) 1，10000以内的自同构数有多少个?(2) 求1，10000以内的第5个自同构数。SET TALK OFFCLEARK=0FOR M=1 TO 10000 L=LEN(ALLT(STR(M) IF MO

19、D(M2,10L)=M K=K+1 IF K=5 B=M ENDIF ENDIFENDFOR?K,BSET TALK ONRETURN20、对1， 800范围内能被3和5整除但不能被7整除的整数， 回答下列问题： (1) 这样的整数有多少个? (2) 所有这些整数之和是多少? SET TALK OFFCLEARK=0S=0FOR I=1 TO 800 IF MOD(I,3)=0 AND MOD(I,5)=0 AND MOD(I,7)0 K=K+1 S=S+I ENDIFENDFOR?1， 800范围内能被3和5整除但不能被7整除的整数有+ALLT(STR(K)+个, 所有这些整数之和是+ALL

20、T(STR(S)SET TALK ONRETURN21、求具有下列性质的最小自然数N: N的个位数字是6; 如果将N的个位数字移到其 余各位数之前, 所得的新数是N的4倍。(1) 编程求此数。 (2) 在1, 区间内有几个这样的数?SET TALK OFFCLEARFIRST=0K=0FOR I=46 TO STEP 100 L=LEN(ALLT(STR(I) IF INT(6*10(L-1)+INT(I/10)=4*I K=K+1 IF K=1 FIRST=I ENDIF ENDIFENDFOR?FIRST, KSET TALK ONRETURN22、求400, 599内的素数，且要求该素数

21、至少有一位为3。问：(1) 共有多少个? (2) 其中最大一个数是多大?SET TALK OFFCLEARSUM=0BIGGEST=0FOR I=400 TO 599 FLAG=0 FOR J=2 TO SQRT(I) IF MOD(I,J)=0 FLAG=1 EXIT ENDIF ENDFOR IF FLAG=0 AND 3$STR(I) SUM=SUM+1 BIGGEST=I ENDIFENDFOR?400，599内至少有一位为3的素数有+LTRIM(STR(SUM)+个，其中最大的是+LTRIM(STR(BIGGEST)+。SET TALK ONRETURN23、在1000, 10000

22、内寻找满足以下条件的整数：被5除余4，被7除余5，被9除余6。问：(1) 共有多少个? (2) 其中最大一个数是多大?SET TALK OFFCLEARK=0S=0FOR I=1000 TO 10000 IF MOD(I,5)=4 AND MOD(I,7)=5 AND MOD(I,9)=6 K=K+1 S=I ENDIFENDFOR?1000， 10000范围内被5除余4，被7除余5，被9除余7的整数有+ALLT(STR(K)+个, 其中最大的数是+ALLT(STR(S)SET TALK ONRETURN24、求方程5X-4Y=2，在|X|=100, |Y|BIGGEST BIGGEST=BI

23、GGEST1ENDIF ?该方程共有整数解+ALLT(STR(K)+个，在这些解中|X|+|Y|的最大值是+ALLT(STR(BIGGEST)+。25、设有用26个字母表示的26个表达式：A=1，B=1/(A+1)，C=1/(B+2)，Z=1/(Y+25)。试求出这26个字母中其值小于0.1的字母个数。SET TALK OFFCLEARLETT=1N=0FOR K=1 TO 25 LETT=1/(LETT+K) IF LETT2000 EXIT ENDIFENDFOR? NSET TALK ONRETURN28、数列：F(1)=F(2)=1 F(N)=F(N-1)+F(N-2) (N2)称为F

24、IBONACCI数列。每一个F(N) 称为FIBONACCI数。编程求： (1) 1，2000以内最大的FIBONACCI数。 (2) 1，2000以内既是FIBONACCI数，又是素数的数有多少个？SET TALK OFFCLEARN=20BIGGEST=0DIME F(N)F(1)=1F(2)=1FOR I=3 TO N F(I)=F(I-2)+F(I-1)ENDFORK=0FOR I=1 TO N IF F(I)2000 BIGGEST=F(I) IF P(F(I) AND F(I)1 K=K+1 ENDIF ENDIFENDFOR?1,2000内最大的FIBONACCI数是+ALLT(

25、STR(BIGGEST)+, 既是FIBONACCI数又是素数的数有+ALLT(STR(K)+个.FUNC P & 定义一个自定义函数用来判断素数PARA XFLAG=.T.FOR Y=2 TO SQRT(X) IF MOD(X,Y)=0 FLAG=.F. EXIT ENDIFENDFORRETURN FLAG29、若三个正整数A，B，C满足条件A2+B2=C2，则称A，B，C为一组勾股数(例如 52+12*2=132,故5, 12, 13称为一组勾股数, 其中，符号“”表示乘方, A2表示A的2次方), 设C值在10,30之中，问：(1) 所有勾股数组的个数S1? (2) 具有相同C值且C值

26、为最大的不同勾股数组的个数S2?SET TALK OFFCLEARS1=0FOR C=10 TO 30 S2=0 FLAG=.F. FOR A=1 TO C FOR B=A TO C IF A2+B2=C2 S1=S1+1 FLAG=.T. ENDIF ENDFOR ENDFOR IF FLAG=.T. S2=S2+1 ENDIFENDFOR?S1=+ALLT(STR(S1)+ S2=+ALLT(STR(S2)30、考虑不同进位制的数，编程求：(1) 十进制数9765的三进制数是多少? (2) 十六进制数16B的三进制数是多少?&考虑不同进位制的数，编程求：&(1) 十进制数9765的三进制数

27、是多少? (2) 十六进制数16B的三进制数是多少?SET TALK OFFCLEARA=9765B=3A_3=DO WHILE A0 C=MOD(A,B) A=INT(A/B) A_3=STR(C,1)+A_3ENDDO?A_3M=1*162+6*16+11B=3M_3=DO WHILE M0 C=MOD(M,B) M=INT(M/B) M_3=STR(C,1)+M_3ENDDO?M_3SET TALK ONRETURN31、求出45678的所有非平凡因子（即除1和它本身以外的约数）中是奇数的因子个数。SET TALK OFFCLEARA=45678N=0FOR B=3 TO A-1 STE

28、P 2 IF MOD(A,B)=0 N=N+1 ENDIFENDFOR? NSET TALK ONRETURN32、已知腊笔0.5元/支，铅笔2元/支，圆珠笔3元/支，现要求用100元买100支笔，且圆珠笔只要8支。问：(1) 铅笔应买多少支? (2) 腊笔应买多少支?SET TALK OFFCLEARP1=0P2=0FOR I=1 TO 50 IF I*2+(92-I)*0.5=100-8*3 P1=I P2=92-I ENDIFENDFOR?铅笔应买+ALLTR(STR(P1)+支, 腊笔应买+ALLT(STR(P2)+支. SET TALK ONRETURN33、在20000, 3000

29、0内存在这样一个唯一的五位十进制整数N，当它乘以某十进 制数字D(D0, D1)时，结果正好为N的颠倒数(例如，22345的颠倒数为54322)。问：(1) N多大? (2) D多大?SET TALK OFFCLEARN=0D=0FOR I=20000 TO 30000 A1=MOD(I,10) A2=MOD(INT(I/10),10) A3=MOD(INT(I/100),10) A4=MOD(INT(I/1000),10) A5=INT(I/10000) FOR J=2 TO 9 IF I*J=A1*10000+A2*1000+A3*100+A4*10+A5 N=I D=J ENDIF EN

30、DFORENDFOR?N=+ALLT(STR(N)?D=+ALLT(STR(D)SET TALK ONRETURN34、一个素数称之为超级素数，若该素数依次去掉个位，十位，.等等, 每次所得的数仍然是素数。例如239就是超级素数。试编程求200, 9999之内: (1) 有多少个超级素数？ (2) 最大、次大的超级素数， （3）超级素数之和。SET TALK OFFCLEARBIGGEST1=0BIGGEST2=0S=0KK=0FOR I=200 TO 9999 A=ALLT(STR(I) LENGTH=LEN(A) FLAG1=1 FOR K=LENGTH TO 1 STEP -1 M=VA

31、L(LEFT(A,K) FLAG2=1 FOR J=2 TO SQRT(M) IF MOD(M,J)=0 OR M=1 FLAG2=0 EXIT ENDIF ENDFOR IF FLAG2=0 FLAG1=0 EXIT ENDIF ENDFOR IF FLAG1=1 S=S+I BIGGEST2=BIGGEST1 BIGGEST1=I KK=KK+1 ?I ENDIFENDFOR?KK,BIGGEST1,BIGGEST2,SSET TALK ONRETURN也可使用自定义函数，改写程序如下：SET TALK OFFCLEARBIG1=0BIG2=0S=0kk=0FOR I=100 TO 999

32、9 M=I LENGTH=LEN(ALLT(STR(I) FOR K=1 TO LENGTH IF !SU(M) OR M=1 EXIT ENDIF M=INT(M/10) ENDFOR IF KLENGTH S=S+I BIG2=BIG1 BIG1=I kk=kk+1 ENDIFENDFOR?KK,BIG1,BIG2,SSET TALK ONRETURNFUNCTION SUPARA XFLAG=.T.FOR Y=2 TO SQRT(X) IF MOD(X,Y)=0 FLAG=.F. EXIT ENDIFENDFORRETURN FLAG35、编程进行高精度除法计算，令A=113，B=355

33、, 不考虑四舍五入，求A/B的结果中：(1) 小数点后第40位的数字。 (2) 小数点后前40位数字之和。SET TALK OFFCLEARA=113B=355NUM=0S=0FOR I=1 TO 40 NUM=INT(10*A/B) S=S+NUM A=MOD(10*A,B)ENDFOR?在113/335 的结果中小数点后第40位的数字为+ALLT(STR(NUM)+, 小数点后前40位数字之和为+ALLT(STR(S)SET TALK ONRETURN36、设 S(N) =135 + 357 + + (2N-1)(2N+1)(2N+3),N为正整数，设计程序：(1)求S(30)的值。 (2

34、)求满足S(N)的最小的整数N值。SET TALK OFFCLEARS1=0S2=0FOR N1=1 TO 26 S1=S1+(2*N1-1)*(2*N1+1)*(2*N1+3)ENDFORN=1DO WHILE S2的最小整数是,N-1SET TALK ONRETURN37、若某个正整数的平方正好等于另外两个正整数的平方之和, 则称此数为弦数。例如, 由于 52=32+42, 所以5是一个弦数(注:符号表示乘方，52表示5的2次方)。求170,179范围内:(1) 弦数的个数; (2) 最大的弦数。SET TALK OFFCLEARCLEAR ALLN=0BIGGEST=0FOR I=170

35、 TO 179 FLAG=.F. FOR J=1 TO I FOR K=J TO I IF I*I=J*J+K*K N=N+1 BIGGEST=I FLAG=.T. EXIT ENDIF ENDFOR IF FLAG=.T. & 因为一个数可以是不同的两个数的平方和, EXIT & 如1302=322+1262=502+1202=662+1122 ENDIF & 为了不重复计算,必须在一定条件下停止循环 ENDFORENDFOR?170，179范围内的弦数有+ALLT(STR(N)+个，最大的弦数为+ALLT(STR(BIGGEST)38、市场上公鸡三元一只，母鸡五元一只，小鸡一元三只，某人想

36、用100元来买100 只鸡(不剩钱), 且要求这三种鸡至少各有一只。问：(1) 共有多少种买法? (2) 在所有的这些买法中，母鸡最多可买几只?SET TALK OFFCLEARCOCK=0HEN=0CHICKEN=0K=0FOR COCK=33 TO 1 STEP -1 FOR HEN=1 TO 20 CHICKEN=100-COCK-HEN IF COCK*3+HEN*5+CHICKEN/3=100 K=K+1 M_HEN=HEN ENDIF ENDFORENDFOR?共有买法+ALLT(STR(K)+种, 在所有的这些买法中, 母鸡最多可买+ALLT(STR(M_HEN)+只. SET

37、TALK ONRETURN39、设M=ABC为一个三位整数(A为百位数, B为十位数, C为个位数)，由A、B、C形成一个新的三位数N=CAB。问：(1) 满足条件：M=2*N+9的三位数有多少个(K)? (2) 在满足(1)条件的K个数中,最大一个是多大?SET TALK OFFCLEARK=0BIGGEST=0FOR A=1 TO 9 FOR B=0 TO 9 FOR C=1 TO 9 M=A*100+B*10+C N=C*100+A*10+B IF M=2*N+9 K=K+1 BIGGEST=M ENDIF ENDFOR ENDFORENDFOR?满足条件的三位数有+ALLT(STR(K

38、)+个, 最大的三位数是+ALLT(STR(BIGGEST)SET TALK ONRETURN40、假定A、B、C均为整数，且满足下列条件： A2+B2+C2=752;(注: 符号“”表示乘方，A2表示A的2次方) A+B+C的值最大; A的值最小。计算：(1) A+B+C的值是多少? (2) A的值是多少?SET TALK OFFCLEARS=0FOR A=75 TO 1 STEP -1 S1=0 FLAG=.F. FOR B=1 TO 75 FOR C=B TO 75 IF A2+B2+C2=752 S1=A+B+C FLAG=.T. ENDIF ENDFOR ENDFOR IF FLAG

39、=.T. S=S1 M=A ENDIFENDFOR?A+B+C=+ALLT(STR(S)+, A的值是+ALLT(STR(M)SET TALK ONRETURN41、已知数列：1,2,4,7,11,16,，其规律是相邻两项之差依次是1,2,3,4,5,。试求出此数列中大于5000的最小的项。（试求出此数列中小于6000的最大的项。） SET TALK OFF CLEAR A=1 FOR N=0 TO 1000 A=A+N IF A5000 EXIT ENDIF ENDFOR ? A SET TALK ON RETURN42、一球从100米高处落至平地，并且连续多次再反弹再落下，假设每次反弹的高

40、度都是前一高度的3/4倍，试求出最小的自然数N，使得此球从开始下落至第N次着地时在垂直方向所经过的总路程超过678米。SET TALK OFFCLEARH=100S=100FOR N=2 TO 100 H=H*3/4 S=S+2*H IF S678 EXIT ENDIF ENDFOR? NSET TALK ONRETURN43、正整数N是某个2位数或3位数的平方，N的十位数字等于7。编程求：(1) 满足以上条件的N有多少个? (2) N的个位数字是多少SET TALK OFFCLEARK=0FOR I=10 TO 999 N=I2 IF INT(MOD(N,100)/10)=7 K=K+1 G

41、W=MOD(N,10) ENDIFENDF?K,GWSET TALK ONRETURN44、求F=2/1+3/2+5/3+8/5+.(1) 前10项的和是多少(精确到小数点后6位)? (2) 项数至少为多少时F100。*求F=2/1+3/2+5/3+8/5+.SET TALK OFFCLEARF=0F1=1 &分母F2=2 &分子 FOR I=1 TO 10 F=F+F2/F1 FF=F2 F2=F1+F2 F1=FFENDFOR?前10项的和是+ALLT(STR(F,10,6)FF=0FF1=1 &分母FF2=2 &分子J=1DO WHILE FF100. SET TALK ONRETURN45、已知序列 X 中，X(1)=0，X(2)=1, X(N)=X(N-1)+X(N-2)，编程求：(1) X(25)的值。 (2) 前25项之和。SET TALK OFFC