naj_Fortran3-循环

fortran循环结构及基本语句Fortran中的循环结构包括DO循环和DO WHILE循环。

基本语句包括赋值语句、条件语句和IO语句。

1.DO循环结构：DO循环结构用于重复执行一段代码块，语法如下：DO variable = start, end, step!代码块ENDDO在循环开始前，将变量初始化为start的值，然后执行代码块。

然后将变量增加step的值，并检查是否达到end的值，如果没有达到则继续执行代码块，直到达到end的值为止。

2.DOWHILE循环结构：DOWHILE循环结构用于在满足条件时重复执行一段代码块，语法如下：DO WHILE (condition)!代码块ENDDO在每次循环开始前，检查condition是否为真，如果为真则执行代码块，然后再次检查condition。

只有当condition为假时，循环才会结束。

3.赋值语句：赋值语句用于将一个值赋给一个变量，语法如下：variable = expression可以使用算术运算符和函数来计算expression的值，并将结果赋给变量。

4.条件语句：条件语句用于根据条件选择执行不同的代码块，常用的条件语句有IF语句和SELECTCASE语句。

-IF语句的语法如下：IF (condition) THEN!代码块1ELSE IF (condition) THEN!代码块2ELSE!代码块3ENDIF根据condition的值选择执行代码块1、代码块2或代码块3-SELECTCASE语句的语法如下：SELECT CASE (expression)CASE (value1)!代码块1CASE (value2)!代码块2CASEDEFAULT!代码块3ENDSELECT根据expression的值选择执行相应的代码块，如果没有匹配的值，则执行默认的代码块。

5.IO语句：IO语句用于输入和输出数据，常用的IO语句有WRITE和READ语句。

read *, n,x SUM=0.0 DO I=1,N term= 1.0 / I**2 SUM=SUM+term ENDDO PI=SQRT(SUM*6.0) END
循环变量的UM=0. I=1 DO WHILE(1./ I**2>=1E-6) SUM=SUM+1./I**2 I=I+1 ENDDO
例：求两个整数的最大公约数 (DO WHILE 结构程序见DIVISOR.F90) read *, m,n
do while (m/=n) do while (m>n) m=m-n end do
do while (n>m)
n=n-m end do end do print *, '最大公约数＝',m
也称“循环变量”
行号
行号
循环终端语句：
循环终端语句为一般的执行语句。 F90 规 定 ： 循 环 终 端 语 句 可 以 是 除 了 GOTO 、 块 IF 、 CASE 、 CYCLE 、 DO 、 ELSE 、 ELSE IF 、 END IF 、 END 、 END SELECT 、 EXIT 、 SELECT CASE 、 STOP 和RETURN语句以外的任一可执行语句，如打印语句、赋 值语句、输入语句、逻辑IF语句等都可以作为终端语句。 特殊的循环终端语句是： END DO(常用于无语句标号时 ) 和CONTINUE(常用于有语句标号时 )。END DO语句使老 的CONTINUE语句显得没有什么用处了，虽然F90的向下 兼容性使CONTINUE语句仍然可用，但新编写的程序应该 尽量使用以END DO结束的块DO构造
end
例：打印“九九表”，即 1×1=1
1×2=2
……

3 Fortran循环结构程序设计的其它问题
implicit none integer m,i,j read*,m j=sqrt(real(m)) do i=2,j if(mod(m,i).eq.0) exit end do if(i>>1)then print*,m,'是素数' else print*,m,'不是素数' end if End
三、do while循环举例
例1：输入一个整数，输出其位数。
分析：输入的整数存入变量m中，用变量n来统计m的位数，程序为：
Integer:: m,n=0 read*,m Do while (m>0) n=n+1 m=m/10 end do print*,‘n=’,n End 比如：129 ↙ n=3
（4）对于循环次数确定的循环问题也可以使用do while语句来实现，比如：求5！
integer:: m=1,n=1 do while (m<=5) n=n*m m=m+1 end do print*,n End
二、do while循环的执行过程
Do while循环的执行过程可示意为右图，说明如下：
分析：最大公约数在[1,min(m,n)]范围内，且同时能被m和n整除，因此利用do i=min(m,n),1搜寻，一旦mod(m,i)=0、mod(n,i)=0则此时的i就是最大公约数，并利用exit退出循环。然后利用最大公约数，求出最小公倍数。程序为：
If(条件)exit
表示条件为真执行exit终止循环，为假时exit不执行，将继续执行循环。
（2）循环变量与参数表达式数据类型不一致时，其处理方法与赋值语句相同，即先计算参数表达式、并把结果转换成循环变量类型，然后进行处理。比如，“do i=1.3,5.9,2.6”相当于“do i=1,5,2”

FORTRAN95第三章循环程序设计第三章的内容包括：1.DO循环：DO循环是FORTRAN中最基本的循环结构。

它允许我们指定循环变量的初始值、结束值和步长。

在每次循环迭代时，循环变量都会自动更新，并且在达到结束值时退出循环。

2.嵌套循环：FORTRAN也支持嵌套循环，这是在一个循环内部使用另一个循环。

嵌套循环使得我们能够处理更加复杂和具有分层结构的问题。

3.WHILE循环：FORTRAN还提供了类似于其他编程语言中的WHILE循环。

WHILE循环允许我们在循环前先检查一个条件，并且只要条件为真，就会继续执行循环体。

4.无限循环：有时候需要创建一个无限循环，即一个永远不会结束的循环。

在FORTRAN中，我们可以使用无条件的循环退出语句来跳出循环。

5.循环控制：在循环内部，我们可以使用控制语句来控制循环的执行方式。

这些控制语句包括CONTINUE、EXIT、CYCLE和END。

6.循环的应用：循环结构在许多数学和科学计算问题中都有广泛应用，如求和、求平均值、计算阶乘、寻找最大和最小值等。

循环程序设计是编程中非常重要的一部分，因为它可以帮助我们处理大数据集和执行复杂算法。

FORTRAN95提供了一系列强大的循环结构，使得我们能够更加灵活和高效地处理各种问题。

在循环程序设计中，重点应该放在优化循环的执行。

通过合理地选择循环变量的初始值、结束值和步长，以及使用合适的循环控制语句，可以使循环更加高效。

此外，避免在循环体内进行过多的计算和IO操作，可以减少循环的执行时间。

总之，循环程序设计是编程中一个基本但重要的概念。

FORTRAN95提供了丰富的循环结构和控制语句，使得我们能够更加高效地处理各种问题。

在实际应用中，我们应该根据具体问题的要求，合理选择和优化循环结构，以求得更好的性能和效果。