2017-11-22から1日間の記事一覧
program midterm implicit none real:: Ax=0.0, Ay=0.0, Mxl=0.0, Mxr=0.0, Myl=0.0, Myr=0.0, SumA=0.0, SumMx=0.0, SumMy=0.0,xc=0.0,yc=0.0 integer:: i=0, N print*, "Inout N here" read(*,*) N do i= 1,N-1 Ax = Ax + 1 - real(i)/real(N) Ay = Ay + s…