当前位置:首页 >> 其它课程 >>

Fortran PPT课件1 (9)DO循环结构


3.2 DO循环结构
program ex0601 implicit none integer counter integer, parameter :: lines=10 ! counter<=lines之前会一直重复循环 ! 每跑一次循环counter会累加1 do counter=1,lines,1 write(*,*) "Happy Birthd

ay",counter end do stop end Counter=1 1

3.2 DO循环结构
? DO循环结构的一般形式为

[name:] do [label[,]] [loop_control] block [label] term_stmt [name]
? name为循环的名字,可省略; ? Label为循环终端语句的标号,可省略, 如果使用,则do后面的标号必须和循环 终端语句的标号一致; ? loop_control循环的控制部分,有三种选 择,(1) i=e1,e2[,e3],(2) while(e), (3)省略

3.2 DO循环结构
[name:] do [label[,]] [loop_control] block [label] term_stmt [name]
? block为循环体,即重复执行的语句部分; ? term_stmt为循环终端语句,可谓CONTINUE 或者ENDDO,也可以是允许的其他可执行语句;

3.2 DO循环结构
? 计数型DO循环
d o [la b e l,] i= e 1 ,e 2 [,e 3 ]? ? ? ?循环体 ? [lab el]term _ stm t ?

do count = 1, lines, 1 …… …… …… …… 循环计数器 end do

计数器增量

计数器终止值

3.2 DO循环结构
计数型DO循环的执行过程
N ? m ax [in t( m 2 ? m1 m3 ? 1), 0 ]

计数型DO循环的执行过程

3.2 DO循环结构
例:使用DO循环计算2+4+6+8+10
PROGRAM ex0602 IMPLICIT NONE INTEGER ,PARAMETER: : limit=10 ! 计数器上限 INTEGER :: counter ! 计数器 INTEGER :: ans = 0 ! 累加使用 DO counter=2, limit, 2 ans = ans + counter ENDDO WRITE(*,*) ans

STOP END

3.2 DO循环结构
FORTRAN 77 程序代码要在DO后面注明 循环结束的代码号
PROGRAM ex0602 IMPLICIT NONE INTEGER limit PARAMETER(limit=10) INTEGER counter INTEGER ans DATA ans /0/ DO 100 counter=2, limit, 2 100 ans = ans + counter WRITE(*,*) ans STOP END

3.2 DO循环结构
FORTRAN 77经常用CONTINUE来结束程序

100

do 100, counter=2, limit, 2 ans=ans+counter continue

3.2 DO循环结构
Do i=e1, e2 [, e3]
1) 计数增值e3可以为负数,则终值e2必须小于起始 值,才能循环。例: do i=10, 1, -1 write (*, *) I end do 作计数器的变量I, 在循环的程序模块中不能再使 用命令来改变它的数值, 不然在编译中会发生 错误 do i=1, 10 i=i+1 end do

2)

3.2 DO循环结构
3)循环的次数为: INT((e2-e1+e3)/e3) 4) 尽量避免使用实型的计数循环 例: Do x=0.0, 50.0, 0.1 循环次数: (50.0+0.1)/0.1=501 ? do i=0, 500 循环次数为501 5)用来设置计数器初值、终值和增值的数值可以使 用变量来指定,只会在循环之前被读取一次,在循环 中变量值改变不会影响循环

3.2 DO循环结构
S=1 E=10 Inc=1 Do i=s, e, inc s=5 e=1 inc=-1 Write(*, *) I End do

3.2 DO循环结构
6)Do循环可以多层嵌套
执行结果:
program ex0603 总共循环 implicit none 次数3×3 integer :: i,j do i=1, 3 do j=1, 3 write(*, "(I2,I2)") i,j end do write(*,*) "another circle" end do stop end

3.2 DO循环结构
? DO WHILE 循环
循环不一定要有计数器的增减来界定是否该 结束循环,可由一个逻辑运算来作决定,主要 用于不能预知执行次数的循环。
d o w h ile (e ) ? ? ? ?循环体 L a b e l te rm _ stm t ? ?

