Re: [問題] fortran的寫作問題
※ 引述《sunhpy (水母片)》之銘言：
: 最近剛開始學fortran遇到了一些問題，以下這個程式我寫完後，a值怎麼都ㄧ樣，
: 有沒有哪位大大可以幫我找出是哪裡寫錯了？題目是利用副程式將原來的成績
: 開根號再乘以10，並判斷是否及格
: implicit none
: integer, parameter:: students=5
: integer::score(students)=(/38,51,40,94,80/)
integer:: i
real::a
: do i=1,students
call sub1(score,a,i,students)
: if(a>60) then
: write(*,*)"第",i,"名學生 分數", a,"及格"
: else
: write(*,*)"第",i,"名學生 分數", a,"不及格"
: end if
: end do
: stop
: end program hw5
subroutine sub1(score,a,i,students)
: implicit none
integer::score(students),i,students
real::a
a=score(i)**0.5*10
: return
: end subroutine sub1
白色為修改的地方
--
18173 12/09 - □ (本文已被吃掉) 吃光光，口卡口卡
18174 12/09 - □ (本文已被吃掉) ◤
18175 12/09 - □ (本文已被吃掉) ⊙ ⊙
18176 12/09 - □ (本文已被吃掉) ▼▼▼▼
18177 12/09 - □ (本文已被吃掉) ▲▲▲▲
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 59.121.197.78
推
03/19 07:41, , 1F
03/19 07:41, 1F
→
03/19 07:43, , 2F
03/19 07:43, 2F
→
03/19 07:43, , 3F
03/19 07:43, 3F
→
03/19 08:53, , 4F
03/19 08:53, 4F
→
03/19 11:38, , 5F
03/19 11:38, 5F
推
03/19 22:22, , 6F
03/19 22:22, 6F
討論串 (同標題文章)
本文引述了以下文章的的內容：
完整討論串 (本文為第 2 之 2 篇)：