问题
-
阅读下列FORTRAN77程序: READ(* , *)X IF(X.LE.0) THEN Y=0.0 ELSE IF ((X.LT.5.0).AND.(X.N
-
阅读下列FORTRAN程序 INTEGER X(3,3),ADATA X/1,2,3,4,5,6,7,8,9/ DO 10 I=1,3DO 10 J=I+1,3A=X(
-
阅读下列FORTRAN程序INTEGERX(3,3),ADATA X/1,2,3,4,5,6,7,8,9/DO 10 I=1,3DO 10 J=I+1,3A=X(I,J
-
下面程序段的运行结果是()。DO10I=1,6S=0.0DO10J=I,5,-1S=S+I+J10.CONTINUEWRITE(*,100)S100.FORM
-
设一个MxN矩阵已存储在数组A(M,N)中,下面的程序段用来计算()。sum=0.0do10j=2,n-1sum=sum+a(1,j)+
-
阅读下列FORTRAN77程序:DIMENSIONA(4,3)COMMON/P/AP=0.0D010K=1,3D010J=1,31F(P.LE.5.0)P=P+A(J,