早教吧作业答案频道 -->其他-->
关于fortran6.PROGRAMMAIN2N=3Y=(SUM(N)+SUM(N+1)+SUM(N+2))/(SUM(N+3)+SUM(N+4))WRITE(*,*)‘Y=’,YENDFUNCTIONSUM(X)INTEGERXSUM=0DO10I=1,XSUM=SUM+I10CONTINUEEND不管怎么运行上面总是提示Error:Anarray-valuedargumentisrequiredin
题目详情
关于fortran6.
PROGRAM MAIN2
N=3
Y=(SUM(N)+SUM(N+1)+SUM(N+2))/(SUM(N+3)+SUM(N+4))
WRITE (*,*) ‘Y=’,Y
END
FUNCTION SUM(X)
INTEGER X
SUM=0
DO 10 I=1,X
SUM=SUM+I
10 CONTINUE
END
不管怎么运行 上面总是提示 Error:An array-valued argument is required in this context.[SUM]
Y=(SUM(N)+SUM(N+1)+SUM(N+2))/(SUM(N+3)+SUM(N+4))
这是什么原因
但是我在上面程序里加了一句 REAL SUM(7) 上面没有错误 但是却得不到结果
PROGRAM MAIN2
N=3
Y=(SUM(N)+SUM(N+1)+SUM(N+2))/(SUM(N+3)+SUM(N+4))
WRITE (*,*) ‘Y=’,Y
END
FUNCTION SUM(X)
INTEGER X
SUM=0
DO 10 I=1,X
SUM=SUM+I
10 CONTINUE
END
不管怎么运行 上面总是提示 Error:An array-valued argument is required in this context.[SUM]
Y=(SUM(N)+SUM(N+1)+SUM(N+2))/(SUM(N+3)+SUM(N+4))
这是什么原因
但是我在上面程序里加了一句 REAL SUM(7) 上面没有错误 但是却得不到结果
▼优质解答
答案和解析
呵呵.
SUM函数是Fortran的一个内部函数,作用是求一个数组所有元素的和.因此要求SUM(X)的参数X必须是一个数组,不能是一个数.因此楼主的程序会提示:
Error: An array-valued argument is required in this context. [SUM]
你程序中前N个自然数求和函数和Fortran内部函数重名了,且未对该函数进行声明,Fortran是按照它内部的函数运行的.
解决方法:
1、把你的前N个自然数求和函数改成别的名字,如SUM2
2、如果你实在不想改函数名字,要在PROGRAM MAIN2后面加上一句SUM函数的声明:
EXTERNAL SUM
3、楼主编程的习惯好像不太好啊,变量和子函数都没有声明类型,开头也没有IMPLICIT NONE
SUM函数是Fortran的一个内部函数,作用是求一个数组所有元素的和.因此要求SUM(X)的参数X必须是一个数组,不能是一个数.因此楼主的程序会提示:
Error: An array-valued argument is required in this context. [SUM]
你程序中前N个自然数求和函数和Fortran内部函数重名了,且未对该函数进行声明,Fortran是按照它内部的函数运行的.
解决方法:
1、把你的前N个自然数求和函数改成别的名字,如SUM2
2、如果你实在不想改函数名字,要在PROGRAM MAIN2后面加上一句SUM函数的声明:
EXTERNAL SUM
3、楼主编程的习惯好像不太好啊,变量和子函数都没有声明类型,开头也没有IMPLICIT NONE
看了 关于fortran6.PRO...的网友还看了以下:
设函数f(x)=(2^x)/(1+2^x)-1/2,[x]表示不超过x的最大整数,则函数y=[f( 2020-04-27 …
函数f(x)=ln(x+1)-ax∧2-x,a∈R(1)求f(x)的单调区间 (2)求证:对任意的 2020-05-16 …
sum(1),sum(1)+1是什么意思selectiif(isnull(sum(1)),1,su 2020-06-02 …
急救一道物理题谢谢带有半径为R的1/4光滑圆弧的小车其质量为M,置于光滑水平面上,一质量为m的小车 2020-06-06 …
(1)证明:①Crn+Cr+1n=Cr+1n+1;②Cn+12n+2=2Cn2n+1(其中n,r∈ 2020-06-11 …
已知二次函数y=f(x)的定义域为R,f(1)=1,f(x)在x=m是取得最值,又若y=g(x)为 2020-06-11 …
已知函数(a>0,且a≠1,k∈R).(1)若f(x)的图象关于直线y=x对称,且f(2)=-2l 2020-07-20 …
mathematica中的sum运算问题,a=1/n^2Sum[kk,{n,1,Infinity} 2020-07-21 …
已知函数f(x)=ax^2-4bx+2alnx(a,b属于R)(1)若函数y=f(x)存在极大值和极 2020-12-08 …
如图所示,用伏安法测电阻R的阻值时,下列说法正确的是()A.十分认真地进行测量,测量所得R值一定仍比 2020-12-31 …