作者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