Fortran编程实例02

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

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

program main 
implicit none 
! -------------声明区------------------
    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(*,*) "乖乖学习去！"
    end if
end

推荐书籍：

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