-
阅读下列FORTRAN77程序: READ(* , *)X IF(X.LE.0) THEN Y=0.0 ELSE IF ((X.LT.5.0).AND.(X.N
-
阅读下列FORTRAN77程序:F=1.0D020K=3,7,320WRTTE(*,(I3,F8.1)K,K*KEND程序运行结果的最后一行是(
-
阅读下列FORTRAN77程序:INTEGERB(4,4),PN=4CALLSUB(B,N)WRITE(*,*)P(B,N)ENDSUBROUTINESUB(Q,N)I
-
阅读下列FORTRAN77程序段:S=0.0DO10J=0,NS=S+XX=X+0.510CONTINUE下面程序段中与上述程序段等价的
-
阅读下列FORTRAN77程序:EXTERNALPPINTEGER P,PP,Q(4,4)DATAQ/1,2,3,4,5,6,7,8,9,10,11,12,13,14,
-
阅读下列FORTRAN77程序:DIMENSIONM(3,4)DATAM/4*2,4*1,4*-1/N=0D010K=1,410N=N十M(1,K)WRITE(*,*
-
阅读下列FORTRAN77程序:INTEGERA(3,2)READ(*,100)A100FORMAT(2I3)WRITE*,*)AEND运行后要使A(1,2)