![](https://static.youtibao.com/asksite/comm/h5/images/m_q_title.png)
下面程序的输出结果是() m=5 while(m==0): m-=1 print(m)。
A.0
B.4
C.5
D.-1
![](https://static.youtibao.com/asksite/comm/h5/images/solist_ts.png)
A.0
B.4
C.5
D.-1
A.12345
B.1234
C.54321
D.5432
阅读下列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
A.234
B.1234
C.23
D.123
下面程序段的运行结果是()。
LOGICAL L1,L2,L3,L4
DATA L1,L2,L3/3*.TRUE./
L4=NOT.L1.AND..NOT.L2.AND.L3
WRITE(*,*)L4
END
(A) T
(B) F
(C) 不确定
(D) 无输出
(2008年)阅读下列FORTRAN程序: DIMENSION M(4,3) DATE M/-10,12,24,11,20,-15,61,78,93,30,44,-45/ N=M(1,1) DO 10 I=1,4 DO 10 J=1,3 IF (M(I,J).LT.N)THEN N=M(I,J) K1=I K2=J ENFIF 10 CONTINUE WRITE(*,‘(2x,314)’)N,K1,K2 END 程序运行后的输出结果是()。
A.93,3,1
B.-10,1,1
C.-45,4,3
D.78,3,2
A.31
B.10
C.20
D.13
(2008年) 已知顺序数据文件FILE3.DAT有如下数据: 50,54,64,55 65,70,85,90 46,73,60,72 阅读FORTRAN程序: DIMENSION M(12) OPEN(10,FILE=‘FILE3.DAT’) READ(10,*)(M(I),I=1,12) DO 10 J=1,12 IF(M(J).GE.60) N=N+1 10 CONTONUE WRITE(*,20)N 20 FORMAT(2X,‘N=’,N) END 程序运行后的输出结果是()。
A.N=7
B.N=8
C.N=4
D.N=9
(2008年) 阅读下列FORTRAN程序: DIMENSION M(6) READ (*,*)M DO 10 J=1,6 D0 10 K=J,6 IF(M(K).LTM(J)THEN N=M(K) M(K)=M(J) END IF 10 CONTINUE WRITE(*,100)(M(I),I=1,6) 100 FORMAT(2X,614) END 键盘输入10、7、9、2、1、3;程序运行后的输出结果是()。
A.1 2 3 7 9 10
B.10 9 7 3 2 1
C.7 9 2 1 3 10
D.3 1 2 9 7 10