第5章循环结构程序设计

第5章循环结构程序设计

(P75~95）教与学目标理解循环的含义掌握实现循环结构的两个语句（DO,DOWHILE)学会利用所学的知识，解决实际问题问题引入主要内容循环结构概述实现循环的基本语句综合应用循环结构循环结构的基本思想是重复，即利用计算机运算速度快以及能进行逻辑控制的特性，重复执行某些语句，以完成大量的计算要求。循环结构的组成要素1、循环控制变量2、循环条件（进入循环条件）3、循环体（重复性的操作）例如：S=1+2+3+…+100循环结构的分类1、确定性循环（计数型循环）：循环体的循环次数事先可确定的。例如：S=1+2+3+…+1002、非确定性循环（条件循环）：循环体的循环次数事先是不明确的。例如：循环控制变量的初值和终值明确问题：如何实现循环结构？DO语句DOWHILE语句循环的嵌套任务1：用DO循环实现计数型循环问题1、一般格式：DOi=e1,e2[,e3]…(循环体)---语句块ENDDO初值终值步长递增型循环递减型循环>0<0=0死循环例1:求1+2+3+…+10的和INTEGERX,SS=0DOX=1,10,1S=S+XENDDOPRINT*,SEND步长为1时可以省略例2：求5!=5×4×3×2×1INTEGERP,KP=1DOK=5,1,-1P=P*KENDDOPRINT*,PENDDO循环的执行次数

r=MAX(INT((e2-e1+e3)/e3),0)2、do语句的执行过程ENDDO下面的语句计算e1、e2、e3的值e1→i计算循环次数rr=0?执行循环体i+e3→ir-1→rYN问题与应用3、编程输出100~999之间的所有“水仙花数”所谓“水仙花数”是指一个三位整数，其各位数字立方和等于该数本身。4、求变化的量:变化的规律循环结束的条件初始化思考：求1-2+3-4+5-…-100之和reals,x,b,nprint*,"请输入x,n"read*,x,ns=1b=1doi=1,nb=b*is=s+x**i/benddoprint*,send求1-2+3-4+5-…-100之和

integers,f,is=0f=1doi=1,100s=s+i*ff=-fenddoprint*,send5、Fibonacci数列定义如下：

F1=1

F2=1

Fn=Fn-1+Fn-2(n>2)

求Fibonacci数列的前30项。

integerf1,f2,f3,if1=1f2=1print*,f1,f2doi=3,30f3=f1+f2print*,f3f1=f2f2=f3enddoend6、猴子吃桃问题。猴子第一天摘下若干个桃子，当即吃了一半，还不过瘾，又多吃了一个。第二天早上又将剩下的桃子吃掉一半，又多吃了一个。以后每天早上都吃了前一天剩下的一半零一个。到第7天早上想再吃，就只剩下一个桃子了。求第一天共摘多少个桃子。7、阅读程序，写结果n=0dok=1,3n=n+kenddoWrite(*,*)n,kend注意：退出循环后循环变量的值与最后一次循环时循环变量的值不同，前者比后者多一个步长8、阅读程序，回答问题K=0Don=21,10,-1if(mod(n,2)==0)k=k+1enddoPrint*,’k=‘,kEnd问：1）画出该程序的流程图2）给程序的功能是什么？3）程序执行后，输出结果是？Read*,nS=0F=1Dok=1,nf=f*ks=s+fEnddoWrite(*,*)send问：1）给程序的功能是什么？2）若输入5，则程序执行后，输出结果是？9、阅读程序，回答问题编写计算下式的fortran程序

1+（1+3）+（1+3+5）+…+(1+3+5+…+n)integers,n,s1s=0s1=0read*,ndoi=1,n,2s1=s1+iprint*,s1s=s+s1enddoprint*,send

任务2：隐含do循环结构问题：打印1~10中所有奇数IntegerIDoI=1,10,2print*,IenddoendIntegerIPrint*,(I,I=1,10,2)end分析：1、图形一共多少行（1）每一行输出多少及什么数据注意与行号的关系）（2）换行问题引入2、求F数列,大于4000的最小项。任务3：用DOWHILE语句实现循环DOWHILE(逻辑表达式)循环体ENDDO逻辑表达式循环体YNDoWHILE语句的下一条语句应用1、求S=1+2+3+….+1003、求F数列,大于4000的最小项。integerf1,f2,f3f1=1f2=1f3=f1+f2dowhile(f3<=4000)f1=f2f2=f3f3=f1+f2enddoprint*,f3end两种循环语句的比较实现循环结构的两种语句，它们各具特点。一般而言，事先能确定循环次数的循环问题用DO循环，而事先不能确定循环次数的循环问题用DOWHILE循环。但这并不是绝对的，很多情况下它们是可以相互代替的。任务4：与循环有关的控制语句EXIT语句在循环体内使用EXIT语句，将迫使所在循环立即终止，即跳出所在循环体，而继续执行循环结构后面的语句。通常将EXIT语句与IF语句配合使用，即在循环体中使用语句：IF(e)EXIT2.CYCLE语句CYCLE语句用来结束本次循环，即跳过循环体中尚未执行的语句。在循环结构中，CYCLE语句将使控制直接转向循环条件测试部分，从而决定是否继续执行循环。（1）CYCLE语句只结束本次循环，而不是终止整个循环的执行。（2）EXIT语句是结束所在循环，跳出所在循环体。3.CYCLE与EXIT语句的区别S=0DoI=1,100if(mod(I,2)==0)thencycleElses=s+IEndifenddoPrint*,send阅读以下程序，分析其功能任务5：循环嵌套一个循环结构的循环体又包括一个循环结构，就称为循环的嵌套，或称为多重循环结构。INTEGER：：I，J，KDOI=1，5，2DOJ=2，6，3K=I+JENDDOENDDOPrint*,kEND综合应用1、求2~100之间的素数2、求[2,1000]内的守形数

守形数：该数平方的低位数等于该数本身。如（252=625）穷举法：（1）列出每类可能的取值范围（2）利用DO语句枚举可能的取值（3）用条件验证枚举的结果。输出满足条件的结果。知识点小结1、循环结构三个基本要素（循环变量、循环体、循环条件）2、实现循环结构的两个基本语句

dodowhile3、控制循环的两个命令：cycle,exit!P94_10integern,s,tprint*,"请输入n的值"read*,ns=0t=0doi=1,nt=t+2*i-1print*,ts=s+tenddoprint*,s