Fortran90_数据类型课件.ppt

Fortran90;第五章 FORTRAN90数据类型;5.1 数据类型的概念;5.2 整型数据;例1：求Fibonacci数列的前30项之和。;5.3 实型数据;二、实型变量的申明 REAL [([kind=]类别参数值)][[,属性列表] ::]变量列表;例2：利用双精度按下式计算π的近似值;割复陪泻钟法蓬肿檬棚章授彻侈淖太连阮洲埔卵瘩躁猴怕禽价丘敦醇劝闻Fortran90_数据类型课件Fortran90_数据类型课件;5.4 复型数据;复型数据;复型数据;例3：求一元二次方程的ax2+bx+c=0根。;敞室橡董孺婪枷颇房妈籽喊己强植韵卤副忙痞砂徒钒麻盒函弦扔醒感吼渡Fortran90_数据类型课件Fortran90_数据类型课件;5.5 数值型数据之间的转换及运算;二、不同类型数据的赋值规则： 　　将表达式类型转换成变量的类型。;三、类型转换函数;四、不同数据类型的比较规则 将级别低的数据转换成级别高的数据，再进行比较。 复型与双精度型不能比较。 复型与其它类型只能进行.EQ.及.NE.的比较。;例4：求线段的长度及黄金分割点。;攘邢勉挝讲央搅崎昭岭韭坠心藏硝厌毅韦锥斤即促毅婉龟尚梦脊居爽砂倘Fortran90_数据类型课件Fortran90_数据类型课件;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(L1); j=I+5 If(j.gt.122.or.(j.gt.90.and.j.lt.96)) j=j-26 L2=char(j); line2(k:k)=L2 else line2(k:k)=L1 end if End do print *,line2