fortran求解PROGRAM exINTEGER::m(6),i,j,kDO k=1,6,1call sub1(m(
来源:学生作业帮 编辑:神马作文网作业帮 分类:数学作业 时间:2024/09/21 15:27:33
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求解PROGRAM exINTEGER::m(6),i,j,kDO k=1,6,1call sub1(m(
fortran题矩阵program ddcparameter(M=5,N=5)integer i,jreal:A(M,N
{ int a[6][6],i,j,k,m,max; k=0; m=0; for(i=0;i
#include main() { int k,j,m; for(k=5;k>=1;k--) { m=0; for(j=
本本键盘出问题,j=1,u=4,i=5,o=6,l=3,p=*,k=2,m=0.
#includemain(){int i,j,m=1;for(i=1;i0;j--){if(i*j>3)break;m*
不懂循环.for(j=i;j>0;j--) /*循环J开始*/{ k=k+m[j]; /*k 代表着过桥车辆总质量*/i
fortran 中write(*,20)((x(i,j),j=1,3),i=1,3) 这句什么意思? 谢谢
int i=2,j=1,k=3 i&&(i+j)&k|i+j
MATLAB中的语句 if M(i,j) == 1 || M(i,j) == 3 M(i,j) = 2;
i j是相互垂直的单位向量 a=(m+1)i-3j b=i+(m-1)j a+b垂直a-b 求m
for(j=1;j<=n;j++) { for(i=1;i<m;i++) 数据结构,怎么循环