続き
Write(6,100)
100 format(14x,’score of examitation’/
* 2x,no.　eng mat jap soc sci ‘,
* 3x,’psum paver’
Do 50 i=1,n,1
Write(6,200) I,(exam(I,j),j=1,5,1)
Psum(i),paver(i)
200 forma(1x,i3,5i6,i7,f6.1)
50 continue

Write(6,400) ( sum(j),j=1,5,1)
400 format(/1x,’sum’,5i6)
Write(6,500) (aver(j),j=1,5,1)
500format(/1x,’aver’,2x,5f5.1)
Stop
End
を改造して
各科目の標準偏差を求めそれを利用することで各個人の偏差値を求め、個人の
得点の下に偏差値をしめすプログラムの作り方がわかりません。。。。
偏差値＝（Ｐ−M）/s*10+50
標準偏差は各科目ごとにs=√1/nΣ(P-M)*(P-M)
p=得点、M=平均値


AVER：科目平均　SUM:科目の合計　　PSUM:個人の合計　PAVER:個人の平均