Re: [問題] 新手請大家幫忙debug
==> 本文由 "理論型嘴砲 <h888512.bbs@ptt.cc>"
> 於 news:52KkBj%2495l%40ptt.cc 發表
> 是用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)
在這裡先加上：
Write(*,*) counter, x(counter)
確認讀進來的是正確的
> sum =sum+x(counter)
> 99 close(1)
open(8, ...) 為啥 close 會是 1 ？close 為啥在 end do 之前？
> end do
> write(*,*) sum/46
> end
>
> compile之後沒有bug,可是讀出來的東西是0
> file和compiler都放在桌面上
> 請大家幫幫忙,謝啦!!
>
--
風禹科技驗證有限公司 ASP.NET Web News Reader 0.2.9 UTF-8 Beta
網站地圖 http://tlcheng.twbbs.org/wwwmap.htm
流域防洪/區域水資源/徐昇網/玫瑰圖/語音通訊 文章與程式
Basic/Fortran/Windows API/.Net/輔助說明檔 原始碼、文章與討論
微軟程式設計、系統管理使用新技術論壇討論區，網友回覆後即時簡訊、電子郵件通知：
MSDN: http://social.msdn.microsoft.com/Forums/zh-TW/categories/
TechNet: http://social.technet.microsoft.com/Forums/zh-TW/categories/
--
ASPNET News Reader http://tlcheng.twbbs.org/News/Reader.aspx
RSS 2.0 http://tlcheng.twbbs.org/News/rss2.aspx?Action=List&Newsgroup=tw.bbs.comp.language
討論串 (同標題文章)
完整討論串 (本文為第 2 之 2 篇)：