categoryFORTRAN覚書

平均

trackback0  comment0
プログラミング覚書 Fortran-022

平均
----------------------------------------------------------------------

c sample program
c 平均を計算する
real a(20),asum,av
integer i,k/3/
write(*,*) ' 3つの実数の平均を求める '
write(*,*) ' 実数を3つ、カンマまたはブランクで区切って入力する'
read(*,*) (a(i),i=1,k)
asum=0.0
do 100 i=1,k
asum=asum+a(i)
100 continue
av=asum/real(k)
write(*,*) ' a= ',(a(i),i=1,k), ' 平均 ',av
end

関連記事
 









        
 
http://greenwind888.blog.fc2.com/tb.php/218-a682444d