作者laa7352 (Laa)
看板Fortran
標題Re: [問題] 有誰會寫這題FORTRAN?? 拜託了!!
時間Fri Jun 12 16:45:57 2009
※ 引述《joyshe78904 (幾樓)》之銘言：
: 光碟中\program\chap09\grades.bin 中
: 以二進位放是儲存了全班20位同學的成績，
: 檔案中緊密的儲存了20位同學的國文.英文.數學.自然.社會這5個科目的成績，
: 每個成績使用長整術方法(佔4btyes)，
: 依序先存放1號同學的5個科目，
: 在存放2號同學的五個科目成績.....
: 最後存放20號同學的5個科目成績，
: 請寫作程式讀出全班同學的成績，
: 並計算每位同學的總分級全班的各科平均
: 這是我朋友要交作業的
: 拜託大大了 因為我也看不懂 囧
binary格式的讀取
integer ist,icur,isco,data,irec
real rsco
parameter (ist=20,icur=5) ! ist學生人數 icur科目數
dimension isco(ist,icur),data(icur)
c ! isco這陣列是拿來存所有學生科目分數
open(11,file='grades.bin',status='old'
2 ,form='unformatted',access='direct'
3 ,recl=icur*4) ! 把五個科目設成一個rec
! 讀一次就是讀一個學生的分數
c
irec=1 ! irec會從1跑到20
do i=1,ist ! 當irec=1 用data取學生1的五科分數……
read(11,rec=irec)data ! 再用do loop把成績放到isco裡
do j=1,5 ! 要計算或平均什麼的就用isco這陣列來做
isco(i,j)=data(j)
enddo
irec=irec+1
enddo
接下來的平均計算應該很簡單吧
自己嚐試看看
不行再上來問
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.137.32.73
1F：推 joyshe78904:我朋友說他都沒去上課 後面他也不會= =+ 06/12 17:07
看一下Fortran95裡陣列的敘述吧
就以上面寫的程式來看
isco是放學生成績
國文 英文 數學 自然 社會
學生1 isco(1,1) isco(1,2) isco(1,3) isco(1,4) isco(1,5)
學生2 isco(2,1) isco(2,2) isco(2,3) isco(2,4) isco(2,5)
..... ............................
..... ............................
學生20 isco(20,1) isco(20,2) isco(20,3) isco(20,4) isco(20,5)
所以要算某學生(i)的總成績
total(i)=isco(i,1)+isco(i,2)+isco(i,3)....+isco(i,5)
要算某科(j)平均
averge(j)=float(isco(1,j)+isco(2,j)+....isco(20,j))/float(ist)
寫成do loop吧…
※ 編輯: laa7352 來自: 61.228.149.127 (06/12 20:33)
2F：→ spaceodyssey:你朋友不會就是你吧？ 06/12 20:31
3F：→ agody:要用unformatted還是binary有一點差,要看原始檔是否是 06/13 00:01
4F：→ agody:用fortran寫入,寫入時是否選unformatted,這部分要小心 06/13 00:02
5F：推 joyshe78904:不好意思 真的是我朋友 06/13 00:07
6F：→ joyshe78904:我學完C++之後 就忘了FORTRAN 不得已才幫他來找的 06/13 00:08
7F：→ joyshe78904:不過還是謝謝大大的幫忙!! 好像是今天截止 06/13 00:10
8F：→ joyshe78904:來不及就算了 囧... 06/13 00:10