单项选择题

阅读下列FORTRAN程序： DIMENSIONA(3) DATAA/3.0,2.0,1.0/ X=F(A) WRITE(*,100)X 100FORMAT(1X,F3.1) END FUNCTIONF(B) DIMENSIONA(3),B(3) DO10I=1,3 10A(I)=B(I)-I F=A(1)+A(2)+A(3) X=1.0-F END 执行上述程序后，输出的X值为______。

A.1.0
B.0.0
C.6.0
D.-5.0
<上一题 目录 下一题>
热门 试题

单项选择题
设有FORTRAN77函数子程序如下： FUNCTIONIP(N,A) IP=0 IF(A.LT.1.0)IP=N END 下列函数调用中正确的是______。
A.M=IP(1.0,IP(1,1.0))
B.M=IP(IP(1,1.0,1.0))
C.M=IP(A,A)
D.M=IP(1.0,1.0)
单项选择题
阅读下列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
相关试题