Fortran数据类型课件.pptVIP

5.1 数据类型的概念; 系统提供了多种表示整数值的方法，每种方法定义了一个整型数据值的集合。; 二进制、八进制和十六进制整型常量，只能用于DATA语句中。;整型变量的说明;使变量具有符号常量属性： integer(4) , parameter :: n=10;实型常量的表示方法： 小数形式[ _类别参数] 有效数E指数[ _类别参数] 有效数D指数;单精度：3.45E2 12.3E2_4 双精度：5.3D-2 (表示 5.3*10-2) 表示为： 5.3E-2_8 但不能写成:5.3D-2_8 .052D0 .052_8;实型变量的说明;5.4 复型数据;复型变量的说明;P75 例5.5 有一线段AB，A的坐标为(1，1)，B的坐标为(4.5，4.5)。求AB的长度，以及黄金分隔点C的坐标。黄金分割点在线段的0.618处。 ;PROGRAM COMP_3 IMPLICIT NONE COMPLEX::A,B,C REAL::L READ*, A, B C=A+0.618*(B-A) L=ABS(A-B) PRINT*, ′L=′,L PRINT*, ′C=′, C END PROGRAM COMP_3;5.5 字符型数据 ;字符串的长度：字符串内字符的个数。;Character (len=10), parameter::name=‘fortran 90’;子字符串;字符表达式与字符赋值语句;当赋值号两端数据的字符长度不等时 ;字符关系表达式;用于字符处理的内部函数 ;2．除去字符串尾部空格函数 TRIM;4．字符串比较函数 LGE、LGT、LLE和LLT;ASCII ?字符 ： ACHAR 或 CHAR;也可以用INDEX函数： PROGRAM CHAR_2 IMPLICIT NONE CHARACTER*10::WORD DO READ*, WORD IF(WORD==ZZZ)EXIT IF(INDEX(WORD, B)==1) PRINT*, WORD END DO END PROGRAM CHAR_2;P82 例5.8 将一个字符串中的字符逆序打印出来 Program char_3 implicit none integer :: i, j, lenth character (len=8):: s1, s2 read*, s1 lenth= LEN_TRIM(s1) do i=1, lenth j=lenth-i+1 s2(j:j)=s1(i:i) end do write(*,*) old string : , s1 write(*,*) new string : , s2 end program char_3; 为了保密，常不采用明码电文，而用密码电文，按事先约定的规律将一个字符转换为另一个字符。收报人则按相反的规律转换得到原来的字符。例如，将字母A→F，B→G，C→H，即将一个字母变成其后第五个字母。例如： ″HE IS IN BEIJING.″应转换为： ″MJ NX NS GJNONSL.″ ;趟万迷哩溯国镁右磋弱悲圆齿雌谋钨些锥交屹念政涌板盟逮青浦普勿沥切Fortran数据类型课件Fortran数据类型课件;integer:: i, j, k character (len=80):: line1, line2 Character (len=1) :: l1 read(*,*) line1 do k=1, 80 l1=line1(k:k) if((lge(l1,A).and.lle(l1,Z)).or.(lge(l1,a).and.lle(l1,z))) then i=iachar(l1) j=i+5 if(jiachar(z).or.(jiachar(Z).and.j=ichar(Z)+6)) j=j-26 l1=achar(j) end if line2(k:k)=l1 end do write(*,*) line2 end;5.6 逻辑型数据;INTEGER::Z REAL ::X, Y LOGICAL::P, Q, R, S READ*, X, Y Z=3 P=X=-5.0 .AND. X=-3.0 Q=X=1.0 .AND. X=3.0 R=Y=-6.0 .AND. Y=-4.0 S=