24小时热门版块排行榜

>论坛更新日志 (2908)
>虫友互识 (676)
>文献求助 (148)
>导师招生 (132)
>休闲灌水 (129)
>考博 (122)
>教师之家 (78)
>硕博家园 (71)
>找工作 (70)
>博后之家 (69)
>论文投稿 (68)
>论文道贺祈福 (64)
>基金申请 (59)
>考研 (53)
>公派出国 (48)
>招聘信息布告栏 (31)

返回列表

1312758691

新虫 (小有名气)

应助: 0 (幼儿园)
金币: 1334
散金: 12
帖子: 86
在线: 60.4小时
虫号: 2328063
注册: 2013-03-07
专业: 理论和计算化学

[求助] 程序错误已有1人参与

程序如下：
program score_record
! 记录不同班级的学生成绩并可查询成绩
implicit none
integer,parameter :: classes=5
integer,parameter :: students=5
real :: sr(classes,students)
integer :: s,c
do c=1,classes
  do s=1,students
  write(*,100) c,s
  100 format('输入第',I2,'班','第',I2,'个学生的成绩')
  read(*,*) sr(c,s)
  end do
end do
! 查询成绩
write(*,110)
110 format('请对应输入所要查询学生所在班级及学号')
do
  read(*,*) c,s
  if (((c<=0).OR.(c>classes)).OR.((s<=0).OR.(s>students))) exit
  write(*,120) c,s,sr(c,s)
  120 format(1x,'所查询学生为第',I2,'班','第',I2,'号学生，其成绩为：',/,&
            'sr= ',F6.2)
end program score_record

不知道为什么出现如下错误提醒：
Compiling Fortran...
F:\software\CVF_6.6\MSDEV98\MyProjects\array test\array test.f90
F:\software\CVF_6.6\MSDEV98\MyProjects\array test\array test.f90(18) : Error: An unterminated block exists.
do
^
Error executing df.exe.

array test.exe - 1 error(s), 0 warning(s)

求大神们解释！

回复此楼