Fortran编程实例02

今天我们来练习一下有关逻辑运算的小案例。

例题2：若明天是星期六且不下雨且风力小于三级，那么就去爬山，否则就好好学习！

program main 
implicitnone
! -------------声明区------------------
character(5) day
character(5) rain
integer wind
! ------------主程序-------------------
write(*,*) "今天是星期几吖？"
    read(*,*) day
write(*,*) "是否下雨呢？(Y or N)"
    read(*,*) rain
write(*,*) "风力级数多少呢？"
    read(*,*) wind
if((day=="星期六").and.(rain=="N").and.(wind<3)) then
write(*,*) "那我们就去爬山吧！"
else
write(*,*) "乖乖学习去！"
endif
end

推荐书籍：

[1] 白海波. Fortran程序设计权威指南[M]. 机械工业出版社, 2013