FORTRAN90第三章循环结构程序设计.
合集下载
Fortran90学习指导
FORTRAN90学习指导一、FORTRAN90基础知识1．源程序及其构成书写格式：主程序定义语句、结束语句注意：在没有程序名称的时候，程序开头的PROGRAM也不要出现。
如果使用了程序名称且在END语句中出现，则END语句中的PROGRAM不能省略。
语句行可以是0~132个字符；除赋值语句外，每个语句都要使用关键字开头。
如果希望一行中出现多个语句，语句一定要用分号隔开。
空格不能随便使用，关键字、变量和常量名以及操作符中的空格会使字符失去其原有的含义。
但它们之间一定要加空格。
注释行：以感叹号为标记，或“C”、“*”（FORTRAN90中不提倡此用法）续行标记：在句末尾添加续行符&，如果将关键字分成两行，则下一行开头也要加续行标记。
如果续行符出现在注释语句中，则失去了续行的功能。
2．FORTRAN90字符集126个英文字母（大小写字母等价）210个阿拉伯数字3下划线421个特殊字符：空格= + - * / （），. ‘ :！“% & ；< > ? $5其他字符（只可以出现在字符常量、字符串编辑描述符、注释和输入输出记录中）3．基本数据类型1 整型KIND值可以为1、2、4类型说明关键字：INTEGERKIND值决定数据的范围。
对于整数没有误差。
I=3/2=1；I=1/2=0INTEGER（KIND=4）：：AINTEGER*4：：AINTEGER（4）：：A2 实型KIND值可以为4（单精度7位有效数字）、8（双精度15~17位有效数字）类型说明关键字：REAL小数表示形式、指数表示形式（规格化的指数形式）错误表示形式：E34、.E34、0.14E2.38开3次方：8.0**（1.0/3.0）3 复型KIND值为4、8是实数的有序对，将两个实数中间用逗号分隔，然后放在一对括号中类型说明关键字：COMPLEX复数的运算：+、—、*、/4 字符型KIND值为国家语言种类由一对单撇号或一对双撇号之间的字符序列组成。
2010_Fortran90_06 Zym
2
计数器的
增值为1
7
计数器的
增值为2
8
9
F77普遍使用
10
u Do 的语法结构
Ü③Do 循环的多层嵌套：
11
注：
内层先循环，外层后循环。
12
u Do 循环的编程技巧：
Ø①计数器的增值：可以是正整数（计数器的终止值>初值），也可以是负整数（计数器的终止值<初值）。
Ø②计数器的初值、终
止值和增值：可用已知变量指定。
Ø③计数器的变量i ：在循环中，禁止改变其值
u固定执行次数的循环：do循环比do while循
环更简洁
14
u执行次数不确定的循环：
do while 循环能较好解决；
do循环用if和exit（goto）解决。
在大型数值计算模型
中，因循环众多，该
用法极少使用。
16
循环中执行cycle后,直接跳过4。
18
改写
20
ex0608.f90
21
24
【实例1】：ex0610.f90
ex0611.f90数值计算常用方法：计算完成后，变
量值更新，进行下一次循环。
解密
加密
取得字符串
实际长度
27
【实例4】
ex0614.f90
28。
FORTRAN_90_复习
FORTRAN 90 基础知识第三章基本知识,如：字符集、名称、关键字、程序单元、书写格式、数据类型。
名称：①名称只能由英文字母、数字、下划线符“_”和美元符号“$”组成。
②名称第一个字符必须是英文字母。
③名称不能超过31个字符。
合法名称: Number,Max, PrOgRaM, FIND_IT, read, x, a3b7, china, total, x$y$z 。
非法名称:X-Y-Z, 8q, a.5, _wrong,U.S.A., DR.WANG,$abcd,r a t e 。
书写格式：自由格式，固定格式3个通用标志符：注释标志符“！”、语句分隔标志符“；”和续行标志符“&”。
数据类型第四章 内部数据类型常量和变量:语法描述; 精度（kind 值）和取值范围 整型常量：整数(10进制)。
实型常量：实数。
复型常量：复数。
字符型常量：字符串。
逻辑型常量：逻辑值，布尔值。
.true. .false.变量的申明。
表达式算术表达式：算术运算符的优先级和结合规则；操作数的类型转换FORTRAN 90 数据类型内部数据类型派生类型(记录类型)数组类型指针类型 公用区类型类型整数类型 实数类型 复数类型字符类型 逻辑类型运算符 含义 结合顺序 优先级 运算速度 说明 ( ) 最高 ** 乘方 左←右 高 慢 两个**之间不能出现空格 * / 乘 除 左→右 ↑ ↑ 数学符号× ÷为非法字符，用*和/代替 + - 加(二元加) 减(二元减) 左→右 ↓ ↓ + - 正(一元加) 负(一元减) 低 快不同优先级运算符，“先高后低”结合先乘方、后乘除、再加减，括号最优先相同优先级运算符，“从左向右”结合，如9-4+12/3*2**3 = ?乘方算符，“从右向左”结合，如2**3**2 = ?尽量多地使用( )，以使意义明确，避免出现歧义和产生错误转换规则“由低级向高级转换”①数据类型和KIND相同的两个算术操作数，计算时不转换，运算结果的类型和KIND与原数据相同。
第三章FORTRAN90基础知识
使 用 变 元 关 键 字 可 提 高 程 序 的 可 读 性 , 如 内 部 函 数 CMPLX ( X [ , Y] [ , KIND] ) 的X、Y和KIND为变元关键字,可使用 下面语句调用CMPLX函数：
CMPLX (10, 20, 4)
! 按序指定参数。
CMPLX (y=20, kind=4, x=10) ! 按变元关键字指定参数。
_wrong,U.S.A.,
下面是几个使用合法名称的语句例子。
INTEGER total
!total命名了一个整型变量
SUBROUTINE example !example命名了一个过程
PROGRAM area
!area命名了一个程序单元
Lable：DO I=1,N !Lable命名了一个DO循环
第三章 FORTRAN 90基础知识
3.3 关键字/示例
END FUNCTION mul(x,y)
mul=x*y END FUNCTION
第三章 FORTRAN 90基础知识
09/10秋学期
概述 分类 描述 示例
3.4 程序单元
一个F90程序可由多个程序单元组成(至少一个主程序单元)。 程序单元由数据声明和相关操作(语句)构成,必须用END语句结束。
3.2 名称
概述 语法描述 作用域 示例
<名称>→<英gt;∣“_”∣“$”}
说明： ① 名称只能由英文字母、数字、下划线符“_”和美元
符号“$”组成。 ② 名称第一个字符必须是英文字母。
3.2 名称/语法描述
③ 名称不能超过31个字符。
第三章 FORTRAN 90基础知识
模块单元：能被其它程序单元访问的一组定义(数据类型定义、 过程定义)、过程接口定义)所构成的程序单元，其中模块子程序 允许本模块或其它程序单元调用执行。由MODULE语句开始。
CMPLX (10, 20, 4)
! 按序指定参数。
CMPLX (y=20, kind=4, x=10) ! 按变元关键字指定参数。
_wrong,U.S.A.,
下面是几个使用合法名称的语句例子。
INTEGER total
!total命名了一个整型变量
SUBROUTINE example !example命名了一个过程
PROGRAM area
!area命名了一个程序单元
Lable：DO I=1,N !Lable命名了一个DO循环
第三章 FORTRAN 90基础知识
3.3 关键字/示例
END FUNCTION mul(x,y)
mul=x*y END FUNCTION
第三章 FORTRAN 90基础知识
09/10秋学期
概述 分类 描述 示例
3.4 程序单元
一个F90程序可由多个程序单元组成(至少一个主程序单元)。 程序单元由数据声明和相关操作(语句)构成,必须用END语句结束。
3.2 名称
概述 语法描述 作用域 示例
<名称>→<英gt;∣“_”∣“$”}
说明： ① 名称只能由英文字母、数字、下划线符“_”和美元
符号“$”组成。 ② 名称第一个字符必须是英文字母。
3.2 名称/语法描述
③ 名称不能超过31个字符。
第三章 FORTRAN 90基础知识
模块单元：能被其它程序单元访问的一组定义(数据类型定义、 过程定义)、过程接口定义)所构成的程序单元，其中模块子程序 允许本模块或其它程序单元调用执行。由MODULE语句开始。
fortran基础第3章
第三十一页，共62页。
（3）复型数据(shùjù) 由于复数在内存(nèi cún)中是 以两个实数的存储单元存储的，在 输入输出时，以两个实数的编辑符 来提供复数输入输出的格式。
第三十二页，共62页。
（3）复型数据(shùjù)
例题(lìtí)： COMPLEX::A READ (*,100)A PRINT 200,A
第五页，共62页。
对一行(yīxíng)语句的说明：
➢ 一行可由0～132个字符组成 ➢ 可以有注释语句（以!开始），可以单
独占一行，也可以在某个语句后面。 ➢ 可以有续行语句（以&开始），当它出
现在一行末尾，则表示下一行是该行的 继续，若不仅(bùjǐn)末尾有&符，而且 下一行第一个字符也是&符，则表示是 关键字分离。看P26的例子
（2） 实型数据(shùjù)
【例】分析(fēnxī)下面程序段： A=15.8;B=-756.567;C=870.2 PRINT 100,A,B,C
100 FORMAT(1X,E15.6 ,E12.4,E9.3 )
这里1X作为(zuòwéi)纵向走纸控制符，若没有这 个编辑符，则数据中第一个字符将被“吃掉”。 请同学注意：任何带格式输出的语句，第一个编 辑符一定是1X。
若W>L，在字符前面(qián mian)添加WL 个空格;
若W<L，只输出最前面(qián mian)的W 个字符 。
第三十八页，共62页。
（5）字符(zìfú)型数据
【例】 CHARACTER(LEN=5)::STR1 READ(*,100)STR1 PRINT 200,STR1
第十九页，共62页。
3.4.1 格式(géshi)编辑符
（3）复型数据(shùjù) 由于复数在内存(nèi cún)中是 以两个实数的存储单元存储的，在 输入输出时，以两个实数的编辑符 来提供复数输入输出的格式。
第三十二页，共62页。
（3）复型数据(shùjù)
例题(lìtí)： COMPLEX::A READ (*,100)A PRINT 200,A
第五页，共62页。
对一行(yīxíng)语句的说明：
➢ 一行可由0～132个字符组成 ➢ 可以有注释语句（以!开始），可以单
独占一行，也可以在某个语句后面。 ➢ 可以有续行语句（以&开始），当它出
现在一行末尾，则表示下一行是该行的 继续，若不仅(bùjǐn)末尾有&符，而且 下一行第一个字符也是&符，则表示是 关键字分离。看P26的例子
（2） 实型数据(shùjù)
【例】分析(fēnxī)下面程序段： A=15.8;B=-756.567;C=870.2 PRINT 100,A,B,C
100 FORMAT(1X,E15.6 ,E12.4,E9.3 )
这里1X作为(zuòwéi)纵向走纸控制符，若没有这 个编辑符，则数据中第一个字符将被“吃掉”。 请同学注意：任何带格式输出的语句，第一个编 辑符一定是1X。
若W>L，在字符前面(qián mian)添加WL 个空格;
若W<L，只输出最前面(qián mian)的W 个字符 。
第三十八页，共62页。
（5）字符(zìfú)型数据
【例】 CHARACTER(LEN=5)::STR1 READ(*,100)STR1 PRINT 200,STR1
第十九页，共62页。
3.4.1 格式(géshi)编辑符
循环结构的Fortran程序设计
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”
FORTRAN90程序设计1、2、3
[例2-1]
PROGRAM H_TO_C !Given the F temprature,to calculate the Centigrade REAL::TC,TH READ *,TH TC=5*(TH-32)/9 PRINT *,TH,TC END PROGRAM H_TO_C
[例2-2] PROGRAM CAL_M_SUM IMPLICIT NONE INTEGER::N,M REAL::T,A N=0;T=0 PRINT *,'Input number of data:' READ *,M DO READ *,A T=T+A ;N=N+1 IF(N>=M)EXIT END DO PRINT *,T END PROGRAM CAL_M_SUM
输出结果S
[例1-1]N-S图
FORTRAN 语言的发展 源程序及其构成
语言元素
程序单元概念
FORTRAN 是 FORmula TRANslation 的缩写 1954年 1978年 第一个FORTRAN文本的提出 推出FORTRAN77
1991年
FORTRAN90问世
几个简单的FORTRAN90程序 FORTRAN90程序的构成
PROGRAM CAL_FACTOR IMPLICIT NONE INTEGER::FACTOR,S=0,I DO I=4,8 S=S+FACTOR(I) END DO PRINT *,'S=',S END PROGRAM CAL_FACTOR
FORTRAN90程序的构成
1.FORTRAN90是分块形式的程序，一个程序含有 多个程序单元，每个程序有且仅有一个主程序单元。 2.各程序单元由若干行构成。程序行主要有： 说明语句行 可执行语句行 注释行（用！开始）
fortran循环结构及基本语句..
假
判定条件 真
计数型
当型
直到型
[例5.1] 求S=1+2+3+…+N的值(N由键盘输入,N>2)。编写程序。 解：求解这一问题,将执行N-1次加法运算。 如果将等式写成S=0+1+2+…+N,则执行N次加法运算。 重复问题易采用循环结构实现。 用S保存和,用N保存最大求和值,用I作计数器。编写程序如下：
(2)循环执行过程中,若满足循环结束条件,则执行EXIT语句退出循环。 (3)无条件转(1)。
<特殊DO循环语句>→[<名字>:] DO <语句1> <语句2> …… <语句n> ENDDO [<名字>] 循环体
Program 说明： INTEGER M，N，R1，R2，R3，gcd，lcm ① 特殊DO循环语句必须与 EXIT语句配合使用。 Write(*,*)' 输入两个自然数： ' READ(*,*)M,N ②使用特殊 DO循环语句可使循环变得短小、简洁、清晰。 R1=M;R2=N 执行过程： DO IF (R2==0) EXIT (1)按顺序依次执行循环体语句。 R3=MOD(R1,R2) !求R1除以R2的余数 (2)循环执行过程中,若满足循环结束条件,则执行EXIT语句退出循环。 R1=R2;R2=R3 (3) 无条件转 (1)。 END DO gcd=R1;lcm=M*N/gcd （示例） Write(*,"(1X,I3,'和',I3,'的最大公约数为：',I3)")M,N,gcd Write(*,"(1X,I3,'和',I3,'的最小公倍数为：',I3)")M,N,lcm END
F90第三章
第三章 FORTRAN 90基础知识
3.4 程序单元
概述 分类 描述 示例
一个F90程序可由多个程序单元组成(至少 有一个主程序单元)，程序单元由数据声明和 相关数据操作语句构成,必须用END语句结束。
PROGRAM main INTEGER length,width,area,price
3.1 字符集
FORTRAN 90字符集由四部分字符组成： 1．英文字母：A～Z和a～z 除字符型常量外,源程序中不区分字母 大小写。
2．阿拉伯数字：0～9
3.1 字符集/字符集
3．下划线：_
4．特殊字符：空格 + - * / ( ) , . ‘:!“%&;<>?$=
第三章 FORTRAN 90基础知识
3.7 数据类型
概述 数据 数据表示 数据类型
数据类型是数据取值范围和在其上定义 的一组操作的总称。数据类型有四个性质：
每个数据类型有一个唯一的名称。
每个数据类型规定了一个取值范围。
每个数据类型规定了其常量数据的表示方法。
3.7 数据每类型/数个据类型数据类型规定了一组操作。
F90具有丰富的数据类型,有内部数据类型、派 生数据类型、数组和指针类型等。
3.8 兼容性问题
3.2 名称
概述 语法描述 作用域
名称(标识符)在程序中用来标识有关实 体(如:变量、命名常量、函数、过程、程序 单元、公用块、和哑元等)。
PROGRAM main INTEGER length,width,area,price READ*,length,width area=mul(length,width)
<主程序单元>→ [ <PROGRAM语句> ] [ <说明部分> ]
Fortran的讲义第三章
选择结构
计算goto （Fortran 95废除）
goto(10, 20) (x .le. 0.0) + 2 10 y = 0.0
goto 30 20 y = 1.0 30 print *, ‘y = ‘, y
back3.for
选择结构
赋值goto （Fortran 90废除，Fortran95取消）
r .ne. 0
True
执行循环体
False
i = i + inc
r=r-1
i： 循环变量 e1：初值 e2： 终值 inc：步长 r： 循环次数
exam_3_2
循环结构
不允许改变循环变量i
允许改变表达式e1，e2，inc中变量的值，并且不 影响循环次数
退出循环后循环变量的值有意义
循环结构
{<执行语句>}
直到型 do
enddo [<标签>] 10 <执行语句>
{<执行语句>}
{<执行语句>}
if(<逻辑表达式>) exit if(<逻辑表达式>) goto 10
enddo
异常的程序流程
在选择和循环结构中不允许从结构外跳转到结 构内
goto 10 if(<逻辑表达式>) then 10 <执行语句> {<执行语句>} end if
优先级
1 2 3 4 5 6 7 8 9 10
选择结构
块if
<基本块if语句>→[<标签>:]if(<逻辑表达式>)then {<执行语句>} [else [<标签>] {<执行语句>}] endif [<标签>]
Fortran 90 程序设计
Fortran的数据类型
在FORTRAN90中，也可以表示二进制、八进制、 十六进制形式的无符号整数。其形式如下： 二进制数：B’101101’ 或 B”101101” 八进制数：O’76210’ 十六进制数：Z’1FA2’
Fortran的数据类型
2.实型常量（REAL）
实型常量又叫实数，它具有数学实数的近似值。 实数最常见的两种表示形式是：小数形式和指数形式 小数形式：由十个数字、小数点及数符组成的数。 指数形式：对绝对值相对较小或很大的实数 。 规格化指数形式： （两种形式） 1。数字部分的值小于1，且小数点后的第一位数字非0 2。数字部分有且仅有一位非零的整数。
五种变量的类型说明关键字：
整型：INTEGER
实型： REAL
复型：COMPLEX
逻辑型：LOGICAL
字符型：CHARACTER
待说明的变量放在后面，中间用双分隔符::隔开，对于同时 说明多个变量，变量之间用逗号分隔。
Fortran90关于变量说明的新功能： 1.在变量说明的同时，可以给变量赋初值。 INTEGER::I=5，J=126 REAL::X=7.2，Z，W=774.2 2.在说明变量的同时也可说明其种别 3.在说明变量的同时，还可说明变量的属性 INTEGER，PARAMETER::I=5，J=123 REAL，DIMENSION(1:10)::A
缺省种别是指有符号或无符号的整数值。可在数值后用 下划线标明种别，没有下划线为缺省种别。缺省种别整数的范 围一般取决于所用计算机的字长。说明了种别参数后，提高了 程序的可移植性。
简而言之，种别即决定数值在计算机中存储的字节数。
Fortran的数据类型
1.整型常量（INTEGER）
整型常量又叫整数，整数值的集合就是数学整数的子集。
naj_Fortran3-循环
简介
1. 2. 3. 4. 5. Do循环 Do循环 Do while循环 while循环 Exit语句 Exit语句 Cycle语句 Cycle语句 循环的嵌套
2
计算机学院 宁爱军
Tianjin University of Science & Technology
Fortran Fortran语言程序设计
10
计算机学院 宁爱军
Tianjin University of Science & Technology
Fortran Fortran语言程序设计
Exit语句
1. Exit语句迫使循环理解终止，跳出循环继续执行后循 Exit语句迫使循环理解终止，跳出循环继续执行后循 环后边的语句 program eg0401 real r,area do r=1,10 area=3.14*r*r if (area>100) then exit end if print *,area end do print *,r,area 11 计算机学院njin University of Science & Technology
Fortran Fortran语言程序设计
1. 算法的加速
program eg0401 integer n,I,k do n=100,1000 k=sqrt(real(n)) do i=2,k,1 if (mod(n,i)==0) then exit end if end do if (i==k+1) then print *,n,"是素数 !" else print *,n,"不是是素 数!" 14 end if 计算机学院 宁爱军 end do
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
例: DO I=2,5,1的循环次数为4. DO X=2.2,5.4,1.1的循环次数为3. DO I=2.2,5.4,1.1的循环次数为4. (3)正常出口:从循环的ENDDO语句脱离循环的 称为正常出口,否则称为非正常出口.脱离循环后 DO I=1,5 循环变量保留脱离时的值.例:
DO I=1,5 J=I*I END DO PRINT*,I,J 输出 6,25 IF(I>3)GOTO100 J=I*I END DO 100 PRINT*,I,J 输出
4,9
END
END
DO循环结构命名方式与块IF结构相仿:
DO循环结构的命名
DO循环结构名: DO 循环变量v= e1,e2[,e3] 循环体statements ENDDO[循环结构名]
Do循环的例题 例:计算n! 例:前n个自然数之和 read(*,*) N S=0 do I = 1,N S = S+I ENDDO Write(*,*) N,S END
循 环次数 r=INT((e2-e1+e3)/e3), 如 果初始 值 表达式 e1, 终止值表达式 e2, 增量表达式 e3 中有 实型表达式 ,循环就可能少做一次。循环次数 至少为零。 例: E3 = 0.1 Do x = 0,50.1,E3 print *,X ENDDO 0.1不能精确表示,50.1/0.1得到500.9几,被INT() 直接截断,循环次数=500。
INTEGER：：I，K，N=0，S=0 EXAM1：DO I=1，100
READ*，K
IF（K＞9000）EXIT EXAM1
IF（MOD（K，2）==0）THEN
N=N+1
S=S+K；ENDIF
ENDDO EXAM1 PRINT*，’N=’，N，’S=’，S END
CYCLE语句使循环体中在它后面的语句不被执 行,而重新执行下一轮循环,格式为: CYCLE [DO循环结构名] 可用IF语句结合CYCLE语句有条件地转移循环。
例 : 求 Fibonacci 数列： 1 ， 1 ， 2 ， 3， 5， 8 ， …… 的前40个数.
1
1
2
3
5
8
13
程序为:
F1=1;F2=1 PRINT*,F1,F2 DO I=3,40 F=F1+F2 PRINT*,F F1=F2 F2=F END DO END
F1 +F2= F
F1 +F2 = F
格式:DO 循环变量v= e1,e2[,e3] 循环体statements ENDDO 功能 : 对于变量 v 的值从初值 e1 按增量 e3 增 加到终值 e2, 反复执行循环体。 e1,e2,e3 都是 算术表达式,e3的缺省值为1。循环变量v是代 数量(整型/实型)。
例: DO I=10,2,-2 print *,I,I*I ENDDO
read(*,*) N
f=1
do I = 2,N
f = f*I
ENDO
Write(*,*) n,f END
例:输入100个数,求其中正数的个数及其平 均值。
S = 0;N = 0 Do K = 1,100 Read(*,*) A IF(A>0) Then N = N+1 S = S+A End If ENDDO If(N>0) Print *, N,S/N End
最好用整型变量来控制循环,以避免少做 一次的问题。 例: X=0 Do K = 0,500 print *,X X = X+0.1 EndDO END
返回
Do 循环执行过程 S1: 求表达式e1,e2,e3的值,编译系统分别用 三个与循环变量v相同类型的临时变量(不妨 记为v1,v2,v3)来存放其值。 S2:循环变量v=v1 S3: 计算循环次数r=INT((v2-v1+v3)/v3) S4: 若r ≯0,则转S9 S5: 执行循环体 S6: 循环变量v增加增量v3 S7: 循环次数r减1 S8:转S4 S9:循环终端语句后第一条可执行语句。
F1 + F2 = F
DO I=1,19 F1=F1+F2 F2=F1+F2 END DO
§3.2 重复Do循环结构 §3.2.1中断语句(EXIT,CYCLE)
EXIT语句强制退出循环,格式为: EXIT [DO循环结构名]
可用IF语句结合EXIT语句有条件地中断循环。
例如：输入一组整数（个数小于100），求这 组数的偶数个数和偶数之和 。当某数大于 9000时程序结束。程序为：
DO I=1，100
READ*，X
IF（X＜＝0）CYCLE
PRINT*，X
ENDDO
END
§3.2.2 重复Do循环结构 一般形式: [DO循环结构名:] DO 循环体statements ENDDO [DO循环结构名] 重复Do循环结构一般来说是一个死循环,必须 在其循环体内用逻辑IF语句结合EXIT语句 或GOTO语句等迫使循环中止。
注意: (1)循环变量的值在循环体中可以引用 ,不能被重 新赋值.例: 而 DO I=1,20 DO I=1,20
J=I*I
PRINT*,I,J
I=I*I
PRINT*,I
END
E3 的类型与 V 的类型可以相同 , 也可以 不同,当类型不同时,系统自动将E1,E2,E3的类型 转换成V的类型.
说明：
（ 1 ） CYCLE 语句的执行将改变循环体的执
行顺序，并不终止循环的执行。 （ 2 ）当执行 CYCLE 语句后，重新执行下一 轮循环时，循环变量应增加一个步长。
例如：输入一组数据（ 100 个），将大与 0 的 数据打印出来。程序为：
IMPLICIT NONE
REAL X
INTEGER I
§3 循环结构程序设计
§3.1 有循环变量的DO循环结构
§3.2 重复DO循环结构 §3.3 DO_WHILE控制的循环结构 §3.4 循环的嵌套 §3.5 循环结构程序设计举例
§3.1有循环变量的DO循环结构 重复执行一组操作称为循环。算法中构成 循环的结构称为循环结构 。 在FORTRAN中,实现循环结构的最直接方 法就是用 GOTO 语句 , 但这种方法不符合结 构化程序设计的思想,并不值得提倡。 FORTRAN 90一般有两种方法实现循环 控制:DO_ENDDO语句和do While_ENDDO语句。