[問題] fortran的寫作問題
最近剛開始學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
→
03/18 22:41, , 1F
03/18 22:41, 1F
→
03/18 22:57, , 2F
03/18 22:57, 2F
→
03/18 22:57, , 3F
03/18 22:57, 3F
→
03/18 23:17, , 4F
03/18 23:17, 4F
→
03/18 23:18, , 5F
03/18 23:18, 5F
→
03/18 23:23, , 6F
03/18 23:23, 6F
推
03/18 23:33, , 7F
03/18 23:33, 7F
推
03/18 23:46, , 8F
03/18 23:46, 8F
推
03/19 14:05, , 9F
03/19 14:05, 9F
討論串 (同標題文章)
以下文章回應了本文：
完整討論串 (本文為第 1 之 2 篇)：
Fortran 近期熱門文章
PTT數位生活區 即時熱門文章
