[問題] fortran77程式問題QQ
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
推
02/26 01:23, , 1F
02/26 01:23, 1F
推
02/26 02:52, , 2F
02/26 02:52, 2F
推
02/26 08:53, , 3F
02/26 08:53, 3F
→
02/26 08:55, , 4F
02/26 08:55, 4F
→
02/26 09:36, , 5F
02/26 09:36, 5F
→
02/26 14:03, , 6F
02/26 14:03, 6F
→
02/26 14:05, , 7F
02/26 14:05, 7F
→
02/26 14:06, , 8F
02/26 14:06, 8F
推
02/26 15:31, , 9F
02/26 15:31, 9F
→
02/26 15:35, , 10F
02/26 15:35, 10F
→
02/26 17:04, , 11F
02/26 17:04, 11F
推
02/26 23:28, , 12F
02/26 23:28, 12F
→
02/27 13:15, , 13F
02/27 13:15, 13F
→
02/27 14:40, , 14F
02/27 14:40, 14F
→
02/27 14:50, , 15F
02/27 14:50, 15F
Fortran 近期熱門文章
PTT數位生活區 即時熱門文章
