[問題] 新手請大家幫忙debug

看板Programming作者h888512 (理論型嘴砲)時間14年前 (2010/10/13 07:31)推噓0(0推 0噓 4→)

留言4則, 2人參與討論串1/2 (看更多)

是用fortran寫的 program calculate implicit none real x(999) integer counter,sum integer, parameter :: limit=46 open(8,file='data.txt',status='old') sum=0 do counter=1, limit,1 read(8,'1x,f4.1',err=99) x(counter) sum =sum+x(counter) 99 close(1) end do write(*,*) sum/46 end compile之後沒有bug,可是讀出來的東西是0 file和compiler都放在桌面上請大家幫幫忙,謝啦!! -- ◥▁▁▁▁ ◢ ◤ ██ ／- 不..不要誤會，我不是針對你.. □–□-◢◤ 我是說在座的各位，都是垃圾.... ▼ㄑ ◢ ▼一／◣ http://www.youtube.com/watch?v=HWWMvpIhHNY