版块导航: 正在加载中...

登录注册

应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜

北京石油化工学院2026年研究生招生接收调剂公告

返回列表

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)

求大神们解释！

回复此楼

» 猜你喜欢

1楼 2014-05-14 15:44:20

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

baobiao007

木虫 (职业作家)

中国特色

应助: 201 (大学生)
金币: 6482.7
散金: 557
红花: 40
帖子: 3050
在线: 1009.9小时
虫号: 505962
注册: 2008-02-18
专业: 应用地球物理学

【答案】应助回帖

★ ★ ★ ★ ★
感谢参与，应助指数 +1
1312758691: 金币+5, ★★★很有帮助, 还是他人来检查比较容易看出错误！ 2014-05-16 10:54:21

少了,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, end do

赞一下

回复此楼

我同意叔本华的观点，人们投身艺术和科学领域的强烈愿望之一就是逃离痛苦、残酷和枯燥无味的现实生活，逃离自己飘忽不定的七情六欲的桎梏。--爱因斯坦

2楼2014-05-14 22:02:05