原创力文档- 1、本文档共15页，可阅读全部内容。
- 2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
- 3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
查看更多
一、改错题
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。
se
文档评论（0）