阅读下列程序 read(*,*)k write(*,100)k 100 format(15) End 程序运行时输入初始值12345,那么显示结果是
A.12345
B. 2345
C. ****
D. *****>
- · 有3位网友选择 A,占比37.5%
- · 有3位网友选择 C,占比37.5%
- · 有2位网友选择 B,占比25%
A.12345
B. 2345
C. ****
D. *****>
A.720
B. 120
C. 96
D. 24
A.不正确
B.不正确
C.正确。
D.不正确
阅读下列FORTRAN程序: DIMENSION A(6) READ(*,*)(A(I),I=1,6) DO 10 K=1,3 S=A(K) A(K)=A(7-K) A(7-K)=S 10 CONTINUE WRITE(*,20)(A(I),I=1,6) 20 FORMAT(1X,2I) END 上述程序运行时,若由键盘输入1,2,3, 4,5,6,则输出的结果为()。
A.1 2 3 4 5 6
B.1 4 2 5 3 6
C.6 5 4 3 2 1
D.6 3 5 2 4 1
(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
阅读下列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
阅读以下FORTRAN程序
READ(*,*)M,N
K=MOD(M,N)
M=N
N=K
K=MOD(M,N)
GOTO 10
END IF
WRITE(*,*)N
END
若运行以上程序时,由键盘输入25,11,则程序输出为()。
A.3
B.2
C.1
D.0
阅读以下FORTRAN程序:
READ(*,*)M,N
K=MOD(M,N)
10IF(K.GT.0)THEN
M=N
N=K
K=MOD(M,N)
COTO10
ENDIF
WRITE(*,*)N
END
若运行以上程序时,由键盘输入:25,11则程序输出为()。
(A)3
(B)2
(C)1
(D)0
阅读FORTRAN程序:
READ(*,*)N
D0 10 K=1,N
S=S+K**2
10 CONTINUE
WRITE(*,l00)S
100 FORMAT(2X,F8.O)
END
键盘输入5则程序运行后的输出结果是()。
A.35
B.45
C.65
D.55
阅读下列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
为了保护您的账号安全,请在“简答题”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!