计算机应用基础——FORTRAN循环结构.pptVIP

计算机应用基础——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语句) 循环终端语句 循环体中带有语句标号的最后一个语句 定义: DO 10 I = 1，50 20 K=I*1 10 PRINT *，I，K 循环体 规定: 下列语句不能作为DO循环的终端语句: 逻辑IF语句可作为DO循环的终端语句,但其内嵌语句不能是上述控制语句！ DO 10 I = 1，50 K=I*1 PRINT *，I，K 10 IF（K.GT.500) GOTO 100 GOTO语句, DO语句, STOP语句, END语句, END IF语句,块IF语句, ELSE语句 ,ELSE IF语句,等 继续语句(CONTINUE语句) CONTINUE 形式: 作用: 将流程转移到逻辑上的下一个操作 DO 20 , I=1, 10 , 2 PRINT *, I 20 CONTINUE 优点: １.循环范围清晰，易识别； ２.使一般可执行语句不再作为终端语句，仅执行其语句本身功能； ３.不用记哪些语句不能作终端语句 DO 循环的一些规定 1. 循环变量可以在循环体中被引用，但不应再被赋值； ２. 循环变量的初值、终值和步长值在执行循环体期间不能改变； DO 20 , N=1, 100 M=2*N PRINT *, M 20 CONTINUE DO 20 , N=1, 100 N=2*N