补充相关计算机Fortran77语言知识

4.FORTAN函数
FORTRAN提供了一些系统函数供某些专门运算，如求 sinx 三角函数的值， ，cosx，指数函数ex，对数 lnx，logx 等， 变量，即可得到相应的值。如： SIN（1.0）= =0.8414709 LOG 3.0）=log3=1.098612 （ INT 8.6）=8 （ SIGN 4.5,-0.5）=-4.5 （ SIGN -0.5, 4.5）= 0.5 （ REAL(8)=8.0
（二） FORTRAN语言数据类型说明 1.常量
常量是指其值始终不变的一些量，在Fortran77 中允许6种常量类型：

⑴整型常量（Integer)
⑵实型常量(Real) ⑶双精度常量（Double)

⑷复型常量(Complex)
⑸逻辑常量(Logical)
⑹字符常量(Character)
①系统为每个整数分配10～13列，数据打印在这些列的 右端。

②一个实数分配给15 ～ 18列，其中小数部分6 ～ 7列。如 果实数的值很大，以上格式无法容纳，则系统会自动改成用 标准化的指数形式输出。
③对一个用指数形式输出的实数分配给15列，其中指数部 分4 ～ 5列，小数部分6列。
④如果实数的整数部分位数多于系统规定的有效位数（例如 IBM—PC为7位)，或实数的数值小于1，则在输出时会自动 转换成规范化的指数形式输出。如123×106和0.132的输 出为，
类型的转换是从左而右进行的，在遇到不同类型的算 术量时才进行转换。如：1/4*20.0=0.0
（四） 运算的误差问题
整型量没有任何误差（确认在整数范围内）。 实型量的运算由于有效位数的限制会出现一些误差， 在运算中尽量不要使两个相差很大的数值直接相加或相 减，判断实数相等时用 A B 。
其中⑴～⑷中属于算术常量，又称常数。后 两种称为非数值型常量。
整型常量或称整型常数或整数（Integer），它
是一个正的或负的或零的数。

