《FORTRAN语言注册电气工程师考试培训资料》由会员分享，可在线阅读，更多相关《FORTRAN语言注册电气工程师考试培训资料（14页珍藏版）》请在金锄头文库上搜索。
1、FORTRAN语言程序组成程序组成 1.1.一个程序由一个或若干个程序单位组成一个程序由一个或若干个程序单位组成. .主程序和每一主程序和每一个子程序分别是一个独立的程序单位个子程序分别是一个独立的程序单位. . 2. 2.每一个程序单位都是以每一个程序单位都是以” ”END”END”结束结束. . 3. 3.程序书写格式程序书写格式 (1) (1) 第第1-51-5列为标号区列为标号区, ,标号应是无符号整数标号应是无符号整数( (不能包括不能包括符号以及小数点符号以及小数点), ),数字之间的空格不起作用数字之间的空格不起作用, ,标号大小没标号大小没有任何要求有任何要求. . (2) (
2、2) 第第6 6列为列为” ”续行标志区续行标志区” ”, ,如果写一个非空格和非零如果写一个非空格和非零的字符的字符, ,则该行为上一行的续行则该行为上一行的续行. .一般采用一般采用” ”&”&”和和” ”$”$”作作为续行标志为续行标志. .继续行上的标号必须为空白继续行上的标号必须为空白. . (7-38) (7-54) (7-55)(7-56) (7-38) (7-54) (7-55)(7-56) FORTRAN语言简单程序示例简单程序示例 C MAIN PROGRAMC MAIN PROGRAM PROGRAM EX2 PROGRAM EX2 PRINT *,R=,1.0,C=,C
3、(1.0) PRINT *,R=,1.0,C=,C(1.0) END END C SUB PROGRAM C SUB PROGRAM FUNCTION C(R) FUNCTION C(R) PI=3.1415926 PI=3.1415926 C=2*PI*R C=2*PI*R RETURN RETURN END ENDFORTRAN语言常量常量 整型整型(-8,+123),(-8,+123),实型实型(+12.3,-3.75,10.3E8),(+12.3,-3.75,10.3E8),逻辑型逻辑型( (真真, ,假假), ),字符型字符型( (abcabc) )变量变量 1.1.命名规则命名规则
4、 第一个字符必须是字母第一个字符必须是字母. . 在一个字母后可以跟在一个字母后可以跟1-51-5位数字或字母位数字或字母. . 只有前六个字母有效只有前六个字母有效. . (7-53) (7-53) FORTRAN语言2.2.类型类型 (1)(1)隐含约定隐含约定 以字母以字母I,J,K,L,M,NI,J,K,L,M,N六个字母开头的认为是整型变量六个字母开头的认为是整型变量, ,以其以其它字母开头的变量为实型变量它字母开头的变量为实型变量. . (2) (2)用类型说明语句确定变量类型用类型说明语句确定变量类型 INTEGER A,SUM,TOTALINTEGER A,SUM,TOTAL
5、REAL IMAX,NUM,JOB REAL IMAX,NUM,JOB 类型有类型有: :INTEGER,REAL,LOGICAL,CHARACTERINTEGER,REAL,LOGICAL,CHARACTER (3) (3)用用IMPLICITIMPLICIT语句语句( (隐含说明隐含说明) )指定变量类型指定变量类型 IMPLICIT INTEGER (A,B),REAL(I,K)IMPLICIT INTEGER (A,B),REAL(I,K) 优先次序由低到高分别为优先次序由低到高分别为1,3,21,3,2FORTRAN语言内部函数内部函数 FORTRANFORTRAN提供了一些系统函数
6、来完成一些常用运算提供了一些系统函数来完成一些常用运算. .例如例如: :SIN,COS,SQRT,MAX,MIN,ABSSIN,COS,SQRT,MAX,MIN,ABS等等. .算术表达式算术表达式 1.1.算术运算符算术运算符:+ - * / *:+ - * / * 2. 2.运算优先级运算优先级, ,由高到低依次为由高到低依次为: : 括号括号,*,(*,/),(+,-),*,(*,/),(+,-)表达式运算中的类型问题表达式运算中的类型问题 1.1.同类型的算术运算量之间运算的结果仍保持原类型同类型的算术运算量之间运算的结果仍保持原类型. . 2. 2.如不同类型的算术量进行运算如不同
7、类型的算术量进行运算, ,则将它们转换成同一类型后进行运算则将它们转换成同一类型后进行运算. .转换规律是转换规律是: :将低级类型转换成高级类型将低级类型转换成高级类型.( .(整型转换为实型整型转换为实型) ) (7-28)(7-29) (7-28)(7-29)FORTRAN语言赋值语句的类型转换问题赋值语句的类型转换问题 1.1.如果变量与表达式的类型相同如果变量与表达式的类型相同, ,则直接进行赋值则直接进行赋值. . 2. 2.如果类型不同如果类型不同, ,则先进行表达式的求值则先进行表达式的求值, ,然后将该表达式的值转换为被赋值变然后将该表达式的值转换为被赋值变量的类型量的类型.
8、 .输出输出, ,输入语句输入语句 1.WRITE(*,*) A,B 1.WRITE(*,*) A,B 第一个第一个*表示在系统隐含指定的设备上输出表示在系统隐含指定的设备上输出. . 第二个第二个*指的是指的是” ”用表控格式输出用表控格式输出” ”. . 2.READ(*,*) I,J,A,B 2.READ(*,*) I,J,A,B 第一个第一个*表示在系统隐含指定的输入设备表示在系统隐含指定的输入设备. . 第二个第二个*指的是指的是” ”表控输入表控输入” ”. . 3. 3.使用格式编辑符来实现指定的输入输出格式使用格式编辑符来实现指定的输入输出格式. . WRITE (*,100)
9、 J,K,L WRITE (*,100) J,K,L 100 FORMAT(1X,I3,I5,I7) 100 FORMAT(1X,I3,I5,I7) 其中其中:1X:1X表示换一行表示换一行 I3I3表示占表示占3 3列列FORTRAN语言 编辑符编辑符: :整型整型 IwIw Iw.mIw.m 实型实型 Fw.dFw.d 指数型指数型 Ew.dEw.d 字符型字符型 AwAw (7-39) (7-39)参数语句参数语句PARAMETERPARAMETER 作用是用一个符号来代表一个常量作用是用一个符号来代表一个常量. . PARAMETER (PI=3.1415926) PARAMETER
10、(PI=3.1415926) PARAMETER (A=0.5,N=50,J=30) PARAMETER (A=0.5,N=50,J=30) 注意点注意点: :符号常量不能作为语句标号符号常量不能作为语句标号, ,也不能出现在也不能出现在FORMATFORMAT语句中代替常数语句中代替常数. .跳转语句跳转语句GOTOGOTOFORTRAN语言关系表达式关系表达式 算术量算术量 算术量算术量 关系表达式的值是逻辑值关系表达式的值是逻辑值.( .(真真, ,假假) ) 关系运算符关系运算符: .GT. .GE. .LT. .LE. .EQ. .NE.: .GT. .GE. .LT. .LE. .
11、EQ. .NE. (7-26) (7-26)逻辑表达式逻辑表达式 逻辑量逻辑量 逻辑量逻辑量 逻辑表达式的值显然是逻辑值逻辑表达式的值显然是逻辑值. . 逻辑运算符逻辑运算符: .AND. .OR. .NOT. .EQV. .NEQV.: .AND. .OR. .NOT. .EQV. .NEQV.逻辑表达式的运算次序逻辑表达式的运算次序 1. 1.先计算算术表达式的值先计算算术表达式的值. . 2. 2.再求关系表达式的值再求关系表达式的值. . 3. 3.最后进行逻辑运算最后进行逻辑运算.(.NOT. .AND. .OR. .EQV. .NEQV.).(.NOT. .AND. .OR. .E
12、QV. .NEQV.) 例例: A.LE.0.0 .AND. A+C .GT. B+D .OR. .NOT. .TRUE.: A.LE.0.0 .AND. A+C .GT. B+D .OR. .NOT. .TRUE. FORTRAN语言逻辑运算符的运算对象是逻辑量逻辑运算符的运算对象是逻辑量, ,运算结果是逻辑量运算结果是逻辑量. . (7-27)(7-31)(7-52) (7-27)(7-31)(7-52)IFIF语句语句 1.IF (1.IF (逻辑表达式逻辑表达式) THEN) THEN 程序块程序块1 1 ELSE ELSE 程序块程序块2 2 END IF END IF 2. IF
13、(2. IF (逻辑表达式逻辑表达式) ) 语句语句 3.IF3.IF语句可以嵌套语句可以嵌套 (7-30)(7-32)(7-57)(7-58)(7-59)(7-60)(7-30)(7-32)(7-57)(7-58)(7-59)(7-60)FORTRAN语言DODO语句语句 DO DO 标号标号 循环变量循环变量= =初值初值, ,终值终值, ,步长步长 例例:DO 10 I=1,10,1(:DO 10 I=1,10,1(步长步长1 1可以省略可以省略) ) J=I*I J=I*I 10 WRITE(*,*) I,J 10 WRITE(*,*) I,J CONTINUE CONTINUE语句语
14、句: :将流程转到逻辑上的下一个语句将流程转到逻辑上的下一个语句. . DO DO循环的一些规定循环的一些规定 1.1.循环变量可以在循环体中被引用循环变量可以在循环体中被引用, ,但不能再被赋值但不能再被赋值. . 2. 2.循环变量的初值循环变量的初值, ,终值终值, ,步长在执行循环体期间不能改变步长在执行循环体期间不能改变. . 3. 3.可以用转移语句从循环体内转到循环体外可以用转移语句从循环体内转到循环体外, ,也可以在循也可以在循环体内转移环体内转移, ,但不允许从循环体外转到循环内但不允许从循环体外转到循环内. . (7-33)(7-34)(7-46)(7-47)(7-48)(
15、7-51)(7-33)(7-34)(7-46)(7-47)(7-48)(7-51)FORTRAN语言数组 说明语句: 1.INTEGER NUM(1:3) 2.DIMENSION IA(10),ND(80:99)适用隐含规则) 由于数组下标的规律性,数组经常与DO循环结合使用. (7-49)(7-50)FORTRAN语言函数函数 定义形式定义形式:f(x1,x2,:f(x1,x2,xnxn)=e)=e 注意点注意点: : 1.1.函数名命名规则与变量相同函数名命名规则与变量相同. . 2. 2.函数参数应是变量名函数参数应是变量名, ,不能是常量不能是常量, ,表达式或数组表达式或数组下标下标
16、. . 3. 3.函数也可以给调用它的通过自行编制代码函数也可以给调用它的通过自行编制代码, ,从而从而将参数值返回给调用它的父程序将参数值返回给调用它的父程序. .因此因此, ,可以双向可以双向传递数据传递数据.( FUNCTION .( FUNCTION 函数名函数名( (参数表参数表) ) ) (7-41)(7-42)(7-43)(7-44) (7-41)(7-42)(7-43)(7-44)FORTRAN语言子程序子程序 定义定义:SUBROUTINE :SUBROUTINE 子程序名子程序名( (参数参数) ) 调用调用:CALL:CALL子程序名子程序名( (参数参数) ) (7-4
17、5) (7-45)文件文件 概念概念 1.1.文件是存放在某介质上的一组数据的代名词文件是存放在某介质上的一组数据的代名词, ,是信息的集合是信息的集合. . 2. 2.文件分为文件分为: :顺序文件和直接文件顺序文件和直接文件, ,顺序文件的操作必须从头到尾顺序进顺序文件的操作必须从头到尾顺序进行行; ;而直接文件则可以直接对任意一个指定记录进行而直接文件则可以直接对任意一个指定记录进行. .因此因此, ,文件也是文件也是记录的集合记录的集合. . 3. 3.文件必须有结束记录文件必须有结束记录, ,但它不是文件的一部分但它不是文件的一部分. . 4. 4.对固定格式的记录文件中的记录都是等
18、长的对固定格式的记录文件中的记录都是等长的. . (7-36)(7-40) (7-36)(7-40) FORTRAN语言文件操作文件操作 1.OPEN1.OPEN语句语句 OPEN(OPEN(设备号设备号, ,文件名文件名, ,文件状态文件状态, ,存取方式说明存取方式说明, ,记录方式说明记录方式说明,),) 文件状态文件状态:NEW,OLD:NEW,OLD 存取方式说明存取方式说明:SEQUENTIAL(:SEQUENTIAL(顺序顺序) DIRECT() DIRECT(直接直接) ) 记录方式说明记录方式说明:FORMATTED(:FORMATTED(有格式有格式)UNFORMATTED()UNFORMATTED(无格式无格式) ) 存取方式省略的情况下说明打开的是有格式的顺序存取文件存取方式省略的情况下说明打开的是有格式的顺序存取文件. . 2.READ 2.READ语句语句 READ(READ(设备号设备号, ,格式说明格式说明, ,文件结束说明文件结束说明,),) 3.WRITE3.WRITE语句语句 WRITE (WRITE (设备号设备号, ,格式说明格式说明, ,记录号说明记录号说明,),) 4.CLOSE4.CLOSE语句语句 CLOSE(CLOSE(设备号设备号, ,关闭后文件状态说明关闭后文件状态说明) ) (7-40) (7-40)
