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/06/25 18:45:14
![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](/uploads/image/z/14146694-62-4.jpg?t=fortran+%E6%89%BE%E9%94%99program+eepreal%3A%3Au1%2Cu0%2Cn%2CEi%285%29%2Csum%2Cx%285%29integer%3A%3Amax%3D20parameter%28eps%3D1e-10%2Cy%3D0.577215665%29write%28%2A%2C100%29+%27%E8%AF%B7%E8%BE%93%E5%85%A5x%E7%9A%84%E5%80%BC%27+++%21x%3D0.5000%2C0.5234%2C0.7635%2C1.2536%2C2.5000%2C2.7865%2C3.3500read%2A%2Cx100+format%282x%2Cf7.4%29u0%3D-x%3Bn%3D1%3Bsum%3Du0do+while%28u1-u0%3Eeps%29u1)
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 的运算结果