实型常量也称实数，实数在FORTRAN中有两种表 示形式：
1.小数形式
它由一个或多个数字和一个小数点(只有一个)组成， 如1.2，+3.5，.0
2.指数形式 指数表示形式也称科学计数法，一个指数形式表 示的实数有两部分组成：数字部分(含实数符号)和 指数部分(Exponent)，如：12.3E8，0.91E-30， 用0.91*E-30是错误的。
2）变量类型
变量是用来存放常量的。不同类型的常量应放在不同的变量中，因 复型变量、逻辑型变量、字符型变量 6 种。
此与常量相对应，变量也相应区分为整型变量、实型变量、双精度变量、
FORTRAN 规定，在程序中用到的各种变量首先要说明它们的类 型，并有以下 3 种说明类型的方法：
1、隐含规则 I—N 规则） （ FORTRAN 规定，在程序中的变量名，在无专门的类型说明时，凡 是以字母 I,J,K,L,M,N 六个字母开头的则认为是整型变量，其它字母开 头的为实型变量。 2、用类型说明语句说明变量类型 若想改变 “I～N 规则”对变量类型的约束，可用类型说明语句指 定变量类型，与变量类型相对应，类型说明语句有 6个：
Fortran语言
——以Fortran77作为标准
鼠标进入Fortran编辑环境
此时需要新建一后缀名为.f的fortran文件
1~5列为标号区，可写1~5位的整数，第 六列为续行标志区
FORTRAN语言程序设计初步
一、流程图表示算法
二、 FORTRAN基本数据类型 三、 FORTRAN的算术表达式
程序设计者只需按规定的格式写出函数名及一个或若干个自
MAX(8,6,7,-11)=8
等。
几点说明： ⒈ 一个内部函数要求一个或多个自变量 。当自变量个数规定为 2 MOD(8,3)=2，MOD(3,8)=3；当自 时，自变量的顺序不同，其值不同。
MAX(3.，6.， 变量个数为 2 个以上时，则函数值与自变量的顺序无关。 -4.)=MAX(-4.，3.，6.)=6.
⒉ 内部函数的自变量和函数值均有类型 ；有的函数值的类型与自 变量的类型有关，如 ABS，MOD 等；有的函数值的类型与自变量的类
型无关，如 INT，REAL 等；此外函数名分为 “专用名”和 “通用名” 两种，见附录 V。 ⒊ 三角函数中角度的单位是弧度(rad) ，而不是度。 ⒋ 自变量可以是类型符合要求的常量、变量或表达式。 SQRT 例如 SQRT A）， SQRT 2.+2. ）均合法，而 SQRT I）为非法， （4.0 ）， （ （ （ 因为 I 为整型变量，SQRT函数的自变量类型为实型量。
Real IA（low，high+1）
当数组维说明符中的下界为1时可以省略不写， 例如：Real IA（1：10）又可写成 Real IA（10）
2）用DIMENSION语句说明数组 DIMENSION IA（10），LD（80：99），NUM（-1：0） Real IA，NUM Integer LD
几点说明： ① 有三类赋值语句：算术赋值语句、逻辑赋值语句、字符 赋值语句。 ② 赋值语句中‚=‛号是赋值符号，而不是等号。例如： N=N+1。
③ 算术赋值语句兼有计算和赋值双重功能。
④ 赋值号左边只能是变量名（或数值元素名）， 而不能是表达式，赋值号右边可以是常量、变量 或表达式。 程序1
A=1.0 B=2.0 A=B PRINT*,A,B END 程序2 A=1.0 B=2.0
2.变
量
变量是指在程序运行期间其值可以变化的量。系统为程序中的每 一个变量开辟一个存储单元，用于存放变量的值，变量的值在每一个 瞬时应该是确定的。 1）变量名 变量名是变量的标识符。一个变量需用一个变量名来标识，因此 在同一个程序单位中不能用同一个变量名代表两个不同的变量。 命名规则：变量名中最多允许 6 个字符，字符只能是字母与数字， 且第一个字符必须为字母。 A，X1，CHINA AVER G861 等都是 如 ， ， 合法的变量名。 注意事项： TOTAL ToTaL、total 等价 ① 变量名中字母的大小写等价； 、 AVER 、 A_V_ER 等价 ② 变量名中字符间空格无效； ③在同一个程序单位中，变量名和函数名或语句定义符不得同名
CHARACTER 隔
说明格式： 类型说明语句 3 、用隐含说明语句
IMPLICIT 说明变量类型
可以用
IMPLICIT 语句将某一字母开头的全部变量指定 IMPLICIT 语句可以指定几种类型。如：
为所需类型。一个
IMPLICIT REAL(I ， K)， INTEGER(T-W) 指定以 I，K 开头的所有变量为实型变量， T 到 W(T， U，V ，W) 开头的所有变量为整型变量。
B=A
PRINT*,A,B
END
2） 执行赋值语句时的类型转换问题
算术赋值语句中的被赋值变量和右边表达式
的类型可以相同，也可以不同。
如果类型不同，则是先进行表达式的求值，
然后将该表达式的值转换为被赋值变量的类型。
如IMAX=3.5*2.1的值不是7.35而是7。
2.简单的输出语句
1）输出语句的作用和分类
⒋ 类型说明语句和 IMPLICIT 语句应出现在本程序单位中 所有执行语句之前，当两者同时存在时，其顺序为：先 IMPLICIT 语句，后类型说明语句。
Back
3.数
组
数组是Fortran提供的一种数据结构，每个数组代表具有同 一类型的变量。 Fortran中数组说明有以下两种方式： 1）用类型语句说明数组 Real IA（1：10），ND（80：99），w（1：3，1：2） Integer NUM（-1：0），A（0：2，0：1，0 ：3） 数组的上、下界必须是整型常数或整型表达式，且上界必须 大于等于下界。 例如： Parameter（low=1，high=9）
1.常数 2.变量 3.数组 4.函数
（一） FORTRAN语言的基本符号
1.大、小写字母A~Z，a~z（在FORTRAN中不 区分大小写字母）
2.数字0~9
3.算数运算符 加（+）、减（-）、乘（*）、除（/）和乘方（**） 例如（a· b）3Fortran中写为（a*b）**3 4.赋值运算符（=），’.’’(’、’)’、 ‘,’、’ ’、‘_’和’$’
Fortran的输出格式有三类： （1）按用户指定的格式输出； （2）系统隐含的标准格式输出（又称表控格式）； （3）无格式的输出，即以二进制形式输出。
2）表控输出语句
用这种方式输出数据时，系统自动地分别为每一 个不同类型的数据规定所占的列数和表述形式。
WRITE（*，*）A，B PRINT *，A，B
对于变量类型的说明应当注意： ⒈ 类型说明只在本程序单位中有效； ⒉ 类型说明语句和 IMPLICIT 语句都是非执行语句，其作 用只在通知编译系统按规定的类型给变量分配内存单元和确定 数据的存放方式。
⒊ 在确定变量类型的 3 种方法中，类型说明语句优先级最 高， IMPLICIT 语句次之， I— N 规则优先级最低。
三、 FORTRAN的算术表达式
（一）算术运算符及优先级 5 个算术运算符号： + 算术加 （或正号） 算术减 （或负号） * 乘法运算 / 除法运算 ** 乘方运算 3 个优先级及次序： ** 乘方运算优先级最高 *， / 乘、除运算次之 +， - 加、减运算最低
（二）算术表达式注意： 1.由于用“/”号作为除号，因此在写除法运算式子应加上 必要的括号。 2.乘号不能省略 。 3.Fortran中无大、中、小括号，一律用小括号。 4.如果连续使用乘方符号，按“先右后左”原则处理。为 避免出错，建议使用括号。 4**3**2，先计算3**2，在进行4**9的运算。 5.对单边运算符，相当于在它前面有一个运算量“0”。 -A相当于0-A；-A**2相当于0-A**2即-（A**2）， 而不是相当于（-A）**2。