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

登录注册

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

24小时热门版块排行榜

返回列表

crrcrr

新虫 (初入文坛)

应助: 0 (幼儿园)
金币: 16
帖子: 12
在线: 4.8小时
虫号: 2253325
注册: 2013-01-21
性别: MM
专业: 河流海岸动力学与泥沙研究

[求助] Fortran循环语句，运行不出来，求大神赐教！！！已有1人参与

题目是输入100名学生的学号和五门课的成绩，要求统计并打印出总分成绩最高学生的学号、各门课成绩、总成绩及平均成绩。我先编了一个5名学生和五门课成绩的。程序如下：
open(10,file='data')
open(20,file='out')
read(10,*)
write(20,100)
100 format(1x,"学号数学物理化学生物英语总成绩平均成绩"

do i=1,5,1
read(10,*)x,m,p,c,b,e
enddo
max=0
do i=1,5,1
t=m+p+c+b+e
if(t>max)then
max=t
endif
enddo
a=max/5
write(20,200)x,m,p,c,b,e,max,a
200 format(i4,5f6.1,2f8.1)
end
然后准备的data文件是这样的：
5  5
1  80.0  68.0  98.0  69.0  65.0
2  96.0  78.0  96.0  77.0  82.0
3  78.0  80.0  80.0  89.0  75.0
4  68.0  96.0  78.0  91.0  88.0
5  98.0  98.0  68.0  94.0  100.0
编译没问题，但是运行的时候显示run-time error F6101(data)-invaild integer
不知道哪错了

回复此楼

» 猜你喜欢

上海工程技术大学激光智能制造课题组｜2027级博士研究生招生公告已经有6人回复
上海工程技术大学激光智能制造课题组招收博士研究生已经有8人回复
售SCI一区T0P文章，我:8.O.55.1.O54,科目全,可伽急已经有3人回复
售SCI一区T0P文章，我:8.O55.1.O.54,科目全,可十急已经有3人回复
售SCI一区T0P文章，我:8.O55.1.O.54,科目全,可十急已经有4人回复
售SCI一区T0P文章，我:8.O.55.1.O.54,科目齐全,可+急已经有3人回复
售SCI一区文章，我:8.O.55.1.O.54,科目齐全,可伽急已经有4人回复
售一区SCI文章T0P，我:8O.551.O54,科目全,可十急已经有3人回复
售SCI一区T0P文章，我:8.O.55.1.O.5.4,科目全,可+急已经有3人回复
售SCI文章，我:8O5.5.1.O.54,科目齐全,可+急已经有4人回复

» 本主题相关价值贴推荐，对您同样有帮助:

关于磁性的问题，跪求大神赐教已经有5人回复
这些错误该怎么改啊？求大神赐教已经有3人回复
求fortran计算方法指导 14元非线性方程组之前8元的使用bfs法能解14元解不了呀求指导已经有4人回复
有哪位懂得fluent滑移网格设置的大神求赐教啊！！！已经有3人回复
Fortran编程书籍（很不错）已经有91人回复
很简单的Fortran赋值出错啦，求大神们帮忙找bug... 已经有11人回复
嵌段共聚物，GPC左右不对称，分子量分布宽，请大神赐教已经有9人回复
求助：运行Fortran程序提示出现的问题? 已经有16人回复
一个积分，总是算不出来已经有4人回复
fortran程序运行结果输出及绘图已经有9人回复
fortran循环求助已经有3人回复
fortran里一个子程序不运行是怎么回事已经有13人回复
fortran中运行中出现无穷大的数怎么处理已经有9人回复
2,6-二羟甲基-4-叔丁基苯酚的合成，求大神赐教！！！已经有7人回复
急求fortran运行错误原因，在线等已经有7人回复
请教 fortran 运行错误的原因已经有13人回复
FORTRAN新手求助主程序循环问题已经有10人回复
【求助】运行fortran程序出现错误 : error LNK2019 怎么回事啊已经有8人回复
【求助】fortran程序未出错，但运行不出结果，中途中断！已经有6人回复
【求助】Fortran程序，如何让exe文件可以单独运行？已经有6人回复

1楼 2014-05-24 15:21:17

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

fish.yfyh

铜虫 (小有名气)

应助: 42 (小学生)
金币: 607.9
红花: 4
帖子: 108
在线: 35.9小时
虫号: 2867094
注册: 2013-12-12
专业: 化学生物学与生物有机化学

【答案】应助回帖

★ ★ ★ ★ ★
感谢参与，应助指数 +1
crrcrr: 金币+5, ★★★★★最佳答案, 谢谢~ 2014-05-26 12:06:23

代码如下，仅供参考
program test
implicit none
integer :: i,x(5),id(1)
real(8) :: score(5,5),all_score(5),ave_score(5)

open(10,file='data')
open(20,file='out')
read(10,*)
write(20,100)
100 format(1x,"学号数学物理化学生物英语总成绩平均成绩"

do i=1,5,1
read(10,*) x(i),score(i,

all_score(i) = sum(score(i,

)
ave_score(i) = all_score(i) / 5
enddo
id = maxloc(all_score)
write(20,'(i4,5f6.1,2f8.1)') id(1),score(id(1),

,all_score(id(1)),ave_score(id(1))

stop
end program
结果如下
学号数学物理化学生物英语总成绩平均成绩
5 98.0 98.0 68.0 94.0 100.0 458.0 91.6

赞一下(1人)