看板 [ Fortran ]
討論串[問題] 開文件求平均
共 2 篇文章
內容預覽： 開啟 | 關閉 | 只限未讀
首頁
上一頁
1
下一頁
尾頁
#1
[問題] 開文件求平均
推噓0(0推 0噓 3→)留言3則，0人參與, 最新作者Laoda245566 (草莓獸)時間11年前 (2013/11/24 20:07), 編輯資訊
1
0
0
內容預覽:
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.
#2
Re: [問題] 開文件求平均
推噓0(0推 0噓 1→)留言1則，0人參與, 最新作者cloudo (一步一腳印)時間11年前 (2013/11/25 11:57), 編輯資訊
0
0
0
內容預覽:
Program Test1. implicit none. integer x,i. real mean, y(1000), sum. open(unit=1,file='Gradeold.txt'). do i=1,62. read(1,*) x,y(i). end do. sum=0. do i
首頁
上一頁
1
下一頁
尾頁