Fortran77教程-5循环结构的实现.ppt

DO 10 K=5，1，-1 M=0 DO 20 J=K，5 M=M+K*J 20 CONTINUE 10 CONTINUE WRITE（*，*）M END 3. 阅读下列FORTRAN77程序 A) 120 B) 15 C) 140 D) 135 上述程序运行后，输出的M值为 解：这是一个双重循环。在外循环的循环体中，每次都对M清零，因此只考虑外循环的最后一次循环中所执行的内循环。外循环最后一次循环的K为1，最后一次执行的循环体相当于右图：M=1+2+3+4+5=15 DO 10 K=5，1，-1 M=0 DO 20 J=K，5 M=M+K*J 20 CONTINUE 10 CONTINUE WRITE（*，*）M END M=0 DO 20 J=1，5 M=M+J 20 CONTINUE * * 第八章 常用算法的程序设计举例 第一章 算法 第二章 计算机和计算机程序 第四章 逻辑运算和选择结构 第五章 循环结构的实现 第六章 Fortran的数据结构 第七章 数据的输入、输出 第三章 Fortran语言程序设计初步 第五章 循环结构的实现 循环操作： 重复执行一组指令 （或一个程序段） 循环分类： 无条件的循环 有条件的循环 5.1 用GOTO语句实现循环 例：打印30个学生的学号和成绩 N=1 100 READ (*,*) NUM, GRADE WRITE (*,*) NUM, GRADE N=N+1 IF ( N.LE. 30 ) GOTO 100 END 输入NUM,GRADE 打印NUM,GRADE 直到 GOTO语句破坏了语句顺序执行的正常状况，不符合结构化原则，因此一般不提倡使用GOTO语句！ GOTO 标号 属于直到型循环 5.2 用DO语句实现循环 DO 10 N=1, 30 READ (*,*) NUM, GRADE 10 WRITE (*,*) NUM, GRADE END DO语句 循环体 DO s[, ] v = e1, e2 [, e3] 循环终端语句标号 循环变量 循环变量初值 循环变量终值 循环变量增量 DO语句几点说明： 1. e1、e2 、 e3可以是常数、变量或表达式 DO s[, ] v = e1, e2 [, e3] 2. e1、e2 、 e3的值可以正或负， e1、e2的值可以为0， e3的值不应为0 3. 脱离循环的条件：循环变量沿变化的方向超过终值 DO 10，T=5.0，25.0，0.5 DO 10，T= C，50.0/2.0，0.5 C=5.0 4. 循环次数计算公式为：r =INT((e2- e1+ e3)/ e3) 5. 如果v的类型和 e1、e2 、 e3的类型不一致，先将e1、e2 、 e3的类型化成v的类型，然后处理 6. 如果计算出循环次数 r0 时，按 r=0 处理，即一次也不执行循环 DO 20，I=1，10，2 循环次数：r =INT((10- 1+ 2)/ 2) =INT(5.5)=5次 DO 20，X=1.5，3.6，1.2 循环次数：r =INT((3.6- 1.5+ 1.2)/ 1.2)=2 循环次数：r =INT((3- 1+ 1)/ 1)=3 DO 10，I=10，1，2 循环次数：r =INT((1- 10+ 2)/.2)= -3 避免使用实型的循环变量！用整型的循环变量时，计算出的循环次数是绝对正确的！ DO 循环执行过程 计算e1、e2 、 e3的值 计算循环次数：r =INT((e2- e1+ e3)/ e3) 当r 0 循环体语句 DO循环属于当型循环 DO s[, ] v = e1, e2 [, e3] …… s …… 适用范围：循环次数已知 DO语句 循环体 循环终端语句继续语句(CONTINUE语句) 循环终端