作者fishrupm (哈啾)
看板Fortran
標題[問題] fortran77程式問題QQ
時間Thu Feb 26 01:06:55 2009
program test
implicit none
integer n,i,sum,d(100000) !宣告 n,i,sum,d 為整數
real average1,average2 !宣告 average1,average2 為實數
open(1,file='data.txt')
open(10,file='out.txt')
do i=1,100000
read(1,*,end=100) d(i) !讀取(輸入)資料 d(i)
n=i
enddo
100 continue
write(*,*) 'n=',n !在螢幕上顯示出"n=",並列出 n 的數值
sum=0 !給定sum的起始值為0
do i=1,n !開始do迴圈,執行1至n的加總
sum=sum+d(i)
enddo ! do迴圈的結束
average1=sum/n
average2=real(sum)/n
write(*,*) 'sum=',sum
write(*,*) 'average1=',average1
write(*,*) 'average2=',average2
write(10,*) 'sum=',sum
write(10,*) 'average1=',average1
write(10,*) 'average2=',average2
stop
end
----------------
後來檢查的時候有一個錯誤
可是我一直找不出來(剛學 程式是老師提供用的)
可以拜託幫我找一下嗎>"<
謝謝大家
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 118.170.200.66
1F:推 t19861203:read(1,*,end=100) 是這邊有問題嗎? 02/26 01:23
2F:推 janhon:檔案代碼不要用1,用10以上比較好 02/26 02:52
3F:推 jsb: 應該是開檔的時候沒宣告 status 吧? 02/26 08:53
4F:→ jsb: 這是老師給的練習除錯作業嗎?感覺上是故意寫給你學程式的。 02/26 08:55
5F:→ fishrupm:不是除錯題 是老師要寫給我們看怎麼用 >"< 02/26 09:36
6F:→ Semisphere:程式沒錯,多半是格式問題,要選fix format 02/26 14:03
7F:→ Semisphere:或是你開文字檔貼上程式碼,將副檔名改成.f,用fortran 02/26 14:05
8F:→ Semisphere:開啟後幫他增加專案檔即可 02/26 14:06
9F:推 meteorology:程式放的資料夾路徑不能是中文~ 02/26 15:31
10F:→ fishrupm:s大 我試過了 還是一個error m大我用的是英文^^ 謝謝你們 02/26 15:35
11F:→ Semisphere:錯誤訊息貼上來吧,我剛測試可以跑 02/26 17:04
12F:推 charlesdc:可以+1 CVF6.0 02/26 23:28
13F:→ fishrupm:98-test1.exe - 1 error(s), 0 warning(s) 02/27 13:15
14F:→ fishrupm:我知道哪裡錯了= =" 我把檔案放在桌面 移到D槽就可以了 02/27 14:40
15F:→ fishrupm:謝謝大家的幫忙QQ 02/27 14:50