作者sunhpy (水母片)
站内Fortran
标题[问题] fortran的写作问题
时间Wed Mar 18 22:34:34 2009
最近刚开始学fortran遇到了一些问题，以下这个程式我写完後，a值怎麽都ㄧ样，
有没有哪位大大可以帮我找出是哪里写错了？题目是利用副程式将原来的成绩
开根号再乘以10，并判断是否及格
implicit none
integer, parameter:: students=5
integer::score(students)=(/38,51,40,94,80/)
integer:: i,a
call sub1(score,a)
do i=1,students
if(a>60) then
write(*,*)"第",i,"名学生 分数", a,"及格"
else
write(*,*)"第",i,"名学生 分数", a,"不及格"
end if
end do
stop
end program hw5
subroutine sub1(score,a)
implicit none
integer::score,a
a=a+score**0.5*10
return
end subroutine sub1
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.125.195.7
1F：→ blc:call sub1()要放在回圈里面。 03/18 22:41
2F：→ sunhpy:这样a的确不ㄧ样了，可是分数却变的很奇怪 03/18 22:57
3F：→ sunhpy:请问我a的部份是不是有写错 03/18 22:57
4F：→ sunhpy:以及要如何将结果输出於档案中 03/18 23:17
5F：→ sunhpy:请各位大大帮帮忙 03/18 23:18
6F：→ blc:仔细看看吧，很明显的错误。 03/18 23:23
7F：推 awer89:call sub1()没放入回圈 这样a也要是阵列形式 03/18 23:33
8F：推 awer89:结果输出於档案翻一下书就有了 03/18 23:46
9F：推 meteorology:可以问一下a为甚麽要累加阿？ 03/19 14:05