By the end of this month, we surely_____ a satisfactory solution to the problem.
A.have found
B.will be finding
C.wi1l have found
D.are finding
A.have found
B.will be finding
C.wi1l have found
D.are finding
A.234
B.1234
C.23
D.123
A.F1 n+m
B.F1 m
C.F1 5
D.F1 m+5
(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
(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
阅读下列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
A.How long for?
B.I bet I like it.
C.I don't think I agree with you.
D.I'm sorry, but I've got nothing to let.
阅读下列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
(2008年) 以下程序求两个整数M,N的最大公约数: SUBROUTINE ZDGUS(M,N) K=________ DO 10 J=2,K IF (MOD(N,J).EQ.0.AND.MOD(M,J).EQ.0)L=J WRITE(*,100)K4 10 CONTINUE WRITE(*,‘(2x,15)’)L RETURN END 为了使程序完整,在______处应填入的是()。
A.M
B.N
C.MIN(M,N)
D.M/N
(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
M: That's all right. We won't press you for immediate payment. Send us your check later on when you have money.
Q: What does the woman ask for?
(12)
A.Immediate payment.
B.Deferred payment.
C.Invoice.
D.US $1,000.