| 查看: 286 | 回复: 1 | |||
| 当前主题已经存档。 | |||
[交流]
【求助】一个fortran程序求助
|
|||
|
问题：假定某班50名学生，本学期4门考试，要求编写一个程序，输入每个学生的学号(整型)及成绩(实型)，并计算出每个人的总分及平均分。 学号 (整型) 成绩1 (实型) 成绩2 (实型) 成绩3 (实型) 成绩4 (实型) 总分(实型) 平均分(实型) …… …… …… …… …… …… …… 我写的程序，不知道那里出问题了，各位大侠帮忙下吧多谢了 program main implicit none integer,dimension(100)::xh,zf,pj real,dimension(1:4,1:1000)::num integer n,i,j print*,'输入学生总数：' read*,n print*,'输入学号：' read*, (xh(i),i=1,n) do i=1,n do j=1,4 print*,'科目',j read*, (num(j,i)) end do end do end zf=0 do i=1,n do j=1,4 zf(i)=zf(i)+num(j,i) pj(i)=zf(i)/n end do write(*,*) '总分=',zf(j,i) write(*,*) '平均分=',pj(j,i) end do end |
回复此楼» 猜你喜欢
今年审到国自然15份，谈谈感受
已经有3人回复
-
这年头没有找到涵评专家，还有中面上的可能吗
已经有16人回复
-
26/27博士推荐
已经有3人回复
-
找博士生导师
已经有4人回复
-
重磅！青年科学基金项目（C类）资助增幅预计超过50%
已经有9人回复
-
售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急
已经有4人回复
-
售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急
已经有4人回复
-
售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急
已经有7人回复
-
售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急
已经有4人回复
-
售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急
已经有6人回复
2楼2010-02-18 17:11:57
