| 查看: 1096 | 回复: 1 | |||
crrcrr新虫 (初入文坛)
|
[求助]
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 不知道哪错了 |
回复此楼» 猜你喜欢
Materials Today Chemistry审稿周期
已经有5人回复
-
溴的反应液脱色
已经有7人回复
-
国自然申请面上模板最新2026版出了吗？
已经有11人回复
-
推荐一本书
已经有12人回复
-
基金申报
已经有4人回复
-
计算机、0854电子信息（085401-058412）调剂
已经有4人回复
-
纳米粒子粒径的测量
已经有7人回复
-
常年博士招收(双一流，工科)
已经有4人回复
-
参与限项
已经有5人回复
-
有没有人能给点建议
已经有5人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 关于磁性的问题，跪求大神赐教
已经有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
crrcrr: 金币+5, ★★★★★最佳答案, 谢谢~ 2014-05-26 12:06:23
感谢参与，应助指数 +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 |
2楼2014-05-26 01:28:26