早教吧作业答案频道 -->数学-->
fortran求解PROGRAMexINTEGER::m(6),i,j,kDOk=1,6,1callsub1(m(k))ENDDOENDPROGRAMSUBROUTINEsub1(n)REAL::xINTEGER::ncallrandomseed()callrandomnumber(x)n=nint(x*100)RETURNENDSUBROUTINE为什么每次得到的m(1)~m(6)都一样?
题目详情
fortran求解
PROGRAM ex
INTEGER::m(6),i,j,k
DO k=1,6,1
call sub1(m(k))
ENDDO
END PROGRAM
SUBROUTINE sub1(n)
REAL::x
INTEGER::n
call random_seed ()
call random_number (x)
n=nint(x*100)
RETURN
END SUBROUTINE
为什么每次得到的m(1)~m(6)都一样?
PROGRAM ex
INTEGER::m(6),i,j,k
DO k=1,6,1
call sub1(m(k))
ENDDO
END PROGRAM
SUBROUTINE sub1(n)
REAL::x
INTEGER::n
call random_seed ()
call random_number (x)
n=nint(x*100)
RETURN
END SUBROUTINE
为什么每次得到的m(1)~m(6)都一样?
▼优质解答
答案和解析
PROGRAM ex
INTEGER::m(6),i,j,k
call random_seed ()
DO k=1,6,1
call sub1(m(k))
ENDDO
END PROGRAM
SUBROUTINE sub1(n)
REAL::x
INTEGER::n
call random_number (x)
n=nint(x*100)
write(*,*) n
RETURN
END SUBROUTINE
random_seed 只需调用一次既可
INTEGER::m(6),i,j,k
call random_seed ()
DO k=1,6,1
call sub1(m(k))
ENDDO
END PROGRAM
SUBROUTINE sub1(n)
REAL::x
INTEGER::n
call random_number (x)
n=nint(x*100)
write(*,*) n
RETURN
END SUBROUTINE
random_seed 只需调用一次既可
看了 fortran求解PROGR...的网友还看了以下：
∑C(n,k)*u^k*(1-u)^(n-k)是多少?（0≤u≤1.0,0≤k≤n-1,其中C(n, 2020-03-30 …
I=[sin(u).*sin(N*u*d/a)./u./sin(u.*d./a)]^(2);Inp 2020-04-26 …
MATLAB 如何赋值 画实部虚部图像 画图clearclcsyms a j k n u e A 2020-05-16 …
关于电力系统潮流计算牛顿拉夫逊算法的MATLAB程序中 形成节点导纳矩阵时有个语句理解不了,Ybu 2020-05-17 …
Lim(x--->无穷）n^2008/{n^k-(n-1)^k}=A(A不等于0和无穷),求k值有 2020-07-08 …
lim(n->∞)[n^1990/n^k-(n-1)^k]=A,A不为0和∞,求A,k 2020-07-08 …
已知当n→∞limn^1990/(n^k-(n-1)^k)=A(≠0,≠∞),则A=＿＿,k=＿＿ 2020-07-08 …
极限limn趋于无穷大lim（n趋于无穷大）n^2005/[n^k-(n-1)^k]=A,其中A不 2020-07-15 …
Lim(x--->无穷）n^2008/{n^k-(n-1)^k}=A(A不等于0和无穷),求k值 2020-07-21 …
(n^2000)/n^k-(n-1)^k=A（A≠0≠∞）当n趋于无穷时,A和k的取值（求分母展开的 2020-11-01 …