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