Fortran语言基础 - 图文

山东建筑大学

real :: a real :: b = 3.0

a=SQRT(b)**2-b ! 理论上a应该要等于0 if ( a==0.0 ) then write(*,*) \等于0\ else

write(*,*) \不等于0\ end if stop end

浮点数在作逻辑判断时，应当预留一定的误差空间。

3.2.2 字符的逻辑判断

除了数字可以比较大小外，字符也可以比较大小。字符比较大小的根据是比较他们的ASCII码。

3.3 SELECT CASE语句

多重判断可以采用SELCET CASE语句。其逻辑流程为： select case （变量） case （数值1） 程序代码 case （数值2） 程序代码 case （数值n） 程序代码 case default 程序代码 end select

例 判断成绩等级

program ex0512

25

数值分析程序设计——Fortran基础

implicit none integer score character grade write(*,*) \ read(*,*) score select case(score)

case(90:100) ! 90到100分之间 grade='A'

case(80:89) ! 80到89分之间 grade='B'

case(70:79) ! 70到79分之间 grade='C'

case(60:69) ! 60到69分之间 grade='D'

case(0:59) ! 0到59分之间 grade='E'

case default ! 其它情形 grade='?' end select

write(*,\ stop end

注意：使用SELECT CASE有以下限制：

（1） 只能使用整数、字符和逻辑变量，不能使用浮点数及复数； （2） 每个CASE中所使用的数值必须是固定值，不能使用变量；

3.4 其他流程控制

3.4.1 GOTO命令

GOTO命令功能强大，可以任意跳转程序的执行顺序。正因为这样，一般不建议使用，以免造成程序逻辑混乱。

26

山东建筑大学

3.4.2 PAUSE、CONTINUE、STOP命令

PAUSE 程序执行到PAUSE时，会暂停执行，直到用户按下ENTER键，才会恢复执行；

CONTINUE 没有实际功能，只是为方便程序阅读； STOP 结束程序；

27

数值分析程序设计——Fortran基础

4 循环语句

4.1 DO循环

语法：

do counter=a, b , c 程序代码 end do 注释：

do循环标志 counter计数器 a计数初值 b计数终值

c计数增量，默认为1，可以省略 end do结束循环 例 利用循环计算2+4+6+8+10

program ex0602 implicit none

integer, parameter :: limit=10 ! 计数器的上限 integer counter ! 计数器 integer :: ans = 0 ! 拿来累加使用 do counter=2, limit ,2 ans = ans + counter end do write(*,*) ans stop end

注释：DO循环可以多层嵌套 do i=1,10 do j=1,10

28