合同プログラミングゼミ

第2回

　Cygwinの説明(復習)

　　起動、 秀丸へのドラッグ＆ドロップによるエディット

pwd cd more

　　g95　ファイル名.f95 でコンパイル、

　　エクスプローラ上で新規作成、名前変更、秀丸で編集でプログラム作成

　　前回のプログラムの説明

　　

課題：　前回作成の読み込み＆書き出しのプログラムを元に、日平均データを求めるプログラムを作成せよ

　ヒント：　　xの和を取るには

　　　　　　　read :: s_x

s_x=0

do i=1,n

　　　　　　　　read(*,*) x

s_x = s_x + x

end do

　　　のような処理が使える。

program test4

! no dimension version with averaging

implicit none

integer, parameter :: n=24

integer :: hour

real :: pres, temp, rh, u

integer :: i

real*8 :: pres_m, temp_m, rh_m, u_m

pres_m = 0 ; temp_m = 0 ; rh_m = 0 ; u_m = 0

open(unit=10, file='SampleData.txt')

do i=1, n

read(10,*) hour, pres, temp, rh, u

pres_m = pres_m + pres

temp_m = temp_m + temp

rh_m = rh_m + rh

u_m = u_m + u

end do

close(10)

pres_m = pres_m/n

temp_m = temp_m/n

rh_m = rh_m/n

u_m = u_m/n

write(*,*) pres_m, temp_m, rh_m, u_m

end program test4

解答例