..................の間がプログラム本体です program 4 .................. C データを読んで平均と分散を計算するプログラム1 program main C 変数の初期化 sum=0 sum2=0 C データを読みつつ、和を計算 read(*,*)n do i=1,n read(*,*)y sum = sum+y sum2 = sum2+y**2 enddo av = sum/n sum2 = sum2/n var = sum2-av**2 C 出力 write(*,*)"number of data= ",n write(*,*)"average= ",av write(*,*)"variance= ",var end .................. program 5 .................. C 配列を使う1 program main real y(10) C 配列データを作る do i=1,10 y(i) = 2.0 * i enddo C 奇数番目のデータを出力 do i=1,10,2 write(*,*)y(i) enddo C 偶数番目のデータを出力 do i=2,10,2 write(*,*)y(i) enddo end .................. program 6 .................. C データを読んで平均と分散を計算するプログラム2(配列の利用) program main real y(50) C 配列にデータを読んでしまう read(*,*)n do i=1,n read(*,*)y(i) enddo C 配列にあるデータを使って計算 sum=0 sum2=0 do i=1,n sum = sum+y(i) sum2 = sum2+y(i)**2 enddo av = sum/n sum2 = sum2/n var = sum2-av**2 write(*,*)"number of data= ",n write(*,*)"average= ",av write(*,*)"variance= ",var C データの値とその平均値からのずれを出力 do i=1,n write(*,*)i,y(i),y(i)-av enddo end