更多"阅读下列FORTRAN程序: INTEGER P P=0 "的相关试题:
[单项选择]阅读下列FORTRAN程序
INTEGER X(3,3),A
DATA X/1,2,3,4,5,6,7,8,9/
DO 10 I=1,3
DO 10 J=I+1,3
A. )。1 4 7
B. 1 2 3
C. 9 6 1
D. 9 8 7
[单项选择]阅读下列FORTRAN程序:
INTEGER S(2,4) ,A(2)
DATA S/4*1,4*2/
CALL SUB(S,2,4,A)
M=A(1) -A(2)
WRITE(*,*) M
END
SUBROUTINE SUB(S,N,K,A)
INTEGER S(N,K),A(N)
DO 20 I=1,N
A(I)=0
DO 10 J=1,K
10 A(I)=A(I)+S(I,J)
A(I)=A(I)/K
20 CONTINUE
END
执行上述程序后,输出的M值为( )。
A. 0
B. 1
C. 2
D. 3
[单项选择]阅读下列FORTRAN77程序:
PARAMETER(L=3)
INTEGER N(L)
DATA N/3*0/
DO 20 I=1,L
DO 20 J=1,L
N(J)=N(I)+l
20 CONTINUE
WRITE(*,*)N(L)
END
上述程序运行后,输出的值为( )。
A. 3
B. 5
C. 7
D. 9
[单项选择]阅读下列FORTRAN程序:
INTEGER M(3,3)
DATA M/1,2,3,4,5,6,7,8,9/
DO 10 1=1,3
WRITE(*,100) (M(I,J),J=1,I)
10 CONTINUE
10 FORMAT (1X,312)
END
上述程序执行后,输出结果是( )。
A. 1 4 7
B. 1 2 3
C. 1
D. 1
[单项选择]阅读下列FORTRAN程序:
INTEGER A(4,5)
DATA A/5*1,5*2,5*3,5*4/
M=0
DO 10 K=1,4
10 M=M+A(K,K+1)
WRITE(*,*) M
END
执行上述程序后,输出的M值为( )。
A. 8
B. 9
C. 10
D. 11
[单项选择]阅读下列FORTRAN 77程序: INTEGER AA(2.3) DATA AA/1,2,3,4,5,6/ CALL S2D19(AA) CALL S2D19(AA(1,2)) END SUBROUTINE S2D19(BB) INTEGER BB(2,2) WRITE(*,'(1X,2I3)’)BB(1,1),BB(2,2) END 程序运行结果是( )。
A. ( 14 36
B. ( 15 26
C. ( 14 25
D. ( 12 34
[单项选择]阅读以下FORTRAN程序:
INTEGER X(7)
DATA X/10,20,45,70,80,15,14/
M=X(1)
DO 10 I=2.7
IF(X(1).GT.M)THEN
M=X(1)
K=I
END IF
10 CONTINUE
N=X(K)
X(K)=X(1)
X(I)=N
WRITE(*,100)(X(I),I=1,7)
100 FORMAT(2X,7I3)
END
程序运行的结果是()。
A. 10 20 45 70 80 15 14
B. 14 20 45 70 80 15 10
C. 80 20 45 70 10 15 14
D. 20 45 70 80 15 14 10
[单项选择]阅读下列FORTRAN程序:
PARAMETER(L=3)
INTEGER N(L)
DATA N/3*0/
DO 20 I=1,L
DO 20 J=1,L
N(J)=N(1) +1
20 CONTINUE
WRITE(*,*) N(L)
END
上述程序运行后,输出结果是( )。
A. 3
B. 5
C. 7
D. 9
[单项选择]阅读下列FORTRAN77程序:
INTEGER A(4,5)
DATA A/5*1,5*2,5*3,5*4/
M=0
DO 10 K=1,4
10 M=M+A(K,K+1)
WRITE(*,*)M
END
上述程序运行后,输出的M值为()。
A. 8
B. 9
C. 10
D. 11
[单项选择]
阅读下列FORTRAN77程序:
INTEGER A(4,5)
DATA A/5*1,5*2,5*3,5*4/
M = 0
DO 10 K = 1,4
10 M = M + A(K ,K+1)
WRITE (* , *) M
END
上述程序运行后,输出的M值为( ).
A. 8
B. 9
C. 10
D. 11
[单项选择]
阅读下列FORTRAN77程序:
INTEGER A(3,3)
DATA A.1,2,3,4,5,6,7,8,9/
S=0.0
DO 10 I=1.3
J=MOD(I,3)+1
S=S+A(I,J)
10 CONTINUE
WRITE(*,*)S
END
上述程序运行后,输出的S值为( )。
A. 15.0
B. 12.0
C. 18.0
D. 24.0
[单项选择]
阅读下列FORTRAN77程序:
INTEGER A(4,4)
DATA A/1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16/
WRITE(*,100)F(A,3)
100 FORMAT(1X,F4.1)
END
FUNCTION F(B,N)
INTEGER B(N,N)
F=0.0
DO 10 K=1,N
10 F=F+B(K,K)
END
上述程序运行后,输出结果为( )。
A. 19.0
B. 9.0
C. 8.0
D. 18.0
[单项选择]阅读下列FORTRAN程序: INTEGER M(3,3) DATA M/1,2,3,4,5,6,7,8,9/ DO 10 1=1,3 WRITE(*,100) (M(I,J),J=1,I) 10 CONTINUE 10 FORMAT (1X,312) END 上述程序执行后,输出结果是()。
A. 1 4 7 2 5 8 3 6 9
B. 1 2 3 4 5 6 7 8 9
C. 1 2 5 3 6 9
D. 1 4 5 7 8 9
[单项选择]阅读下列FORTRAN程序:
DO I=1,5
SUM=SUM+I
ENDDO
WRITE(*,*) SUM
END
上述程序运行后,输出结果是( )。
A. 15
B. 15.0
C. 不确定
D. 0
[单项选择]下列程序段的执行结果为 I=4 x=5 Do I=I + 1 X=K^2 Loop Until I>=7 Print"I=";I Print"x=";xA)I=4
x=258694
B)I=7 x=256987
C)I=6 x=365840
D)I=7 x=390625