阅读FORTRAN77程序:READ(*,100)X100 FORMAT(3F3.1)WRITE(*,*)XEND运行上述程序时,如果从键盘输入
阅读FORTRAN77程序:
READ(*,100)X
100 FORMAT(3F3.1)
WRITE(*,*)X
END
运行上述程序时,如果从键盘输入
1234.675<回车>则最后输出的X值为()。
(A)1234.675
(B)1234.6
(C)12.3
(D)123.0
阅读FORTRAN77程序:
READ(*,100)X
100 FORMAT(3F3.1)
WRITE(*,*)X
END
运行上述程序时,如果从键盘输入
1234.675<回车>则最后输出的X值为()。
(A)1234.675
(B)1234.6
(C)12.3
(D)123.0
阅读下列FORTRAN77程序: READ(*,*)A B=0.0 IF (A.GE.1.0) THEN B=B+2.0 END IF IF (A.GE.2.0) B=B-1.0 WRITE(*,*) B END 在执行时,从键盘输入 5.0<回车>则输出的B值为
A. 2.0
B. -1.0
C. 0.0
D. 1.0
阅读下列FORTRAN77程序:
READ(* , *)X
IF(X.LE.0) THEN
Y=0.0
ELSE IF ((X.LT.5.0).AND.(X.NE.2.0)) THEN
Y= 1/X
ELSE IF (X.LE.10.0) THEN
Y=1/(X+2)
ELSE
Y = 10.0
END IF
WRITE(* , *)Y
END
上述程序运行时,由键盘输入2,则输出的结果为()。
A.0.5
B.0.25
C.10.0
D.0.0
阅读FORTRAN77程序:
READ(*,100)A,B,C,D
WRITE(*,*)D
100FORMAT(F2.1,3(1X,F3.1))
END
运行上述程序时,如果从键盘输入
1234567890123456<回车>
则最后输出的X值为()。
(A) 1.2
(B) 12.3
(C) 2.3
(D) 23.4
阅读下列FORTRAN77程序:
INTEGERA(3,2)
READ(*,100)A
100FORMAT(2I3)
WRITE*,*)A
END
运行后要使A(1,2)的值为2,正确的键盘输入为(其中口为空格)()。
(A) □□1□□2
□□3□□4
□□5□□6
(B) □□1□□2□□3
□□4□□5□□6
(C) □□1□□3□□5
□□2□□4□□6
(D) □□1□□3
□□5□□2
□□4□□6
A.9.8
B. 98.7
C. 8.7
D. 87.6
A.720
B. 120
C. 96
D. 24
A.2.4
B. 0.9
C. 0.6
D. 0.3
阅读下列FORTRAN77程序:
F(X,Y)=X*X+Y*Y
OPEN(8,FILE='FD.DAT,STATUS='NEW',ACCESS='DIRECr',
*FORM='UNFORMATTED',RECL=16)
D010K=1,6
P=F(REAL(K),REAL(K+1))
10WRITE(8,REC=K)P
CLOSE(8)
OPEN(6,FILE='FD.DAT',STATUS='OLD',ACCESS='DIRECr',
*FORM='UNFORMATTED',RECL=16)
DO20K=2,6,2
READ(6,REC=K)T
20WRITE(*,100)T
100FORMAT(1X,F4.1)
CLOSE(6)
END
运行上述程序后,输出的结果为()。
(A) 5.0
13.0
25.0
(B) 5.0
25.0
61.0
(C) 13.0
41.0
85.0
(D) 41.0
61.0
85.0
阅读下列FORTRAN77程序:
PI=3.14159265
WRITE(*,‘(F7.4)’)PI
END
程序运行后输出结果是()。
(A) 3.142
(B) 3.1415
(C) 0.31416
(D) 3.1416
阅读下列FORTRAN77程序:
F=1.0
D020K=3,7,3
20WRTTE(*,(I3,F8.1)K,K*K
END
程序运行结果的最后一行是()。
(A) 36.0
(B) 66.0
(C) 6180.0
(D) 7180.0
为了保护您的账号安全,请在“简答题”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!