Question

fortran语言矩形法计算编程定积分∫cos（1-（1-x²））dx，积分从0到π。

• 你的回答被采纳后将获得：
• 系统奖励15（财富值+成长值）+难题奖励30（财富值+成长值）

Answer 1

implicit none
real(8)::dx,x,y
real(8),parameter::pi=3.141592653

dx=0.0001d0
x=0.0d0
y=0.0d0

do while (x<=pi)
y=y+cos(1-(1-x**2.0))*dx
x=x+dx
enddo
write(*,"('the answer is: ',f16.6)")y
pause
end

Answer 2

搜一下：fortran语言矩形法计算编程定积分∫cos（1-（1-x²））dx，积分从0到π。