277 力を貸してください ひろふみ 2000/07/14 (金) 20:03
278 Re: 力を貸してください マンボウ 2000/07/14 (金) 21:36
279 Re^2: 力を貸してください マンボウ 2000/07/14 (金) 23:51
277. 力を貸してください ひろふみ 2000/07/14 (金) 20:03 |
成績管理システムをつくらなきゃいけないんですが,その中でも平均,分散,偏差値を求めるプログラミングを作りたいんですが,考え方が今ひとつわかりません。 |
278. Re: 力を貸してください マンボウ 2000/07/14 (金) 21:36 |
> 成績管理システムをつくらなきゃいけないんですが,その中でも平均,分散,偏差値を求めるプログラミングを作りたいんですが,考え方が今ひとつわかりません。 |
279. Re^2: 力を貸してください マンボウ 2000/07/14 (金) 23:51 |
FORTRAN で書いたプログラム例です...5年ぶりくらいに書いたFORTRAN(^_^;)real*8 mean, var, sd, x(99999) integer i mean = 0 var = 0 do 10 i = 1, 99999 read(*, *, end = 11) x(i) 10 continue stop 999 11 continue n = i-1 do 20 i = 1,n mean = mean+x(i) 20 continue mean = mean/n do 30 i = 1, n var = var+(x(i)-mean)**2 30 continue var = var/(n-1) sd = sqrt(var) write(*,*) n, mean, var, sd end |
● 「統計学関連なんでもあり」の過去ログ--- 008 の目次へジャンプ
● 「統計学関連なんでもあり」の目次へジャンプ
● 直前のページへ戻る