求问一个简单的编程（本人是初学者，题目不难，可我写出来就是有错）

小起

题目如下图

lqouc

把你自己写的程序贴上来，描述一下错误，直接放题目没人替你做的。

朱先生.

代码都木有，看毛线~

pl5786832

这样并不会有人解答

言深深

fortran不适合写这种查询类的程序，fortran是用于计算的，尤其是涉及到大量的计算。
对于你的这个工作，fortran能做的就是将这些东西存放到数组里面，然后根据你输入的内容，将对应的节目单，打印出来了。操作容易，意义不大

小起

lqouc 发表于 2015-4-14 22:02
把你自己写的程序贴上来，描述一下错误，直接放题目没人替你做的。

哦哦 这样啊

小起

言深深 发表于 2015-4-15 09:34
fortran不适合写这种查询类的程序，fortran是用于计算的，尤其是涉及到大量的计算。
对于你的这个工作，fo ...

我是在学习 这是书上的课后题 编程了有错误

小起

朱先生. 发表于 2015-4-15 08:28
代码都木有，看毛线~

：program ex2
implicit none
integer a

write(*,*)"输入周几"
read(*,*)a

if(a==1.or.a==4)then
write(*,*)"新闻"
else if(a==2.or.a==5)then
write(*,*)"电视剧?"
else if(a==3.or.a==6)then
write(*,*)"卡通片"
else if(a==7)then
write(*,*)"电影"
else
write(*,*)"输入错误"
end if
  stop
  end

小起

小起 发表于 2015-4-15 20:58
：program ex2
implicit none
integer a

麻烦了

小起

lqouc 发表于 2015-4-14 22:02
把你自己写的程序贴上来，描述一下错误，直接放题目没人替你做的。

program ex2
implicit none
integer a

write(*,*)"输入周几"
read(*,*)a

if(a==1.or.a==4)then
write(*,*)"新闻"
else if(a==2.or.a==5)then
write(*,*)"电视剧?"
else if(a==3.or.a==6)then
write(*,*)"卡通片"
else if(a==7)then
write(*,*)"电影"
else
write(*,*)"输入错误"
end if
  stop
  end


麻烦帮忙看看吧