山东建筑大学
write(*,*) \
read(*,*) height ! 读入身高 write(*,*) \
read(*,*) weight ! 读入体重 if ( weight > height-100 ) then
! 如果体重大于身高减去100, 会执行下面的程序 write(*,*) \ else
! 如果体重不大于身高减去100, 会执行下面的程序 write(*,*) \ end if stop end
3.1.2 逻辑运算
Fortran90的逻辑判断运算符号：（括号内为Fortran77的逻辑判断缩写符号）
== 相等 (.EQ.) /= 不相等 (.NE.) > 大于 (.GT.) >= 大于等于 (.GE.) < 小于 (.LT.) <= 小于等于 (.LE.)
逻辑关系运算浮号：
.AND. 逻辑与 .OR. 逻辑或 .NOT. 逻辑非
.EQV. 两边表达式运算结果相同时，结果为真 .NEQV. 两边表达式运算结果不同时，结果为真
注意：逻辑判断运算优先级高于逻辑关系运算。应此下面的两种逻辑关系式时等价的：
21
数值分析程序设计——Fortran基础
a>=80 .and. a<90 (a>=80) .and. (a<90)
不过为明显逻辑运算关系，建议使用后一种写法。
3.1.3 多重判断IF-ELSE IF
多重判断流程： if （条件1）then
程序代码 else if (条件2) then
程序代码 else if （条件3）then
程序代码 else if （条件4）then
程序代码 else
程序代码 end if
利用多重判断编写成绩等级查询程序：
program ex0505 implicit none integer score character grade write(*,*) \ read(*,*) score
if ( score>=90 .and. score<=100 ) then grade='A'
else if ( score>=80 .and. score<90 ) then grade='B'
else if ( score>=70 .and. score<80 ) then grade='C'
else if ( score>=60 .and. score<70 ) then
22
山东建筑大学
grade='D'
else if ( score>=0 .and. score<60 ) then grade='E' else
! score<0 或 score>100的不合理情形 grade='?' end if
write(*,\ grade stop end
3.1.4 嵌套IF语句
IF (……) THEN IF (……) THEN IF (……) THEN ELSE IF (……) THEN ELSE END IF END IF END IF
例 判断平面上一个点位于第几象限。
program ex0508 implicit none real x,y integer ans
write(*,*) \ read(*,*) x,y if ( x>0 ) then
if ( y>0 ) then ! x>0,y>0 ans=1
23
数值分析程序设计——Fortran基础
else if ( y<0 ) then ! x>0, y<0 ans=4 else ! x>0, y=0 ans=0 end if
else if ( x<0 ) then if ( y>0 ) then ! x<0, y>0 ans=2
else if ( y<0 ) then ! x<0, y<0 ans=3 else ! x<0, y=0 ans=0 end if
else ! x=0, y=任意数 ans=0 end if
if ( ans/=0 ) then ! ans不为0时, 代表有解 write(*,\第',I1,'象限')\ else
write(*,*) \落在轴上\ end if stop end
3.2 浮点数及字符的逻辑运算
3.2.1 浮点数的逻辑判断
使用浮点数作逻辑运算，要避免使用“等于”判断。因为使用浮点数作计算时，有效位数有限，难免出现计算上的误差，理想的等号不一定会成立。
program ex0509 implicit none
24
