如何利用fortran程序解这个积分

答案:2 悬赏:10 手机版

解决时间 2021-12-26 04:21

提问者网友：欲望失宠
2021-12-25 17:18

如何利用fortran程序解这个积分

最佳答案

五星知识达人网友：时间的尘埃
2021-12-25 17:26

主程序这么写：
program main
parameter(a=-1, b=1)
integer :: n, m
external f, g !定义作为实参的函数子程序名f、g的属性
! write(*,*) "please input a number:"
! read(*,*) n
! write(*,*) trap(f, a, b, n), trap(g, a, b, n)
do n = 1, 7
m = 100*10**(n-1)
write(1,*) m, trap(f, a, b, m)
enddo
end
输出的结果是：
100 -27.99960
1000 -27.99997
10000 -28.00006
100000 -28.00539
1000000 -27.98183
10000000 -26.84355
100000000 -2.684355

全部回答

1楼网友：西风乍起
2021-12-25 18:45

这个程序没什么问题啊！我把主程序修改了一下，n从100到一亿的积分结果都列了出来，给你贴出来第一个函数结果做个参考吧！主程序这么写： program main parameter(a=-1, b=1) integer :: n, m external f, g !定义作为实参的函数子程序名f、g的属性 ! write(*,*) "please input a number:" ! read(*,*) n ! write(*,*) trap(f, a, b, n), trap(g, a, b, n) do n = 1, 7 m = 100*10**(n-1) write(1,*) m, trap(f, a, b, m) enddo end 输出的结果是： 100 -27.99960 1000 -27.99997 10000 -28.00006 100000 -28.00539 1000000 -27.98183 10000000 -26.84355 100000000 -2.684355

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息