2018-01-24から1日間の記事一覧
program report14 implicit none real(8)::t,k real,parameter::TOL=1.0D-6 real(8),dimension(5)::NPV,s integer::i s(1)=0.0;s(2)=10.0;s(3)=15.0;s(4)=20.0;s(5)=25.0 do i=1,5 NPV(i)=forming(s(i)) End do k=0.0 do while(forming(k)>=0) k=k+TOL enddo…