VFP程序设_计题(_省二必备).doc

1、求100以内最大的自然数N，使得从1开始的连续N个自然数的倒数之和小于3.5。 SET TALK OFF CLEAR S=0 FOR N=1 TO 100 S=(S+1)/N 改正：S=S+1/N IF S=3.5 LOOP 改正：EXIT ENDIF ENDFOR ? N-1 SET TALK ON RETURN 运行结果：18 2、求100以内最小的自然数N，使得从1开始的连续N个自然数的倒数之和大于3.6。 SET TALK OFF CLEAR S=0 FOR N=1 TO 100 S=S+1/N IF S=3.6 改正：IF S3.6 LOOP 改正：EXIT ENDIF ENDFOR ? N SET TALK ON RETURN 运行结果：21 3、求50以内最大的自然数N，使得从102开始的连续N个偶数之和小于3000。 SET TALK OFF CLEAR S=0 FOR N=1 TO 50 A=100+2*N S=S*A 改正：S=S+A IF S=3000 LOOP 改正：EXIT ENDIF ENDFOR ? N-1 SET TALK ON RETURN 运行结果：23 4、求50以内最小的自然数N，使得从102开始的连续N个偶数之和大于2000。 SET TALK OFF CLEAR S=0 FOR N=1 TO 50 A=102+2*N 改正：A=100+2*N S=S+A IF S2000 LOOP 改正：EXIT ENDIF ENDFOR ? N SET TALK ON RETURN 运行结果：17 5、求出100以内使得算式1*2+2*3+…+N*(N+1)的值小于5000的最大的自然数N。 SET TALK OFF CLEAR S=0 FOR N=1 TO 100 A=N*(N+1) S=S+A IF S5000 改正：IF S5000 EXIT ENDIF ENDFOR ? N 改正：? N-1 SET TALK ON RETURN 运行结果：23 6、求出100以内使得算式1*2+2*3+…+N*(N+1)的值大于6000的最小的自然数N。 SET TALK OFF CLEAR S=0 FOR N=1 TO 100 A=N*(N+1) S=S+A IF S=6000 改正：IF S6000 LOOP 改正：EXIT ENDIF ENDFOR ? N SET TALK ON RETURN 运行结果：26 7、求出100以内使得算式1+(1+2)+…+(1+2+…+N)的值小于1000的最大的自然数N。 SET TALK OFF CLEAR S=0 T=0 FOR N=1 TO 100 S=S+N T=T+S IF T1000 改正：IF T1000 EXIT ENDIF ENDFOR ? N 改正：? N-1 SET TALK ON RETURN 运行结果：17 8、求出100以内最大的奇数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 2 A=1/N-1/(N+1) S=S+A IF S0.68 改正：IF S0.68 EXIT ENDIF ENDFOR ? N-2 SET TALK ON RETURN 运行结果：35 9、某国在2000年时人口总数为1亿，若以每年3%的速度递增，试求出至少要到哪一年该国人口总数才会翻一翻。 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 运行结果：2024 9、设等比数列：1，2，4，8，…。求使得此数列的前N项之和大于100000的最小的自然