作者awer89 (Dolphin)
站內Fortran
標題Re: [問題] fortran的寫作問題
時間Wed Mar 18 23:32:07 2009
※ 引述《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
1F：推 sunhpy:感謝大大的幫忙 03/19 07:41
2F：→ sunhpy:只是score(students)的地方出現 03/19 07:43
3F：→ sunhpy:Error: A specification expression is invalid. [STUDEN] 03/19 07:43
4F：→ awer89:也許是不同編譯器吧~~!我用的編譯器可以 03/19 08:53
5F：→ awer89:把score(students)改成score(5)看OK不OK 03/19 11:38
6F：推 sunhpy:這樣就可以了，感謝awer89大大的幫忙 03/19 22:22