您所在位置：主题：[讨论]请高人指教 本人初学Fortran
yanzhaolun
[专家分：0] 发布于 2011-05-22 09:50:00
program exer0502
implicit none
character::date,item
write(*,*)"输入日期"
read(*,*) date
select case (date)
case("周一".OR."周四")
item="新闻"
case("周二".or."周五")
item="电视剧"
case("周三".or."周六")
item="卡通片"
case("周日")
item="电影"
end select
write(*，*) "节目是",item
end
其中的case怎么用？只能用数值吗，不能进行；逻辑判断吗 请详细介绍一下
implicit none
character::date,item
write(*,*)"输入日期"
read(*,*) date
select case (date)
case("周一".OR."周四")
item="新闻"
case("周二".or."周五")
item="电视剧"
case("周三".or."周六")
item="卡通片"
case("周日")
item="电影"
end select
write(*，*) "节目是",item
end
其中的case怎么用？只能用数值吗，不能进行；逻辑判断吗 请详细介绍一下