| 查看: 425 | 回复: 1 | ||
1312758691新虫 (小有名气)
|
[求助]
程序错误 已有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) 求大神们解释！ |
回复此楼
baobiao007
木虫 (职业作家)
中国特色
- 应助: 201 (大学生)
- 金币: 6482.7
- 散金: 557
- 红花: 40
- 帖子: 3050
- 在线: 1009.9小时
- 虫号: 505962
- 注册: 2008-02-18
- 专业: 应用地球物理学
2楼2014-05-14 22:02:05
30