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