[問題] 開文件求平均

看板Fortran作者 (草莓獸)時間10年前 (2013/11/24 20:07), 編輯推噓0(003)
留言3則, 2人參與, 最新討論串1/2 (看更多)
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

11/24 20:52, , 1F
你Gradeold.txt第一行是不是有100?
11/24 20:52, 1F

11/24 21:04, , 2F
你只讀了第一行的資料 請拿張紙自己一行一行照著做就知道
11/24 21:04, 2F

11/24 21:04, , 3F
哪邊該改了~
11/24 21:04, 3F
文章代碼(AID): #1IaUm8ch (Fortran)
文章代碼(AID): #1IaUm8ch (Fortran)