? Label和term_stmt的含义同计数型DO循环, 终端语句主要使用enddo ? e为逻辑表达式(包括关系表达式)

3.2 DO循环结构
do while(e) …… …… …… end do

逻辑表达式成立时,执行循环

do while循环执行过程

3.2 DO循环结构
例:使用DO WHILE循环计算2+4+6+8+10
program ex0604 implicit none integer, parameter :: limit=10 ! 计数器的上限 integer counter ! 计数器 integer :: ans = 0 ! 拿来累加使用 counter = 2 ! 设定计数器初值 do while( counter <= limit ) ans = ans + counter counter = counter + 2 ! 计数器累加 end do write(*,*) ans stop end

3.2 DO循环结构
例:猜体重直到猜中为止
program ex0605 implicit none real, parameter :: weight=45.0 real, parameter :: e = 0.001 real :: guess = 0.0 do while( abs(guess-weight) > e ) write(*,*) "Weight:" read(*,*) guess end do write(*,*) "You're right" stop end 初设值保证 为真以执行 第一次循环

3.2 DO循环结构
? 循环的流程控制
循环结构也可以多层嵌套, 嵌套循环也称 多重循环,即在一个循环体内又包含另一个完 整的循环. do while(e) do do …… end do end do end do


相关文章:
第九课循环结构——do循环
搜试试 2 悬赏文档 全部 DOC PPT TXT PDF XLS ...第九课循环结构——do循环_其它课程_初中教育_教育...循环的 第 1 课时,了解了 Do 循环结构以及 Do…...
实验六1
FORTRAN90 提供了用于实现循环结构的多种语句,有:DODO WHILE、EXIT、CYCLE ...变量 I 为循环控制变量,取值为 1、2、3、4、5、6、7、8、9、10。 通过...
Fortran90循环结构程序编程作业
搜试试 3 帮助 全部 DOC PPT TXT PDF XLS ...FORTRAN90 提供了丰富的用于实现循环结构的语句,有:...DO I= -2- ? WRITE(*, “(1X, ‘请输入第...
fortran模拟试题
阅读下列 FORTRAN 程序, 程序运行时执行循环体的次数是( A )。 X=0 DO L=10, 5, 1 X=X+1.0 ENDDO END A) 0 B) 1 C) 6 D) 无穷 9.结构化...
Fortran95第11章 基本计算(三)循环控制结构
搜 试试 7 帮助 全部 DOC PPT TXT PDF XLS ...n​9​5​第​1​1​章​ ​ ​...FORTRAN 语言提供用来进行循环控制的主要结构就是 DO...
FORTRAN实验报告(一)
搜试试 3 帮助 全部 DOC PPT TXT PDF XLS ...FORTRAN实验报告(一)_计算机软件及应用_IT/计算机_...隐性 DO 循环 ENDDO 10 FORMAT(9(2X,I1,'*',...
2014-2015-1fortranA卷
搜试试 3 帮助 全部 DOC PPT TXT PDF XLS ...40×1=40 分) 1 5 9 13 17 21 25 29 33 ...3 D. 4 5、关于 FORTRAN90 中的循环结构 DO V...
fortran模拟试题
阅读下列 FORTRAN 程序, 程序运行时执行循环体的次数是( A )。 X=0 DO L=10, 5, 1 X=X+1.0 ENDDO END A) 0 B) 1 C) 6 D) 无穷 9.结构化...
FORTRAN
FORTRAN_计算机软件及应用_IT/计算机_专业资料。FORTRAN...所有元素与最大值比较——循环结构 循环体:通项...(9)::A INTEGER::I * A='' DO I=1,5 A=...
更多相关标签:
fortran do循环 | fortran do while循环 | fortran中do循环 | fortran 跳出do循环 | 循环结构 课件 | c语言循环结构课件 | fortran 跳出循环 | fortran循环 |