Fortran90_数据类械耐.pptVIP

Fortran90;第五章 FORTRAN90数据类型;5.1 数据类型的概念;5.2 整型数据;例1：求Fibonacci数列的前30项之和。;5.3 实型数据;二、实型变量的申明 REAL [([kind=]类别参数值)][[,属性列表] ::]变量列表;例2：利用双精度按下式计算π的近似值;Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd.;5.4 复型数据;复型数据;复型数据;例3：求一元二次方程的ax2+bx+c=0根。;Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd.;5.5 数值型数据之间的转换及运算;二、不同类型数据的赋值规则： 　　将表达式类型转换成变量的类型。;三、类型转换函数;四、不同数据类型的比较规则 将级别低的数据转换成级别高的数据，再进行比较。 复型与双精度型不能比较。 复型与其它类型只能进行.EQ.及.NE.的比较。;例4：求线段的长度及黄金分割点。;Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd.;5.6 逻辑型数据;5.7 字符型数据;2.当字符中出现单（双）引号时，有两种表示方法。 1）当字符为时，用′将字符串括起； 当字符为′时，用将字符串括起。 2）将单（双）引号重复一次。;4.当字符串常量需要多行书写时，规定： 1）每一续行后不能尾随注释； 2）每一续行前以“”开头； 3）字符串的值从前导后开始连接； 4）尾随及前导之间的空格不计入字符串；不计入字符串;5.C字符串 Fortran 90中允许出现一类 在字符常量 后加上字母 C 的字符串，称为C字符串。 在C字符串中，可以包含C语言中的一些转义字符，且与C语言中意义相同。;二、字符串变量 1.申明格式 CHARACTER([LEN=]n)[[,属性说明]::变量列表;三、子字符串 一个字符串的一部分，称为子字符串。 表示形式： 字符变量（m：n）;说明：;四、字符表达式与字符赋值语句 1.字符表达式 字符运算符：// 表示连接;2.字符赋值语句 字符变量 ＝ 字符表达式;Character*10 A,B*3,C*5,D READ*,A B=A(:3) C=A(6:) D=A(:) PRINT*,A,’\’,B,’\’,C,’\’,D END;说明： 1）赋值号左边变量中字符长度与赋值号右边表达式中??符长度相等时，可以直接赋值； 2）赋值号左边变量中字符长度小于赋值号右边表达式中字符长度时，将右边多余的字符删除； 3）赋值号左边变量中字符长度大于赋值号右边表达式中字符长度时，在变量的右边补足空格。;Character*10 A,B*3,C*5,D A=“abcdefghij” B=A(:) C=A(6:) D=A(:3) PRINT*,’012345678901234567890123456789’ PRINT*,A,’\’,B,’\’,C,’\’,D,’\’ END;五、字符关系表达式;比较字符串大小;六、用于字符处理的内部函数;例：在读入的一批单词中，把以字母“B”开头的单词打印出来。;CHARACTER(15) OP DO WHILE(OP /=‘PP’) READ*, OP IF(OP(1:1)==‘B’) THEN PRINT*,OP ELSE PRINT*,OP(1:1) END IF END DO END;CHARACTER*15 A,B Read*,A B=‘’ DO I=15,1,-1 B=TRIM(B)//A(I:I) END DO PRINT*,A PRINT*,B END;character * 80 line1,line2;character L1,L2; read * , line1 do k=1,80 L1=line1(k:k);line2=‘’ if（(lge(L1,’A’).and.lle(L1,’Z’)).or. (lge(L1,’a’).and.lle(L1,’z’))) then I=ichar(L