多重循环程序设计1.pptVIP

多重循环程序设计 一、多重循环的概念 多重循环即循环的嵌套，是在一个循环结构的循环体中又包含另一个循环。我们称外层循环为外循环，被包含的循环为内循环。 嵌套层数一般没有限制，但内循环的循环体必须完全包含在外循环的循环体中，不能相互交叉。 以DO WHILE循环为例，正确的嵌套关系如： DO WHILE 条件表达式1 语句序列11 DO WHILE 条件表达式2 语句序列21 DO WHILE 条件表达式3 语句序列3 ENDDO 语句行序列22 ENDDO 语句行序列12 ENDDO 例3 求1-1/2+1/3-1/4+...+1/49-1/50之和。 set talk off s=0 p=-1 n=1 do while n=50 p=-p s=s+1/n*p n=n+1 enddo ? s=,s set talk on 例7.求所有符合算式ij*ji=1300的最大的和最小的数ij（即i*10+j），共有多少组这样的i,j。其中i、j是1~9之间的一位整数。 CLEAR MIN=0 N=0 FOR I=1 TO 9 FOR J=1 TO 9 IF (I*10+J)*(J*10+I)=1300 IF MIN=0 MIN=I*10+J 第一次求出来的满足条件的ij最小 ENDIF MAX=I*10+J 最后一次求出来的满足条件的ij最大 N=N+1 ENDIF NEXT NEXT ? MIN, MAX ,N 例8．若有三个正整数a、b、c满足a^2+b^2=c^2，则a，b，c称为勾股数组，编一程序，问有多少个三个数均小于100的勾股数组(注意:a,b,c不能为0)。 CLEAR N=0 FOR C=1 TO 99 FOR A=1 TO C FOR B=1 TO C IF A^2+B^2=C^2 N=N+1 ENDIF NEXT NEXT NEXT ?N 练习 1、编程计算 2!+4!+6!+8!+10!。 2、在[10000,20000]范围内考察个位数字是3的素数,问:这样的素数有多少个?其中最大的一个等于几? 3、所谓回文数是从左至右与从右至左读起来都是一样的数字，如：121是一个回文数。编写程序，求出100—900之间的所有能被3整除的回文数的个数和它们的和。 4、求s=1*2+2*3+3*4+...+n*(n+1)，当s10000时退出，求退出时n值。 5、求在1,2,3,4,...,10这10个数中,任意选两个不同的数,求它们的和能被2整除的数的总对数.(注意: 象3+5和5+3认为是同一对数) 6、用一元纸币兑换一分、两分和五分的硬币，要求兑换硬币的总数为50枚，问共有多少种换法？(注：在兑换中一分、两分或五分的硬币数可以为0枚) 7、已知一个数列的前三个数是1,2,3,从第四个数起,每个数都是前三个数之和. 下面的程序是求出该数列的第35个数的. 8、求s1=1,s2=1+2,s3=1+2+3,……, sn=1+2+3+……+n,求s20到s80有多 少能被17或35整除。 * * 二、多重循环示例程序 例1、求S=12!+13!+14! S=0 For i=12 to 14 T=1 For j=1 to i T=t*j Endf S=s+t Endf ?s 例2：求[10,100]内的素数的个数。 方法一： set talk off clear n=0 for x=10 to 100 for i=2 to x-1 if mod(x,i)=0 exit endif if i=x-1 n=n+1 endif next next ?n=,n set talk on return return 思考：有没有办法减少循环次数？ n=0 for x=10 to 100 for i=2 to int(sqrt(x)) if mod(x,i)=0 exit endif if i=int(sqrt(x)) n=n+1 endif next next ?n=,n 思考：将if i=int(sqrt(x))移出循环要怎样修改程序？ n=0 for x=10 to 100 for i=2 to int(sqrt(x)) if mod(x,i)=0 exit endif next if iint(sqrt(x)) n=