implicit real*8(a-h, o-z) akyo=3.200d0 !教育領域の点数 aken=4.650d0 !研究領域の点数 akok=2.500d0 !国際領域の点数 akan=4.000d0 !管理領域の点数 saidai=0.d0 do kyo=1, 5!最低0.1から最大0.5まで重みを変化 do ken=3, 7!最低0.3から最大0.7まで重みを変化 do kok=0, 3!最低0.0から最大0.3まで重みを変化 do kan=0, 3!最低0.0から最大0.3まで重みを変化 okyo=real(kyo)/10.d0 oken=real(ken)/10.d0 okok=real(kok)/10.d0 okan=real(kan)/10.d0 okei=okyo+oken+okok+okan if((0.99d0saidai) then saidai=saidai2 pkyo=okyo pken=oken pkok=okok pkan=okan print*,pkyo,pken,pkok,pkan, saidai2 end if end if end do end do end do end do print*,'教育:',pkyo,'*',akyo,'=' , pkyo*akyo print*,'研究:',pken,'*',aken,'=' , pken*aken print*,'国際:',pkok,'*',akok,'=' , pkok*akok print*,'管理:',pkan,'*',akan,'=' , pkan*akan print*,'合計:',saidai end