Fortran程序设计第六章-循环结构上.ppt

《Fortran程序设计第六章-循环结构上.ppt》由会员分享，可在线阅读，更多相关《Fortran程序设计第六章-循环结构上.ppt（27页珍藏版）》请在三一办公上搜索。

1、第六章 循环结构（上）,6.1 引言,6.2 无循环变量的DO结构,6.3 带循环变量的DO结构,6.4 DO WHILE结构,6.1 引言,循环的定义 计算处理方法和处理过程完全一样，只是数值变化，重复地运行某个语句块。这个语句体被重复执行的情形，称为循环。,由于Fortran90中不提倡语句带有标号，也不提倡使用Goto语句，因而排除了用IF语句和goto语句构成循环的情况。这样在循环程序段中均由Do结构实现，其Do结构共有三种形式：1不带循环变量的DO结构 2带循环变量的DO结构 3Do WHILE结构,例1：求S=1+2+3+N的值（N由键盘输入N2）。INTEGER:S，N，I S=

2、05 READ（*，*）NIF（NN）THEN S=S+I;I=I+1 GOTO 10 ENDIFWRITE（*，*）S=，SEND此种循环fortran90不提倡使用。,例2：读入某战士打靶的成绩，计算其平均成绩。,INTERGER:S，MARK，IREAL:AVES=0DO I=1，10 READ*，MARK S=S+MARKEND DOAVE=S/10.0WRITE（*，*）AVE=，AVEEND 带循环变量的循环结构,2循环结构组成。循环体：需重复处理的语句序列；循环控制机制：根据已知条件判断循环是否继续执行。3循环的分类：（1）循环次数未知 如例1所示（2）循环次数已知 如例2所示,

3、6.2 不带循环变量的DO循环,1.无循环变量DO结构的一般形式结构名:DO 循环体 END DO 结构名其中 方括号内的内容是可选的。DO语句为入口语句；END DO表示DO结构的出口；循环体可以是一条或多条简单可执行语句。也可是IF结构、CASE结构或另一个DO结构。,DO READ*，X SUM=SUM+X PRINT*，SUMEND DO执行过程：从DO语句进入循环，执行读语句、累加、输出；然后遇到ENDDO语句，然后返回循环体的第一条语句，继续执行循环体语句，一直进行下去。该DO 结构是一个无休止的的循环，称为死循环 要终止该循环必须添加一个EXIT语句。,EXIT语句：格式：EXI

4、T DO 结构名 作用：停止循环，将控制转移到当前循环或指定结构之外。单独使用将无条件终止循环，一般的用法是有条件的控制循环出口。格式为：IF（逻辑表达式）EXIT DO 结构名 功能：当条件为真时，停止正在进行的循环，将控制转移到EXIT后指定的结构之外，若没有指定结构名，则跳出当前循环。,EXIT语句,应用举例,例 6-1 求1+1/2+1/3+1/N的值。例6-2 求一批数中负数的个数及负数的总和。要求数据一个一个地由键盘输入，输入的数据为0时终止循环。,带循环变量DO结构的一般形式DO结构名：DO,V=E1，E2，E3 循环体 END DO DO结构名 V是循环控制变量，可以是整型或实

5、型。E1是循环控制变量的初始值；E2是循环变量的终止值；E3是循环变量的增量。E1、E2、E3可以是整型、实型的常数、变量或表达式，当为表达式时，其中涉及的变量应具有具体的值。符号可正可负。,6.3 带循环变量的DO结构,执行过程,（1）对表达式E1，E2，E3分别求值。默认E3的值为1（2）令V变量被赋值为E1。（3）测试循环次数R，若R=0则跳过循环体，转去执行终端语句后面的第一条语句，若R0，则执行循环体直到循环终端语句。（4）执行终端语句后，V增加一个步长E3，循环次数减1，（5）返回（3）重复执行（3）（4）,（1）E2不允许为最大整数值（2）E3不允许为零，否则循环不能终止 注意：

