《多重循环程序设计优秀PPT.ppt》由会员分享，可在线阅读，更多相关《多重循环程序设计优秀PPT.ppt（18页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、多重循环程序设计多重循环程序设计第1页，本讲稿共18页二、多重循环示例程序二、多重循环示例程序例例1、求、求S=12!+13!+14!S=0For i=12 to 14T=1 For j=1 to i T=t*j EndfS=s+tEndf?s第2页，本讲稿共18页例例2：求：求10,100内的素数的个数。内的素数的个数。方法一：方法一：set talk offclearn=0for x=10 to 100for i=2 to x-1if mod(x,i)=0exitendifif i=x-1n=n+1endifnextnext?n=,nset talk onreturn return思考：有
2、没有办法减少循环次数？思考：有没有办法减少循环次数？第3页，本讲稿共18页n=0for x=10 to 100for i=2 to int(sqrt(x)if mod(x,i)=0exitendifif i=int(sqrt(x)n=n+1endifnextnext?n=,n思考：将思考：将if i=int(sqrt(x)移出循环要怎样修改程序？移出循环要怎样修改程序？第4页，本讲稿共18页n=0for x=10 to 100for i=2 to int(sqrt(x)if mod(x,i)=0exitendifnextif iint(sqrt(x)n=n+1endifnext?n=,n第5页
3、，本讲稿共18页方法二：方法二：n=0for x=10 to 100flag=.t.for i=2 to int(sqrt(x)if mod(x,i)=0flag=.f.exitendifnextif flag=.t.n=n+1endifnext?n=,n第6页，本讲稿共18页例例3 求求1-1/2+1/3-1/4+.+1/49-1/50之和。之和。set talk off s=0p=-1n=1do while n=50 p=-p s=s+1/n*p n=n+1enddo?s=,sset talk on 第7页，本讲稿共18页例例4一个数如果刚好与它所有的因子之和相等，则称该数为一个一个数如果
4、刚好与它所有的因子之和相等，则称该数为一个“完数完数”，如：，如：6=1+2+3，则，则6就是一个完数。求出就是一个完数。求出1000以内的完数之和，完数的个数。以内的完数之和，完数的个数。CLEARS=0&S中存放完数之和中存放完数之和N=0&N中存放完数的个数中存放完数的个数FOR I=1 TO 1000 S1=0&S1中存放中存放I的因子之和的因子之和 FOR K=1 TO I/2 IF I%K=0&判断判断K是否为是否为I的因子的因子 S1=S1+K ENDIF NEXT IF S1=I S=S+I N=N+1 ENDIFNEXT?S,NRETURN第8页，本讲稿共18页例例5：求所有
5、的水仙花数。（水仙花数：求所有的水仙花数。（水仙花数：3位的正整数，它位的正整数，它各位数字的立方和与该数值相等。）各位数字的立方和与该数值相等。）方法一：方法一：set talk offclearfor n=100 to 999c=n%10b=int(n/10)%10a=int(n/100)if n=a3+b3+c3?nendifnextset talk onreturn第9页，本讲稿共18页方法二：方法二：set talk offclearfor a=1 to 9for b=0 to 9for c=0 to 9n=a*100+b*10+cif n=a3+b3+c3?nendifnextne
6、xtnextset talk onreturn第10页，本讲稿共18页例例6 编程求编程求6，1400内能被内能被7整除，且至少有一位数整除，且至少有一位数字为字为7的整数，最大一个是多大？的整数，最大一个是多大？(思考：求第思考：求第5大的大的)CLEARN=0&个数个数M0&最大者之初值假定为最大者之初值假定为0FOR K6 TO 1400IF MOD（K，7）0 AND “7”$STR(K)N=N+1 MKENDIFENDFOR？“MAX”，M 第11页，本讲稿共18页例例7.求所有符合算式求所有符合算式ij*ji=1300的最大的和最小的数的最大的和最小的数ij（即（即i*10+j），
7、），共有多少组这样的共有多少组这样的i,j。其中。其中i、j是是19之间的一位整数。之间的一位整数。CLEARMIN=0N=0FOR 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 NEXTNEXT?MIN,MAX,N 第12页，本讲稿共18页例例8若有三个正整数若有三个正整数a、b、c满足满足a2+b2=c2，则，则a，b，
8、c称为勾股数组，编一程序，问有多少个三个数均小于称为勾股数组，编一程序，问有多少个三个数均小于100的勾股数组的勾股数组(注意注意:a,b,c不能为不能为0)。CLEARN=0FOR C=1 TO 99 FOR A=1 TO C FOR B=1 TO C IF A2+B2=C2 N=N+1 ENDIF NEXT NEXTNEXT?N第13页，本讲稿共18页例例9百钱百鸡问题。用百钱百鸡问题。用100钱买钱买100只鸡，公鸡一只鸡，公鸡一只五钱，母鸡一只三钱，雏鸡三只一钱，编程计算只五钱，母鸡一只三钱，雏鸡三只一钱，编程计算共有几种买法共有几种买法(要求每种鸡至少要买要求每种鸡至少要买1只只)。
9、N=0FOR X=1 TO 20 FOR Y=1 TO 33 Z=100-X-Y IF 5*X+3*Y+Z/3=100 N=N+1 ENDIF NEXTNEXT?N第14页，本讲稿共18页例例10 已知斐波那契数：已知斐波那契数：1,1,2,3,5,8,13,21,34,.,即从第三即从第三项开始，每一项是其前面最邻近两项之和。编程求此数项开始，每一项是其前面最邻近两项之和。编程求此数列的第列的第40项数是多少。项数是多少。方法一：方法一：SET TALK OFF&SET TALK OFF&此处采用的是递推法此处采用的是递推法STORE 1 TO F1,F2,ISTORE 1 TO F1,F2
10、,IDO WHILE I=19DO WHILE I=19 F1=F1+F2 F1=F1+F2 F2=F1+F2 F2=F1+F2 I=I+1 I=I+1ENDDO&ENDDO&每次循环产生二项每次循环产生二项?F2?F2SET TALK ONSET TALK ONRETURNRETURN第15页，本讲稿共18页方法二：方法二：SET TALK OFFDIMENSION A(35)STORE 1 TO A(1),A(2)I=3T=2DO WHILE I10000时退出，求退出时时退出，求退出时n值。值。5、求在、求在1,2,3,4,.,10这这10个数中个数中,任意选两个任意选两个不同的数不同的
11、数,求它们的和能被求它们的和能被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整除。整除。第18页，本讲稿共18页