单项选择题
有程序：ADD（X，Y）=X**2+YOPEN（8，FILE=‘F’，STATUS=‘NEW’，ACCESS=‘DIRECT’，*FORM=‘UNFORMATTED’，REAL=16DO10I=1，4D=ADD（REAL（I），2、0）WRITE（8，REC=I）D10CONTINUECLOSE（8）OPEN（2，FILE=‘F’，STATUS=‘OLD’，ACCESS=‘DIRECT’，*FORM=‘UNFORMATTFED’，REAL=6DO20I=2，4，2READ（2，REC=I）CWRITE（*，30）C20CONTINUE20FORMAT（1x，F4．1）CLOSE（2）END执行此程序的结果是：（）
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’，程序运行结果是：（）
A.FORMA
NEWDISK
B.RMATNEWDISK
C.FORMATANEW
D.MATANEWDISK -
单项选择题
有程序：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此程序执行后的结果为：（）
A.15.0
B.12.0
C.9.0
D.10.0 -
单项选择题
有程序：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此程序执行后的结果为：（）
A.1；4；7；2；5；8；3；6；9
B.1；2；3；4；5；6；7；8；9
C.9；6；3；8；5；2；7；4；1
D.7；8；9；4；5；6；1；2；3
