くだすれFORTRAN（超初心者用）その4at TECHくだすれFORTRAN（超初心者用）その4 - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このｽﾚｯﾄﾞのURL■項目テキスト409:デフォルトの名無しさん 09/07/03 22:26:38 program integer::n,ten(1:3) real(8)::sum(1:3),sum2(1:3) real(4)::mean(1:3),sd(1:3),heikin integer::io integer::bango,gokei character*14::kamoku(1:3),namae ! kamoku(1)='国語' kamoku(2)='数学' kamoku(3)='理科' n=0 do i=1,3 sum(i)=0.0D0 sum2(i)=0.0D0 end do ! 410:デフォルトの名無しさん 09/07/03 22:29:07 do read(5,*,iostat=io)bango,namae,(kamoku(i),i=1,3) if(io/=0)then exit end if n=n+1 do i=1,3 sum(i)=sum(i)+ten(i) sum2(i)=sum2(i)+ten(i)**2 end do end do gokei=ten(1)+ten(2)+ten(3) heikin=gokei/3.0 do i=1,3 mean(i)=sum(i)/n sd(i)=sqrt((sum2(i)-(sum(i)**2)/n)/n) end do pｒint *,'人数=',n do i=1,3 print *,'科目',kamoku(i),mean(i),sd(i) end do stop end program ex8_1a よろしくお願いします。 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch