fortran 找错program eepreal::u1,u0,n,Ei(5),sum,x(5)integer::ma

来源：学生作业帮编辑：作业帮分类：综合作业时间：2024/07/14 04:43:55

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

我完全看不懂你的意图,所以无法完全给你修改正确.
首先,你先确定一下,u1,u0 是什么含义?x 是什么含义?Ei 是什么含义?他们分别是数组,还是单变量?
不管怎么样
u0=-x;n=1;sum=u0
u0 是单变量,它不能等于一个数组 x
u1=-uo*n*x/((n+1)*(n+1))
u1 也是单变量,它不能等于一个数组 x 的运算结果

fortran 找错program eepreal::u1,u0,n,Ei(5),sum,x(5)integer::ma fortran题矩阵program ddcparameter(M=5,N=5)integer i,jreal:A(M,N dim i as integer dim sum as integer sum=0 for i=0 to 5 sum=s fortran求找错program dsdimplicit nonereal(8) ::a(2,2)data a/1,3 英语翻译constnum = 5;varn:integer;function r(n :integer) :intege program Noname0; const n=7; var a:array[1..n] of integer; i, 英语翻译For any positive integer n,the sum of the first n positi For any positive integer n,the sum of the first n positive i 一道Gmat数学题!For any positive integer n,the sum of the first n 一个VBA程序段 sum = 0 n = 0 For i = 1 to 5 x = n/i n = n + 1 sum Java write a program to read an integer,n,from the keyboard 能不能再帮我看一道题sum Fun (a() as integer,x as integer) for i = 1 to