black

fortran考试

登录

单项选择题

阅读下列程序 
INTEGER A(100),G 
READ(*,*)N,(A(I),I=1,N) 
DO 10 I=1,N-1 
G=I 
DO 20 J=I+1,N 
IF(A(J).LT.A(G))THEN 
G=J 
ENDIF 
20 CONTINUE 
K=A(I) 
A(I)=A(G) 
A(G)=K 
10 CONTINUE 
WRITE(*,’(1X,10I2)’)(A(I),I=1,N) 
END 
程序运行时输入的初始值是3,6,9,8,则运行结果是()

A. 6  9  8
B. 8  9  6
C. 6  8  9
D. 9  8  6

相关考题

单项选择题 阅读下列程序  DIMENSION M(3,3)  DATA M/1,2,3,4,5,6,7,8,9/  WRITE(*,100)(M(3,J),J=1,3)  100 FORMAT(1X,3I2)  END  程序运行结果是()

单项选择题 阅读下列程序  LOGICAL L1,L2,L3,L4,L5  DATA L1,L2,L3/3*.TRUE./  L4=.NOT.L1.AND..NOT.L2.AND.L3  L5=.NOT.L1.OR..NOT.L2.OR.L3  WRITE(*,*)L4,L5  END  程序运行结果是()

单项选择题 阅读下列程序  FUN(c,d)=a*c+b/d  DATA a,b/1.0,1.0/  WRITE(*,’(F4.1)’) FUN(a,b)-FUN(b,a)  END  程序运行结果是()

All Rights Reserved 版权所有©考试题库网(kstiku.com)

备案号:湘ICP备14005140号-3

经营许可证号:湘B2-20140064