作者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