二 選擇的結構

請注意
if (x > y) then
! 當 (x > y) 的判斷結果是 Yes 的時候，
! 執行 這裡的指令，然後 跳到 相對應的
! end if 的後面

else if (x < y) then
! 當 (x < y) 的判斷結果是 Yes 的時候，
! 執行 這裡的指令，然後 跳到 相對應的
! end if 的後面


else
! 當上面所有的判斷結果都是 No 的時候
! 執行 這裡的指令，然後 跳到 相對應的
! end if 的後面

end if

選擇式的結構很重要，請務必自己敲程式，
自己實習一遍


[pre]

! begin of main()
implicit none
real a,b,c, d, x1,y1, x2,y2

! y= a*(x^2) + b*x + c
! D= (b^2) - 4*a*c
! -----------------------------------------------

a= 1.0
b= 3.0
! b= 2.0
! b= 1.0

c= 1.0
! 修改上面的 a,b,c 係數的值，重新 compile
! -----------------------------------------------

d= (b*b) - 4.0*a*c
if (d > 0.0) then
print *, 'D > 0.0, D= ', d
pause

x1= (-b + sqrt(d))/(2.0*a)
x2= (-b - sqrt(d))/(2.0*a)

! 驗算
y1= a*(x1*x1) + b*(x1) + c
y2= a*(x2*x2) + b*(x2) + c
print *, 'x1= ', x1, ', y1= ', y1
print *, 'x2= ', x2, ', y2= ', y2
else if (d < 0.0) then
print *, 'D < 0.0, D= ', d
pause
else
print *, 'D = 0.0, D= ', d
pause

x1= (-b + sqrt(d))/(2.0*a)

! 驗算
y1= a*(x1*x1) + b*(x1) + c
print *, 'x1= ', x1, ', y1= ', y1
end if

end


[/pre]