| 查看: 426 | 回复: 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) 求大神们解释! |
» 猜你喜欢
材料化工340求调剂
已经有4人回复
一志愿厦门大学材料工程专硕354找调剂!!!
已经有6人回复
271求调剂
已经有20人回复
一志愿085600中科院宁波所276分求调剂
已经有24人回复
一志愿北交大材料工程总分358
已经有4人回复
0856材料与化工调剂,339
已经有11人回复
一志愿郑大材料工程290求调剂
已经有19人回复
266分,一志愿电气工程,本科材料,求材料专业调剂
已经有9人回复
372分材料与化工(085600)一志愿湖南大学求调剂
已经有3人回复
一志愿南师大0703化学 275求调剂
已经有6人回复
baobiao007
木虫 (职业作家)
中国特色
- 应助: 201 (大学生)
- 金币: 6482.7
- 散金: 557
- 红花: 40
- 帖子: 3050
- 在线: 1009.9小时
- 虫号: 505962
- 注册: 2008-02-18
- 专业: 应用地球物理学

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














回复此楼