Fortran90_数据类型.ppt

FORTRAN90 Fortran90 程序设计教程 第五章 FORTRAN90数据类型 数据类型的概念 整型数据 实型数据 复型数据 逻辑型数据 字符型数据 5.1 数据类型的概念 数据类型的性质： 1.类型的名称 2.允许值的集合 3.允许值的表示方法 4.操作值的运算的集合 5.2 整型数据 二、整型变量的申明 Integer [([kind=]类别参数值)][[，属 性列表]::]变量列表 例1：求Fibonacci数列的前30项之和。 PROGRAM EX5_1 IMPLICIT NONE INTEGER * 4::F1=1,F2=1,SUM=0,N DO N=1,15 SUM=F1+F2+SUM F1=F1+F2 F2=F1+F2 END DO PRINT*,SUM END PROGRAM EX5_1 5.3 实型数据 一、实型常量的表示形式： 1.小数形式 2.指数形式(有效数字E指数[_类别参数]) 或 (有效数字D指数) 二、实型变量的申明 REAL [([kind=]类别参数值)][[,属性列表] ::]变量列表 例2：利用双精度按下式计算π的近似值 5.4 复型数据 一、复型常量的形式： （实型数1，实型数2） 表示：实型数1+实型数2*I ?　复型数据的类别类型 1.默认复型：当省略类别类型参数时，则称此复型数据为默认复型。 2.实部及虚部类型不同时，复型数据的类别类型。 复型数据 二、复型变量 1.复型变量的申明 COMPLEX[([kind=]类别参数值)][[,属性列表] ::]变量列表 复型数据 2.复型变量的赋值语句 1）实部与虚部均为常量 直接赋值 2）实部或虚部含有变量 用CMPLX函数组合 例3：求一元二次方程的ax2+bx+c=0根。 Program ex5_3 Complex::x1,x2 Real a,b,c,d,part1,part2 Read*,a,b,c d=b*b-4.0*a*c;part1=-b/(2.0*a) part2=sqrt(abs(d))/(2.0*a) If (d0) then x1=cmplx(part1+part2 , 0.0) x2=cmplx(part1-part2 , 0.0) Else x1=cmplx(part1,part2); x2=cmplx(part1,-part2) End if Print*,x1,x2 end 5.5 数值型数据之间的转换及运算 一、不同类型数据之间运算的规则： 　1.先将级别低的数据类型转换为级别高的数据类型，然后在同一类型之间进行运算。 　2.数据类型等级次序为：复型，双精度型，实型，整型。 　3.FORTRAN不允许双精度类型数据与复型数据之间进行运算。 　4.复型数据之间运算：实部与实部运算，虚部与虚部运算。 二、不同类型数据的赋值规则： 　　将表达式类型转换成变量的类型。 四、不同数据类型的比较规则 将级别低的数据转换成级别高的数据，再进行比较。 复型与双精度型不能比较。 复型与其它类型只能进行.EQ.及.NE.的比较。 例4：求线段的长度及黄金分割点。 Program ex5_4 Implicit none Complex::a,b,c Real::L Read*,a,b C=a+0.618*(b-a) L=abs(a-b) Print*,L,c end 5.6 逻辑型数据 一、逻辑常量 .TRUE. .FALSE. ?　逻辑型数据的类别参数： 　默认逻辑型—类别值为4 二、逻辑型变量的申明 LOGICAL[([kind=]类别参数值)][[,属性列表] ::]变量列表 5.7 字符型数据 一、字符型常量 1.字符型常量又称为字符串常量，在FORTRAN90中是用单引号或双引号括起来的若干字符。其中的字符可是计算机系统允许使用的任何一个字符。 如: zhang, ′ZHang′, 北京， 土木, ′How are you ′, ′a+b′, 2.当字符中出现单（双）引号时，有两种表示方法。 1）当字符为时，用′将字符串括起； 当字符为′时，用将字符串括起。 2）将单（双）引号重复一次。 4.当字符串常量需要多行书写时，规定： 1）每一续行后不能尾随注释； 2）每一续行前以“”开头； 3）字符串的值从前导后开始连接； 4）尾随及前导之间的空格不计入字符串；不计入字符串 5.C字符串 Fortran 90中允许出现一类 在字符常量 后加上字母 C 的字符串，称为C字符串。 在C字符串中，可以包含C语言中的一些转义字符，且与C语言中意义相同。 二、字符串变量 1.申明