问题
-
阅读下列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(
-
阅读下列FORTRAN77程序:PI=3.14159265WRITE(*,‘(F7.4)’)PIEND程序运行后输出结果是()。(A) 3.142(
-
阅读下列FORTRAN77程序:EXTERNALPPINTEGER P,PP,Q(4,4)DATAQ/1,2,3,4,5,6,7,8,9,10,11,12,13,14,
-
阅读下列FORTRAN77程序:DIMENSIONP(3,3)D010K=1,3D010J=1,310P(K,J)=(K-1)*3+JCALLSUB(P(2,1),3,
-
阅读下列FORTRAN77程序:DIMENSIONA(3,3)D0100K=1,3D0100J=1,3100A(K,J)=K+JS=P(A,2,8)WRITE(*,*)
-
阅读下列FORTRAN77程序:INTEGERA(3,2)READ(*,100)A100FORMAT(2I3)WRITE*,*)AEND运行后要使A(1,2)