fortran选择结构及基本语句

(2)单分支块IF结构 IF (逻辑表达式) THEN 块 ENDIF IF (G<60) THEN WRITE(*,*) “不及格” ENDIF T
逻辑表达式
F
块
（3）多分支结构 IF (逻辑表达式1) THEN 块1 ELSE IF(逻辑表达式2) THEN 块2 …… ELSE IF(逻辑表达式N) THEN 块N IF (G<60) THEN ELSE WRITE(*,*) “不及格” 块N+1 ELSE IF(G>=60.and.G<90) THEN WRITE(*,*) “及格” END IF ELSE WRITE(*,*) “优秀” ENDIF
结束
例32 求一元二次方程 ax2+bx+c=0的解 ① a=0,不是二次方程 ② b2-4ac=0,有两个相等的实数根 ③ b2-4ac>0,有两个不等的实数根 ④ b2-4ac <0，有两个共轭复根 阅读例32并画出程序流程图(作业)
程序如下： real a, b, c, d, d1, d2, e, x1, x2 read(*,*) a, b, c d=b*b-4*a*c if(a==0) then if(b/=0) then write(*,*) "一次方程，根为：",c/b else write(*,*) "方程无意义 " end if else
3.4 逻辑 IF 语句
格式：IF (条件表达式) 可执行语句 注意： 逻辑IF语句后面的可执行语句只能为一个 语句且不换行，否则只能用块IF语句代替。
IF (GRADE>60) THEN PRINT*,GRADE ENDIF 等价于： IF (GRADE>60) PRINT*,GRADE

Fortran语⾔基本语法a、Fortran 之基本规定：在Fortran的规定中，程序的开始需先宣告变量形式，接着才能⽤这些变量来写程序内容，再整个程序中的第⼀⾏必须空⽩，除⾮键⼊英⽂字母c或*⽤以表⽰那⼀列为说明项⽽⾮实际之计算式⼦。

第⼆⾏⾄第五⾏为地址⾏，可⽤数字标⽰其地址，⽤以执⾏程序时控制之⽤。

第六⾏⽤以填⼊⼀个⾮零的数字或字母表⽰连结上⼀列的式⼦。

第7⾏⾄72⾏则为程序主体之所在，若不⼩⼼在72⾏之后键⼊程序Fortran将不于理会。

再程序的最后⼀列⽤ end命令告知程序终了。

b、变量（Variable)Fortran语法中的变量相当于函数上变量，但其种类则更多，举凡复数（complex）、整数（integer）、实数（real）、逻辑（logical）和字符串（character）等等。

对于变量的规定是变量的第⼀个字母为英⽂字母，其长度最长为6个字，除刚刚说的第⼀个字之外，其余的可为数字或字母，以下为⼏个简单范例： Integer count,pg1real time,po2pc、运算符号与内定函数：Fortran 基本的运算符号如下：＋加法；－减法；＊乘法；/ 除法＊＊平⽅；**(n) n次⽅除了上列之基本运算符号之外，数值计算上常⽤之函数如三⾓等等亦以写成内定含式，常⽤的以下⼏项：log 对数函数；exp 指数函数；sin、cos、tan、cot、sec和csc等三⾓函数；abs 绝对值；asin、acos、atan、acot、asec和acsc等反三⾓函数。

D、控制结构：结构化Fortran有⼀些控制的结构，关系控制即是其中之⼀种，⽤以⽐较两变量之间关系，包含有：.lt. 表⽰⼩于.gt. 表⽰⼤于.eq. 表⽰等于.le. 表⽰⼩于或等于.ge. 表⽰⼤于或等于.ne. 表⽰不等于另⼀种重要的控制为逻辑控制，包含有：.not. .not. p => 若p为⾮真则为真.and. p .and. q => p和q为真则为真.or. p .or. q => p或q其⼀为真则为真.eqv. p .eqv. q => p和q同为真或同为⾮真则为真.neqv. p .neqv. q => p或q之中⼀为真⼀为⾮真则为真e、输⼊与输出结构：> Fortran 经常会有⼀些数值需要输⼊或计算的值需要输出，这时 Fortran 便提供了⼀些格式码好让使⽤者将欲输⼊或输出的数值针对其变量的特性作较佳的安排设计，兹举例如下，其中输出之资料格式完全相同：a、write(*,10) i,j,k10 format (1x,2I5,I3)b、assign 10 to ifmt10 format (1x,2I5,I3)write (*,ifmt) i,j,kc、write (*,'(1x,2I5,I3)') i,j,kd、character*11 fmtchfmtch='(1x,2I5,I3)'write (*,fmtch) i,j,k其中X表⽰空格之意，1x即是空⼀格， write为输出的指令，若改为 read 则为输⼊指令，I为整数的格式码， 2I5 表⽰输出的总位数为五，⽽这样的格式重复两次，其余尚有不同之各种格式码，常⽤的有：1. F 格式码，⽤于实数变量，其⼀般型态为 rFw.d ，其中F表实数，r为重复次数，w为总位数，⽽d为⼩数字数。