6、是判断一个DO语句是否成立的条件（3）DO循环变量在循环体内不能再次定义 DO I=3，6 I=5！错误 J=J+I ENDDO（4）循环变量的初值E1、终值E2和步长E3只是在循环入口有效，进入循环后，它的值与循环次数无关。,注意事项,注意事项：,（5）在带循环变量DO 结构中仍可使用EXIT语句。（6）循环正常退出时，V的值超过循环变量的终值。循环非正常退出时，V保持当前值。（7）循环变量在循环体内不能被重新赋值，但是在循环体外则可被重新赋值。（8）在DO结构中包含的IF结构和CASE结构等必须时完整的结构，不允许出现结构的交叉。（9）循环可以不经END DO，但是不能从循环体外转入循环体

7、内。,DO WHILE结构的一般形式：结构名:DO WHILE（逻辑表达式）循环体 END DO 结构名,相当于 DO IF（.NOT.逻辑表达式）EXIT 循环体 END DO,6.4 DO WHILE结构,T,F,DO WHILE 执行过程,嵌套DO结构的有关规定：1.各种DO结构都可以嵌套，但必须完整嵌套。2.对于带循环变量的DO结构，并列的DO结构可以用同一个变量名作循环变量，而嵌套的DO循环结构则不能使用相同的循环变量。3.EXIT语句强行终止当前或指定循环。4.可从循环体内跳到循环外，但不能从循环体外跳到循环体内。,程序举例,补充：循环控制的设计方法：1 关键：找出循环体a)求累加

8、和S=S+Tb)求连乘积T=T*Nc)求XNT=T*Xd)求连加的循环次数S=S+1e)其他S=S+A A=,2 确定循环的初值a)求累加和初值为0或所给数据的第一项b)求连乘积初值为1或所给数据的第一项c)求最大值初值为所给数据的第一项或足够小的量d)求最小值初值为所给数据的第一项或足够大的量 注意：赋值语句的位置3 循环次数的选定a)已知累加计算的项数Nb)未知计算项数N，当通项值小于一个值时停止，可取N为一个足够大的值。,1累加和计算例1：求S=2+4+6+200的值,S=0 DO N=1，100 S=S+2*N End do PRINT*，S END累加和：S新=S原+通项,2被加数不

9、能直接用表达式表示例2：求,重复：,A=A*X/N,注意：分母不能为零！,3一批数据的处理顺序查找法例：从11000的正整数中，所有3的倍数之和及个数。算法：顺序查找,程序：S=0N=0DO I=1，1000IF（MOD（I，3）=0）THEN S=S+I N=N+1ENDIFENDDOPRINT*，S，NEND,4嵌套循环 例：全校30个班，每班50个学生，每学生三门课程，要求统计并打印出每个班的平均成绩和全校总（平均）成绩,ST=0.0A1:DO I=1，30 S=0A2:DO J=1，50 READ（*,*）A1,A2,A3 B=A1+A2+A3 S=S+B END DO A2 A=S/

10、50,PRINT*，I，AST=ST+SENDDO A1SA=ST/（50*30）PRINT*，SAEND,5穷举法 例：一个口袋中有白球3只，红球3只，黑球6只，任取8只，有多少种取法？,INTEGER:X,Y,ZN=0X:DO X=0，3Y:DO Y=0，3Z:DO Z=0，6 IF（X+Y+Z）=8）N=N+1 ENDDO Z ENDDO YENDDO X PRINT*，NEND,练习：求以下公式的值：,当最后一项绝对值小于1010时停止。,例：输入M、N，求最大公约数。,程序：INTEGER R，TREAD*，M，NIF（）THEN T=M;M=N;N=TENDIF10R=MOD（M，

11、N）IF（）THEN M=N;N=R;GOTO 10 ENDIF PRINT*，N END 请改写为DO循环结构,练习：1、输入M、N，求最小公倍数。2、求数列1，1，2，3，5，8的前30项。（重复：FN=FN-1+FN-2）DO的非整型增值,例7：打印出所有的“水仙花数”。所谓“水仙花数”是指一个3位数，其各位数字的立方和等于该数本身。例如，153是一个“水仙花数”，因为153=13+53+33,integer:i,j,k,n do n=100,999 i=n/100 j=n/10-i*10 k=mod(n,10)if(n=i*i*i+j*j*j+k*k*k)print*,n enddo end,QUESTION？,27,