fortran 找错program eepreal::u1,u0,n,Ei(5),sum,x(5)integer::ma
来源:学生作业帮 编辑:大师作文网作业帮 分类:综合作业 时间:2024/10/10 10:29:52
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
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 的运算结果
首先,你先确定一下,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