閱讀下列程序
N=0
DO 10 K=1,3
N =N+1
M=K*N
10 CONTINUE
WRITE(*,’(1X,2I3)’)M,K
END
程序運行結果是()
A. 9 4
B. 9 3
C. 12 4
D. 12 3(#^)
您可能感興趣的試卷
你可能感興趣的試題
閱讀下列程序
CHARACTER A*4,B*5,C*4
DATA A,B,C/’BIG’,’MIDDLE’,’SMALL’/
WRITE(*,20)A,B,C
20 FORMAT(1X,A2,A3,A4)
END
程序運行結果是()
A. BIGMIDDLE
B. *********
C. BIGMIDSMA
D. BIMIDSMAL
閱讀下列程序
A=3.5
CALL SUBA(A,A,A)
WRITE(*,’(F4.1)’)A
END
SUBROUTINE SUBA(X,Y,Z)
Y=Y-2.0
Z=Z+X
END
程序運行的結果是()
A. 7.0
B. 5.0
C. 3.5
D. 1.5
閱讀下列程序
INTEGER F
F(X,Y)=X+Y
A=-2.5
B=2.1
B=B+F(A,B)
WRITE(*,’(F3.1)’)B
END
程序運行的結果是()
A. 1
B. 7
C. 2.1
D. 1.7
閱讀下列程序
READ(*,*)K
WRITE(*,100)K
100 FORMAT(I5)
END
程序運行時輸入初始值12345,那么顯示結果是()
A. 2345
B. 12345
C. ****
D. *****
閱讀下列程序
LOGICAL L
READ(*,*)A,B
L=A.GT.B
IF(L)THEN
X=B+2*A
ELSE
X=B
END
IF
WRITE(*,*)X
END
使用鍵盤為上述程序輸入兩個初值4和3,其輸出的X值是()
A. 4.0
B. 3.0
C. 11.0
D. 10.0