第一节
类型说明语句
I－N规则
（3）隐含说明变量的类型
根据变量名称的第一个字母自动决定变量的类型， 根据变量名称的第一个字母自动决定变量的类型， 变量名称的第一个字母自动决定变量的类型 且仅适用于整型和实型变量。 且仅适用于整型和实型变量。 IMax，Number，JOB，COUNT，TOTAL， 例 J，IMax，Number，JOB，COUNT，TOTAL，BOOK 最好不用这种不经说明就使用变量的方法。 最好不用这种不经说明就使用变量的方法。好的 程序员在编写程序时都会先对变量进行说明才使用变 这样能清楚了解程序执行时的内存使用情况， 量，这样能清楚了解程序执行时的内存使用情况，同 时也可避免很多“人为错误” 时也可避免很多“人为错误”。
第三节
赋值语句
三、赋值过程的类型转换作用 在一个算术赋值语句V=e V=e中 赋值变量（ 在一个算术赋值语句V=e中，赋值变量（V）和表达式 的类型既可以相同，也可以不相同。Fortran中对于赋 （e）的类型既可以相同，也可以不相同。Fortran中对于赋 值时的类型转换问题作了如下规定。 值时的类型转换问题作了如下规定。 如果变量V与表达式e的类型相同，则直接进行赋值， □如果变量V与表达式e的类型相同，则直接进行赋值， 不需进行类型转换。 不需进行类型转换。 如果变量V与表达式e的类型不同， □如果变量V与表达式e的类型不同，则首先进行表达式 的求值，然后求值的结果转换为赋值变量的类型。 的求值，然后求值的结果转换为赋值变量的类型。 例1、交换A，B值； 交换A 例2、 计算
答案： 、 答案：1、2.0*SIN（3.14/4）/3.0 （ ） 2、(Sin(4.0)+cos(10*3.14/180))*exp(2.5)/ 、 (Sqrt(2.0)+abs(a*x)+log(3.0*5))

前言FORTRAN90的新特性1、淘汰了所有转移语句，增加了新的控制结构，使程序结构化。

增加了结构块，模块及过程的调用灵活形式。

2、加强数组的算法功能。

提出超载概念与实现方法。

提高了文字处理功能。

3、更接近自然语言与公式演算。

允许在字符数据用选取不同种别。

特别：语句书写对列的要求放宽：一般一行写一条语句（也可也多个语句，用“;”分隔），没有标号区、续行区、正文区的区别。

一行最多为132列，可以在任何列处中断语句，中断处写一个“&”，随后在下一行任意列处继续。

一个语句最长不能超过2640个字符。

语句结尾不可有标号、符号。

注释以“!”开始，可以位于任何位置。

***以下只讨论与FORTRAN77不相同处。

第一章FORTRAN90的基本语句第一节类型说明语句1、变量名全长不得超过31个字符。

2、变量类型定义：INTEGER::X,YREAL::ACOMPLEX::B,C,D3、建议淘汰隐式说明，在程序说明部分一开始就写：IMPLICIT NONE向系统声明不使用隐式说明。

4、可以在变量说明时就置初值。

如：REAL::X=1.1,Y,Z=2.25、种别——决定变量的精度和所占内存单元数。

a.如：REAL(KIND=2)::X 说明变量X为REAL型，种别为2。

KIND是种别说明关键字。

如没有种别说明，则采用系统省缺值。

b.有关函数：KIND(X) 返回X的种别参数。

当X取常数0时，返回省缺种别参数。

如KI ND(0)、KIND(0.0)、KIND(.FALSE.)、KIND('A')分别返回整型、实型、逻辑型、字符型的省缺种别参数。

SELECTED_REAL_KIND(N,M) 返回种别参数，使之满足十进制有效位为N, 值范围在10**(-M)和10**M之间的实数。

SELECTED_INT_KIND(N,M) 与上类似，选择整型类别。

c.常数类别表示对数值型常数、逻辑型常数用后缀法，即在常数后加一下划线，再跟种别参数。