第8讲第8章 (改错).ppt

1、第八讲(),一、学习目的与要求：学会调试及编写综合程序 二、重点：循环、选择的综合使用 三、难点：综合条件 四、教学工具：投影仪、计算机 五、教学方法：讲授、演示 六、教学内容：,13、某国今年的人口总数为1亿，若以每年4%的速度递增，试求出至少要再过几年该国人口总数才会翻一翻。18,程序改错,set talk offclears=0for n=1 to 100 s=s*1.04 if s=2 loop endifendfor? nset talk onreturn,14、求100010000内的第50个素数。（素质是指只能被1和本身整除的数）,set talk offclean=0k=0fo

2、r i=1000 to 10000 f=1 for j=2 to i if mod(i,j)=0 f=0 exit endif endfor if f=0 n=i,k=k+1 if k=50 exit endif endifendfor? n,15、求S1-1/2+1/3-1/4+.的前100项之和（精确到小数点后4位）,set talk offcleas=1.0000f=1for i=1 to 100 s=s-f/i f=fendfor? sreturn,16、求出10,1000内所有能被6和9中的一个且只有一个数整除的整数的个数。,set talk offclearn=0for x=10

3、to 1000 if mod(x,6)=0 and mod(x,9)!=0 and mod(x,6)!=0 and mod(x,9)=0 n=x endifendfor? nset talk onreturn,17、求出100,600内被除3余2并且被除5余3的整数的个数。,clearn=0for x=100 to 600 if mod(x,3*5)=2*3 n=x+1 endifendfor? nset talk onreturn,18、求出123,321内恰好有两个数字相同的数的个数。,set talk offclearn=0for x=123 to 321 a=int(x/100) b=

4、int(x-a*100)/10 c=x-a*100-b*10 if a=b and ac or ab and a=c n=n+1 endifendfor? nset talk onreturn,19、求出1234,2345内恰好有两位数字是6的所有整数之和（注意AT()函数和STR()函数的功能）。（如果最多只有一位是6的呢？）,set talk offclears=0for x=1234 to 3456 if at(6,str(x),2)=0 and at(6,str(x),3)0 s=s+1 endifendfor? sset talk onreturn,20、求出100以内的最大的自然数

5、n，使得算式1+1/(1+2)+1/(1+2+n)的值小于1.9。,set talk offclears=0t=0for n=1 to 100 s=s+1/n t=t+s if t=1.9 exit endifendfor? n-1set talk onreturn,21、求出100以内使得算式1*2+2*3+n*(n+1)的值小于5000的最大的自然数n。,set talk offclears=0for n=1 to 100 a=n*(n+1) s=s+a if s5000 exit endifendfor? n,22、求出203267的所有真因子（即小于它本身的约数）中最大的。,set t

6、alk offcleara=203267for b=1 to a if mod(a,b)=0 max=a endifendfor? maxset talk onreturn,24、求出将十进制小数0.56789等值转换为八进制形式的表示中前18位小数中数字3的个数。（提示：使用“8乘取整”法）,set talk offclearx=0.56789n=0for k=1 to 18 x=8*x z=int(x) x=x-z if z=3 n=n+z endifendfor? n,25、求方程3x-7y=1在条件|x|100且|y|40下的所有整数解的|x|+|y|的最大值。,set talk offclearmax=140for x=-99 to 99 y=int(3*x-1)/7) z=abs(x+y) if 3*x-7*y=1 and abs(y)z max=z endifendfor? max,27、求所有符合算式ab*ba=2701的最小的两位数ab（即a*10+b）。其中a、b是19之间的一位整数。,clearfor x=11 to 99 a=x/10 b=mod(x,10) y=10