省二级程序题.docVIP

南校区省二级VF程序题解 1. 求[10,1000]内所有能被被7和9中至少一个数整除的整数之个数。 * skgc1.prg set talk off clear s=0 s=0改为n=0 for x=10 to 1000 if mod(x,7)=0 and mod(x,9)=0 and改为or n=n+x n=n+x改为n=n+1 endif endfor ? x x改为n set talk on return 结果为: 236 2. 求[10,1000]内所有能同时被7和9整除的整数之和。 set talk off clear s=0 for x=10 to 1000 if mod(x,7)=0 and mod(x,9)=0 s=x s=x改为s=s+x endif endfor ? x x改为s set talk on return 结果为：7560 7.求100以内最大的自然数n，使得从1开始的连续n个自然数的倒数之和小于3.5。 * * skgc7.prg set talk off clear s=0 for n=1 to 100 s=s+1/n s=(s+1)/n 改为 s=s+1/n if s=3.5 exit loop 改为 exit endif endfor ? n-1 set talk on return 结果为：18 9. 求100以内最大的自然数n，使得从1开始的连续n个自然数的平方和小于5000。 set talk off clear s=0 for n=1 to 100 s=s+n*2 改为s=s+n**2 if s=5000 exit endif endfor ? n 改为 ? n-1 set talk on return 结果为：24 16. 求出50以内最小的自然数n，使得从101开始的连续n个奇数之和大于3000。 set talk off clear s=0 for n=1 to 50 a=101+2*n a=101+2*n 改为 s=s+99+2*n s=s+a 去掉 s=s+a if s3000 exit endif endfor ? s ? s 改为 ? n set talk on retur 结果为：25 17. 求出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 s5000 改为 s=5000 exit endif endfor ? n ? n 改为 ? n-1 set talk on return 结果为：23 20. 求出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 t1000 改为 t=1000 exit endif endfor ? n ? n 改为 ? n-1 set talk on return 结果为：17 28. 某国在2000年时人口总数为1亿，若以每年3%的速度递增，试求出至少要到哪一年该国人口总数才会翻一翻。 set talk off clear s=1 for n=2001 to 2100 s=s*1.03 if s=2 s=2 改为 s2 loop loop 改为 exit endif endfor ? n set talk on return 结果为：2024 30. 设等比数列：1，2，4，8，…。求使得此数列的前n项之和大于100000的最小的自然数n。 set talk of