作者joyshe78904 (几楼)
看板Fortran
标题[问题] 有人会这一题吗?
时间Thu Jun 18 18:12:57 2009
有人会把以下输出吗??
program dograde
integer,parameter :: num=20, sn=5
type :: member
integer :: id, psum=0
end type
type :: grades
integer :: sub(sn)=0
end type
type(grades) :: psub(num),totalave
type(member) :: person(num)
open(10,file="grade.txt",form="unformatted",access="direct",recl=4*sn*num)
do i=1,num
person(i)%id=i
read(10,rec=i) psub(i)
do j=1,sn
totalave%sub(j) = totalave%sub(j) + psub(i)%sub(j)
person(i)%psum = person(i)%psum + psub(i)%sub(j)
end do
end do
! 每个人总成绩
do i=1,num
write(*,*) person(i)%id, person(i)%psum
end do
! 各科平均
do j=1,sn
write(*,*) real(totalave)/read(num)
end do
stop
end program
ps:我是用我朋友的帐号po的!!
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 114.42.218.4
1F：嘘 azureus:难道连输出都不想试...未免太不想动脑了吧 06/18 18:37
2F：嘘 blc:Segmentation fault 06/18 19:03
3F：嘘 awer89:就拿上2篇别人帮你解答的用 你乾脆重修一次比较快 06/18 19:44