Fortran的选择程序设计.pptVIP

多重判断会按顺序从第1个if开始尝试着做逻辑运算，遇到城里的表达式就执行相对应的程序模块，执行完后再跳到end if后继续执行程序。每个条件都不成立时才会执行else中的模块（如果有这个模块的话）。简而言之，程序只会执行其中一个符合条件的程序模块。根据这个策略，例5在逻辑运算方面可以简化成下面的样子 例6 program ex06 implicit none integer score character grade write(*,*) score: read(*,*) score if (score100) then grade=? else if (score=90) then ! grade=A else if (score=80)then ! grade=B else if (score=70)then ! grade=C else if (score=60)then ! grade=D else if (score=0)then ! grade=E else grade=? end if write(*,(grade:,a1)) grade stop end 如果不使用多重判断，利用很多个独立的if语句，同样可以编写成绩等级的程序 例7 program ex07 implicit none integer score character grade write(*,*) score: read(*,*) score if (score=90 .and. score=100) grade=A if (score=80 .and. score90) grade=B if (score=70 .and. score80) grade=C if (score=60 .and. score70) grade=D if (score=0 .and. score50) grade=E if (score0 .or. score100) grade=? write(*,(grade:,a2)) grade stop end 嵌套if语句 多层if语句模块 If（……）then ←第1层if开始 if（……）then ←第2层if开始 if（……）then ←第3层if开始 else if （……）then else end if ←第3层if结束 end if ←第2层if结束 end if ←第1层if结束 例8 以一个简单的数学问题来示范嵌套if的用法。在2D平面坐标系。可以区分出四个象限，写一个程序来读入一个（X，Y）的坐标值，并判断这个点位于哪个象限 第一象限 X0 Yo 第四象限 X0 Y0 第二象限 X0 Y0 第三象限 X0 Y0 program ex08 implicit none real x,y integer ans write(*,*) input (x,y) read(*,*) x,y if (x0) then if (y0) then ! x0,y0 ans=1 else if (y0) then ! x0,y0 ans=4 else ! x0,y=0 ans=0 end if else if (x0) then if (y0) then ! x0,y0 ans=2 else if (y0) then ! x0,y0 ans=3 else ! x0,y=0 ans=0 end if else ! x=0,y=任意数 ans=0 end if if (ans/=0) then ! write(*,(第,i1,象限)) ans else write(*,*) 落在轴上 end if stop end 第一象限 X0 Yo 第四象限 X0 Y0 第二象限 X0 Y0 第三象限 X0 Y0 再以上下区分 第一象限 X0 Yo 第四象限 X0 Y0 第二象限 X0 Y0 第三象限 X0 Y0 浮点数的逻辑判断 使用浮点数来做逻辑运算时，要避免使用“等于”的判断。因为使用