第5章FORTRAN90数据类型.pptVIP

第五章 FORTRAN 90数据类型 整型数据 实型数据 复型数据 字符型数据 逻辑型数据 一、整型数据 整型变量的说明： INTEGER [ (类别参数值 ) ] [ [ ,属性列表 ] :: ] 变量列表 其中类别参数值取1,2,4，变量的属性是指被说明对象的所属性质。一个对象被说明具有某一属性时，就使该对象具有某种附加功能、特殊的使用方式与适用范围。属性的种类有很多，这里介绍两种最常见属性的说明格式： INTEGER, PARAMETER :: I=5,J=24 INTERGER, DIMENSION(1:10) :: A 例 求Fibonacci数列前30项之和。 分析：本例中，Fibonacci数列前30项之和是一个很大的数，已经超过了类别参数为2的整数的取值范围，只能采用类别参数为4整数。如果数超过类别参数为4的整数取值范围，就只能采用实型数据来处理。 二、实型数据 实型变量的说明： REAL [ ( [KIND = ] 类别参数值) ] [ [ ,属性列表] :: ] 变量列表 单精度用REAL(4)定义，双精度用REAL(8)或DOUBLE PRECISION定义。缺省的类别值为4，即为单精度。 例 利用双精度求： ? 直到最后一项的绝对值小于10－15为止。 三、复型数据 将两个实数用逗号分隔，再用括号括起来就构成了一个FORTRAN复型常量。其中第一个实数称为复数的实部，第二个实数称为复数的虚部。 复型变量的说明： COMPLEX [ (类别值) ] [ [ ,属性列表] :: ] 变量列表 如果实部和虚部都不是常数，而是表达式，则应该用CMPLX函数将实部和虚部组成复型数据再赋给复型变量。例如 C = CMPLX(3.0*A, 6.0+B) 例 有一线段AB，A的坐标为(1，1)，B的坐标为(4.5，4.5)，求AB的长度以及黄金分隔点C的坐标。黄金分割点在线段的0.618处。 分析：A，B的坐标可用复数表示：即A为(1.0，1.0)，B为(4.5，4.5)。AB的长度就是(A-B)的模。可用ABS函数直接求出复数的模。黄金分隔点C的坐标为A+0.618×(B-A)。 四、字符型数据 1．字符型常量 字符型常量又叫字符串常量，它是用单撇号或双撇号括起来的字符序列。例如，″ABCD″、′CHINA′、等都是FORTRAN字符型常量。 当字符串中又含有单撇号时，例如要将I′M A STUDENT作为一个字符串来处理，为了区分′是字符串中的字符还是定界符，可采用两种方式表示： ″I′M A STUDENT″ ′I′′M A STUDENT′ 前者用双撇号作定界符，后者用单撇号作定界符，而将字符串的单撇号用两个单撇号表示，系统会自动将其处理为字符串的一个单撇号字符。 2．字符型变量 CHARACTER(LEN=n1[,KIND=n2])[[,属性说明] ::] 变量列表 格式中的n1和n2是一个整数和整型表达式，n1代表被说明变量的长度，n2代表字符变量的类别参数，各项属性说明是字符型变量有关属性的说明。 例如 CHARACTER(LEN=25,KIND=2)::A,B,C CHARACTER(LEN=8),DIMENSION(1:10)::X,Y,Z CHARACTER(10),PARAMETER::NAME=′FORTRAN_90 ′ CHARACTER(15)::A CHARACTER*15::A CHARACTER(15)::A,B*8,C*5,D,E 3．子字符串 字符变量名(m:n) 其中，m和n是整数和整型表达式，表示子字符串在字符串中的起止位置，该子字符串的长度为n-m+1(n≥m≥1)。 4．字符表达式 字符运算符只有一个，就是字符连接符″//″，它是由两个斜杠组合而成的，其作用是将两个字符型数据连接起来，成为一个字符型数据。 5．字符关系表达式 两个字符串比较时，将两个字符串中的字符自左向右这个进行比较。若所有字符完全相同，则两表达式相等。否则，以第一次出现不同字符的比较结果为准。 6．用于字符处理的内部函数 ?????????? 求字符串长度函数(LEN和LEN_TRIM) ?????????? 子串位置函数(INDEX) ?????????? 字符与字符序号相互转化函数 7. 字符处理应用举例 例1 在读入的一批单词中，把以字母′B′开头的打印出来，直到输入′ZZZ′结束。 例2 翻译密码：为了保密，常不采用明码电文，而用密码电文，按事先约定的规律将一个字符转换为另一个字符。收报人则按相反的规律转换得到原来的字符。例如，将字母′A′→′F′，′B′→′G′，