单项选择题

阅读下列程序 
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

相关试题
  • 下列各逻辑IF语句中正确的是()
  • 对于下列给定的FORTRAN说明和赋初值语句:...
  • 给定子例行程序如下 SUBROUTINE SUB(K,...
  • 适用于字符型 I O的 FORTRAN77格式编...
  • 语句K=2+3.0**2 2执行后,整型...