作者Laoda245566 (草莓兽)
看板Fortran
标题[问题] 开文件求平均
时间Sun Nov 24 20:07:34 2013
integer x, y, sum
real mean
open(unit=1,file='Gradeold.txt')
read(1,*)x,y
sum=0
do i=1,62
sum=sum+y
end do
mean=sum/62
write(*,*)"mean",mean
end
请问一下
哪里打错了
我怎麽执行都是100
感谢
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 114.45.178.157
1F：→ Cypresslin:你Gradeold.txt第一行是不是有100? 11/24 20:52
2F：→ wenni:你只读了第一行的资料 请拿张纸自己一行一行照着做就知道 11/24 21:04
3F：→ wenni:哪边该改了~ 11/24 21:04