资源描述：
《Fortran77教程-5循环结构的实现.ppt》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、第八章常用算法的程序设计举例第一章算法第二章计算机和计算机程序第四章逻辑运算和选择结构第五章循环结构的实现第六章Fortran的数据结构第七章数据的输入、输出第三章Fortran语言程序设计初步1第五章循环结构的实现循环操作：重复执行一组指令（或一个程序段）循环分类：无条件的循环有条件的循环25.1用GOTO语句实现循环例：打印30个学生的学号和成绩N=1100READ(*,*)NUM,GRADEWRITE(*,*)NUM,GRADEN=N+1IF(N.LE.30)GOTO100END输入NUM,GRADE打印NUM
2、,GRADE直到GOTO语句破坏了语句顺序执行的正常状况，不符合结构化原则，因此一般不提倡使用GOTO语句！GOTO<标号>属于直到型循环35.2用DO语句实现循环DO10N=1,30READ(*,*)NUM,GRADE10WRITE(*,*)NUM,GRADEENDDO语句循环体DOs[,]v=e1,e2[,e3]循环终端语句标号循环变量循环变量初值循环变量终值循环变量增量4DO语句几点说明：1.e1、e2、e3可以是常数、变量或表达式DOs[,]v=e1,e2[,e3]2.e1、e2、e3的值可以正或负，e1、e
3、2的值可以为0，e3的值不应为03.脱离循环的条件：循环变量沿变化的方向超过终值DO10，T=5.0，25.0，0.5DO10，T=C，50.0/2.0，0.5C=5.054.循环次数计算公式为：r=INT((e2-e1+e3)/e3)5.如果v的类型和e1、e2、e3的类型不一致，先将e1、e2、e3的类型化成v的类型，然后处理6.如果计算出循环次数r<0时，按r=0处理，即一次也不执行循环DO20，I=1，10，2循环次数：r=INT((10-1+2)/2)=INT(5.5)=5次DO20，X=1.5，3.6，1
4、.2循环次数：r=INT((3.6-1.5+1.2)/1.2)=2循环次数：r=INT((3-1+1)/1)=3DO10，I=10，1，2循环次数：r=INT((1-10+2)/.2)=-3避免使用实型的循环变量！用整型的循环变量时，计算出的循环次数是绝对正确的！6DO循环执行过程计算e1、e2、e3的值计算循环次数：r=INT((e2-e1+e3)/e3)当r>0循环体语句DO循环属于当型循环DOs[,]v=e1,e2[,e3]……s……适用范围：循环次数已知DO语句循环体7循环终端语句&继续语句(CONTINUE
5、语句)循环终端语句循环体中带有语句标号的最后一个语句定义:DO10I=1，5020K=I*110PRINT*，I，K循环体规定:下列语句不能作为DO循环的终端语句:8逻辑IF语句可作为DO循环的终端语句,但其内嵌语句不能是上述控制语句！DO10I=1，50K=I*1PRINT*，I，K10IF（K.GT.500)GOTO100GOTO语句,DO语句,STOP语句,END语句,ENDIF语句,块IF语句,ELSE语句,ELSEIF语句,等9继续语句(CONTINUE语句)CONTINUE形式:作用:将流程转移到逻辑上的
6、下一个操作DO20,I=1,10,2PRINT*,I20CONTINUE优点:１.循环范围清晰，易识别；２.使一般可执行语句不再作为终端语句，仅执行其语句本身功能；３.不用记哪些语句不能作终端语句10DO循环的一些规定1.循环变量可以在循环体中被引用，但不应再被赋值；２.循环变量的初值、终值和步长值在执行循环体期间不能改变；DO20,N=1,100M=2*NPRINT*,M20CONTINUEDO20,N=1,100N=2*NPRINT*,N20CONTINUEDO20,I=K,J,MK=2*KJ=J+1M=M/2P
7、RINT*,K,J,M20CONTINUE113.可以用转移语句从循环体内转到循环体外，也可以在循环体内转移，但不允许从循环外转到循环内；4.正常出口&非正常出口；DO10,I=1,100……IF(I*I.GE.500)GOTO100……10CONTINUE……100PRINT*,I,I*I非正常出口正常出口12DO循环的嵌套（多重循环）一个循环体内又完整的包含另一个循环结构注意事项：1.嵌套循环的各层不允许使用同一个变量名作为循环控制变量；DO20I=1,5……DO10I=2,10,2……10CONTINUE……2
8、0CONTINUE133.嵌套DO循环中，可以共用一个循环终端语句；2.对于任何形式的循环，都不允许循环的交叉；DO10I=1,5DO20J=1,3M=I*J10CONTINUE20CONTINUEDO10I=1,10……DO20J=0,20,2……20CONTINUE10CONTINUEDO10I=1,10……DO10J=0,20,2……10
