第05章FORTRAN90数据类型.ppt

第五章FORTRAN90数据类型 整型数据实型数据复型数据字符型数据逻辑型数据 一 整型数据 整型变量的说明 INTEGER 类别参数值 属性列表 变量列表类别参数值取1 2 4 说明存储单元的大小 属性是被说明对象的所属性质 如符号常量 数组 INTEGER PARAMETER I 5 J 24INTERGER DIMENSION 1 10 A 表5 1整型数据类型的字节数和取值范围 例求Fibonacci数列前30项之和 分析 Fibonacci数列前30项之和是一个很大的数 已经超过了类别参数为2的整数的取值范围 只能采用类别参数为4的整数 如果数超过类别参数为4的整数取值范围 就只能采用实型数据来处理 Fibonacci数列的递推公式是 F0 0F1 1Fi Fi 1 Fi 2设置两个变量来存放已求得的最后两项的值 F2保存已求得的最后一项 即Fi 1 F1保存前一项 即Fi 2 INTEGER 4 N F F1 F2 SUMF1 1F2 1SUM 2N 3DOWHILE N 30 F F1 F2SUM SUM FF1 F2F2 FN N 1ENDDOPRINT SUM SUMEND 二 实型数据 实型变量的说明 REAL 类别参数值 属性列表 变量列表类别参数值取4 8 说明存储单元的大小 实型常量可以用小数形式或指数形式表示 用指数形式表示时 有效数E指数表示单精度实型数有效数D指数或有效数E指数 8表示双精度实型数如1 234e 4 8 1 234d 4 例求 直到最后一项的绝对值小于10 15为止 分析 首先找出累加项fn与fn 1的递推关系 f0 x REAL 8 X Y FINTEGER NREAD XY XF XN 1DOF F 2 N 1 2 N 2 N 1 2 N 1 X XIF ABS F LT 1D 15 EXITY Y FN N 1ENDDOPRINT Y Y F FEND 三 复型数据 1 复型常量 1 2 3 4 2 复型变量的说明 COMPLEX 类别值 属性列表 变量列表3 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 COMPLEX A B CREAL LREAD A BC A 0 618 B A L ABS A B PRINT L LPRINT C CEND 四 字符型数据 1 字符型常量例如 ABCD CHINA 12345678 2 字符型变量CHARACTER LEN n 属性说明 变量列表格式中的n代表被说明变量的长度例如CHARACTER 10 PARAMETER NAME FORTRAN 90 CHARACTER LEN 8 X Y ZCHARACTER 15A1CHARACTER 15 A B 8 C 5 D E 3 子字符串字符变量名 m n 其中 m和n是整数和整型表达式 表示子字符串在字符串中的起止位置 4 字符表达式 其作用是将两个字符型数据连接起来 成为一个字符型数据 5 字符关系表达式 两个字符串比较时 将两个字符串中的字符自左向右这个进行比较 若所有字符完全相同 则两表达式相等 否则 以第一次出现不同字符的比较结果为准 例1在读入的一批单词中 把以字母 B 开头的打印出来 直到输入 ZZZ 结束 CHARACTER 10 WORDDOREAD WORDIF WORD ZZZ EXITIF WORD 1 1 B PRINT WORDENDDOEND 6 用于字符处理的内部函数 求字符串长度函数 LEN和LEN TRIM 子串位置函数 INDEX 字符与字符序号相互转化函数 CHAR和ICHAR 例5 9翻译密码 为了保密 常不采用明码电文 而用密码电文 按事先约定的规律将一个字符转换为另一个字符 收报人则按相反的规律转换得到原来的字符 例如 将字母 A F C H 即将一个字母变成其后第五个字母 例如 HEISINBEIJING MJNXNSGJNONSL 五 逻辑型数据 1 逻辑常量只有真和假两种值 TRUE 和 FALSE 2 逻辑变量的说明LOGICAL 类别值 属性列表 变量列表例当某点的X Y坐标落在四个方块内和方块边上时 Z 0 如在方块外 Z 3 LOGICAL P Q R SREAD X YZ 3P X 5 0 AND