[工学]fortran程序设计第5章.pptVIP

FORTRAN语言--FORTRAN 77结构化程序设计 讲师：徐红波 Email: x_h_b@ 第五章 循环结构的实现 重复执行一组指令称为循环操作。在程序中存在两类循环：无条件循环和有条件循环。无条件循环是无休止地执行一个程序段，而有条件循环是在满足一定条件时才执行循环。 经常会遇到循环类型的问题，例如需要对全班学生求平均成绩，求n的阶乘，求 n个数的和等都需要用到循环处理的方法。 5.1 用GOTO语句实现循环 GOTO语句的形式： GOTO 语句标号 例如：“GOTO 10”表示流程转去标号为10的语句行继续执行。由于GOTO语句破坏了语句顺序执行的正常状态，不符合结构化程序设计原则，因此一般不提倡使用GOTO语句。只有在一个基本结构内部可以使用GOTO语句。利用GOTO语句可以实现循环处理。 例：读入学生的学号和成绩并且打印 无条件循环： 10 READ *, NUM, GRADE PRINT *, NUM, GRADE GOTO 10 有条件循环： N=1 10 READ *, NUM, GRADE PRINT *, NUM, GRADE N=N+1 IF (N .LE. 5) GOTO 10 5.2 用DO语句实现循环 当需要执行的循环次数为已知时用DO语句实现循环比较方便。例如，上节读5个学生的学号和成绩，要执行READ语句和PRINT语句5次。可以改用DO语句实现： DO 10, N=1, 5, 1 READ *, NUM, GRADE 10 PRINT *, NUM, GRADE 5.2.1 循环语句（DO语句）和循环次数的计算 DO循环由一个DO语句和循环体组成： DO 10, I=1, 10, 1 (循环语句) J=I*I (循环体) 10 PRINT *, I, J DO语句的一般形式为： DO 标号 [,] 循环变量= 初值, 终值[, 步长] s v = e1, e2, e3 循环次数可以从循环初值、终值和步长计算出来： r=INT((e2-e1+e3)/e3) 例如：DO 10, I=1, 10, 2 DO 20, N=1, 5 DO 100, X=1.2, 2.4, 0.2 DO 150, T=2.5*2, 50.0/2.0, 0.5 DO 200, M=1.5, 12.5, 1.5 5.2.2 循环执行过程 循环执行过程执行以下步骤： 计算表达式e1，e2，e3的值，并将它们转换成循环变量的类型。 将初值e1赋予循环变量v。 计算应循环的次数r。 检查循环次数，若r=0或r0，则跳过循环体，执行循环终端语句下面一个执行语句。如果r0，则执行循环体。 执行终端语句时循环变量v增值，即v=v+e3。 循环次数r减1。 返回步骤4，重复执行步骤4、5、6、7。 从以上流程图和上述步骤可知，终端语句的作用，除了完成该语句本身的功能，还有两个作用：（1）使循环变量v增值e3，(2)使循环次数r减1。 5.2.3 循环终端语句和继续语句（CONTINUE语句） 循环终端语句可以是除了GOTO、块IF、ELSE、ELSE IF、END IF、END、STOP和RETURN语句之外的任一可执行语句，如打印语句、赋值语句、输入语句等都可以作为终端语句 非执行语句不能作为循环的终端语句 为了使循环的起止范围清晰，使终端语句与一般执行语句所区别，用CONTINUE语句作为终端语句。 继续语句CONTINUE的形式为： CONTINUE 例如： READ *, A, B CONTINUE PRINT *, A, B DO 20, I=1, 10, 2 PRINT *, I 20 CONTINUE [例5.1]求5！ INTEGER FACT FACT=1 DO 10, I=1, 5 FACT=FACE*I 10 CONTINUE PRINT *, FACT END [例5.2]求1!+2!+…+N! READ *, N SUM=0.0 FACT=1.0 DO 100, I=1, N FACT=FACE*I SUM=SUM+FACT 100 CON