fortran 找错program eepreal::u1,u0,n,Ei(5),sum,x(5)integer::max=20parameter(eps=1e-10,y=0.577215665)write(*,100) '请输入x的值' !x=0.5000,0.5234,0.7635,1.2536,2.5000,2.7865,3.3500read*,x100 format(2x,f7.4)u0=-x;n=1;sum=u0do while(u1-u0>eps)u1
来源:学生作业帮助网 编辑:六六作业网 时间:2024/12/25 16:57:08
fortran 找错program eepreal::u1,u0,n,Ei(5),sum,x(5)integer::max=20parameter(eps=1e-10,y=0.577215665)write(*,100) '请输入x的值' !x=0.5000,0.5234,0.7635,1.2536,2.5000,2.7865,3.3500read*,x100 format(2x,f7.4)u0=-x;n=1;sum=u0do while(u1-u0>eps)u1
fortran 找错
program eep
real::u1,u0,n,Ei(5),sum,x(5)
integer::max=20
parameter(eps=1e-10,y=0.577215665)
write(*,100) '请输入x的值' !x=0.5000,0.5234,0.7635,1.2536,2.5000,2.7865,3.3500
read*,x
100 format(2x,f7.4)
u0=-x;n=1;sum=u0
do while(u1-u0>eps)
u1=-uo*n*x/((n+1)*(n+1))
sum=sum+u1
n=n+1
end do
Ei=y+lnx+sum
write(*,200) '结果为:',Ei
200 format(1x,f10.6)
end
fortran 找错program eepreal::u1,u0,n,Ei(5),sum,x(5)integer::max=20parameter(eps=1e-10,y=0.577215665)write(*,100) '请输入x的值' !x=0.5000,0.5234,0.7635,1.2536,2.5000,2.7865,3.3500read*,x100 format(2x,f7.4)u0=-x;n=1;sum=u0do while(u1-u0>eps)u1
我完全看不懂你的意图,所以无法完全给你修改正确.
首先,你先确定一下,u1,u0 是什么含义?x 是什么含义?Ei 是什么含义?他们分别是数组,还是单变量?
不管怎么样
u0=-x;n=1;sum=u0
u0 是单变量,它不能等于一个数组 x
u1=-uo*n*x/((n+1)*(n+1))
u1 也是单变量,它不能等于一个数组 x 的运算结果