单项选择题

阅读FORTRAN程序：
READ(*.*) I,J,K DO 10 N=1,2 I=I+J+K J=I+K+J K=I+J+K 10 CONTINUE WRITE(*.20) I,J,K 20 FORMAT(2X,3I5) END
链盘输入1，0，0则程序运行后的输出结果是（）。

A．4 7 13
B．2 3 4
C．1 1 2
D．6 9 15

<上一题 目录 下一题>
热门 试题

单项选择题
已知程序数据文件FILE1.DAT的内容如下。 1，2，3 4，5，6 7，8，9 程序： OPEN(9,FILE=FILE1.DAT) READ(9，*) A,B,C READ(9,*))X,Y BACKSPACE(9) READ(9,*) D,E,F WRITE(*.100)D,E,F 100 FORMAT(2X,3F4,1) END 程序运行后的输出结果是（）。

A．4.0 5.0 6.0
B．5.0 6.0 7.0
C．7.0 8.0 9.0
D．1.0 2.0 3.0
单项选择题
阅读以下FORTRAN程序： INTEGER X(7) DATA X 10,20,45,70,80,15,14 M=X(1) DO 10 I=2.7 IF(X(I),GT,M) THEN M=X(I) K=I 10 CONTIMUE N=X(K) X(K)=X(1) X(1)=N WRITE(*.100)(X(1),1=1,7) 100 FORMAT(2X,713) 程序运行的结果是（）。

A．10 20 45 70 80 15 14
B．14 20 45 70 80 15 10
C．80 20 45 70 10 15 14
D．20 45 70 80 15 14 10
相关试题