单项选择题
A.3.0;11.0
B.6.0;11.0
C.6.0;18.0
D.11.0;18.0
单项选择题 有程序:CHARACTER*4STR1,STR2,STR3OPEN(UNIT=15,FILE=‘INPUT.DAT’,STATUS=‘OLD’)READ(15,10)STR1,STR2,STR310FORMAT(A6,1x,A5,1x,A4)WRITE(*,’(1x,3A)’)STR1,STR2,STR3CLOSE(15)END用此程序从文件INPUT.DAT中读出字符串’FORMATANEWDISK’,程序运行结果是:()
单项选择题 有程序:DIMENSIONA(4,3)DATAA/3*-1.0,3*-2.0,3*-3.0,3*-4.0/S=0.0DO10K=1,4D=ABS(A(K,1))DO20J=2,3IF(ABS(A(K,J)).GT.D)D=ABS(A(K,J))20CONTINUES=S+D10CONTINUEWRITE(*,*)SEND此程序执行后的结果为:()
单项选择题 有程序:INTEGERM(3,3)DATAM/1,2,3,4,5,6,7,8,9/DO10I=1.3DO10J=1,3K=M(I,J)M(I,J)=M(J,I)M(J,I)=K10CONTINUEWRITE(*,100)((M(I,J),J=1,3),I=1,3)100FORMAT(1x,3I2)END此程序执行后的结果为:()