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

第六章 循环结构（上） §6.1 引言 §6.2 无循环变量的DO结构 §6.3 带循环变量的DO结构 §6.4 DO WHILE结构 6.1 引言 循环的定义 计算处理方法和处理过程完全一样，只是数值变化，重复地运行某个语句块。这个语句体被重复执行的情形，称为循环。 由于Fortran90中不提倡语句带有标号，也不提倡使用Goto语句，因而排除了用IF语句和goto语句构成循环的情况。这样在循环程序段中均由Do结构实现，其Do结构共有三种形式： 1．不带循环变量的DO结构 2．带循环变量的DO结构 3．Do WHILE结构 例1：求S=1+2+3+…+N的值（N由键盘输入N2）。 INTEGER:: S，N，I S=0 5 READ （*，*）N IF（N=2）GOTO 5 I=1 10 IF（IN）THEN S=S+I;I=I+1 GOTO 10 ENDIF WRITE（*，*）‘S=‘，S END 此种循环fortran90不提倡使用。 例2：读入某战士打靶的成绩，计算其平均成绩。 INTERGER:: S，MARK，I REAL::AVE S=0 DO I=1，10 READ *，MARK S=S+MARK END DO AVE=S/10.0 WRITE（*，*）‘AVE=‘，AVE END 带循环变量的循环结构 2．循环结构组成。 循环体：需重复处理的语句序列； 循环控制机制：根据已知条件判断循环是否继续执行。 3．循环的分类： （1）循环次数未知 如例1所示 （2）循环次数已知 如例2所示 6.2 不带循环变量的DO循环 1. 无循环变量DO结构的一般形式 [结构名:] DO 循环体 END DO [结构名] 其中 方括号内的内容是可选的。 DO语句为入口语句； END DO表示DO结构的出口； 循环体可以是一条或多条简单可执行语句。 也可是IF结构、CASE结构或另一个DO结构。 DO READ *，X SUM=SUM+X PRINT *，SUM END DO 执行过程： 从DO语句进入循环，执行读语句、累加、输出；然后遇到ENDDO语句，然后返回循环体的第一条语句，继续执行循环体语句，一直进行下去。 该DO 结构是一个无休止的的循环，称为死循环 要终止该循环必须添加一个EXIT语句。 EXIT语句： 格式：EXIT [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是循环控制变量，可以是整型或实型。 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不允许为零，否则循环不能终止 注意：是判断一个DO语句是否成立的条件 （3）DO循环变量在循环体内不能再次定义 DO I=3，6 I=5