阅读下列程序
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
程序运行结果是()
A. T T
B. T F
C. F F
D. F T
您可能感兴趣的试卷
你可能感兴趣的试题
阅读下列程序
FUN(c,d)=a*c+b/d
DATA a,b/1.0,1.0/
WRITE(*,’(F4.1)’)
FUN(a,b)-FUN(b,a)
END
程序运行结果是()
A. 0.0
B. 4.0
C. 2.O
D. 3.O
阅读下列程序
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
阅读下列程序
CHARACTER*10 W
DO K=1,10
READ *,W
IF (W(1:2).EQ.’AB’.OR.W(1:2).EQ.’ab’)WRITE(*,*)’’,W
ENDDO
END
程序的功能是()
A. 首字符是A或B的字符串被输出显示
B. 第一、二个字符是AB或ab的字符串被输出显示
C. 首字符是a或b的字符串将被输出显示
D. 第一、二个字符是Aa或Bb的字符串将被输出显示
阅读下列程序
F=1.0
DO 20,J=3,7,2
DO 20,K=J-1,J
20 F =F*K
WRITE(*,’(13,F8.1)’)J,F
END
程序运行结果是()
A. 3 6.0
B. 5 120.0
C. 9 5040.0
D. 9362880.0
A. 同时编译一个主程序和一个子程序
B. 同时编译几个子程序
C. 同时编译一个主程序和几个子程序
D. 同时编译几个主程序
最新试题
阅读下列FORTRAN程序,写出程序运行的结果。
阅读下列FORTRAN程序,写出程序运行的结果。
阅读下列FORTRAN程序,写出程序运行的结果。
阅读下列FORTRAN程序,写出最后输出的结果。
对于下列给定的FORTRAN说明和赋初值语句: INTEGER A(2,2) DATA A/3,4,5,6/ 数组元数A(2,1)的初值为()
阅读下列FORTRAN程序,写出程序运行的结果。
阅读下列FORTRAN程序,则程序运行的结果是什么?
适用于字符型 I/O的 FORTRAN77格式编辑将是()
COMMON语句的功能是()
阅读下列FORTRAN程序,写出程序运行的结果。