单选题
A4567.89
B1234.56
C******
D1234.5
正确答案
答案解析
注意在读入数据时，按场宽截取数据，空3个格从4开始截取到9共6列，而后按d指定的位数确定小数点位置，小数点保留2位。则A为4567．89，按200语句格式输出，场宽8位，小数点保留2位。
相似试题
有程序：READ（*，50）SWRITE（*，100）S50FORMAT（1X，F7．3）100FORMAT（1X，F8．3）END执行此程序，由键盘输入123456789，则输出S的值为：（）
单选题查看答案
有程序：DIMENSION（4，4）READ（*，*）AWRITE（*，10）A10FORMAT（1x，6E9．2）END此程序执行后的输出结果的记录数为：（）
单选题查看答案
有程序：DIMENSIONx（3，3）READ（*，*）xCALLSSl（x（1，2））ENDSUBROUTINESSl（x）DIMENSIONx（3）WRITE（*，*）x（2）END当输入1、2、3、4、5、6、7、8、9时，此程序执行后的输出结果为：（）
单选题查看答案
有程序：READ（*，*）xY=0．0IF=（xGT．0．0）THENY=1．0ELSEIF（x．GE．150）THENY=2．0ELSEY=3．0ENDIFWRITE（*，*）YEND当输入150时，此程序执行后的输出结果为：（）
单选题查看答案
下列程序执行时，需输入数据的记录个数必须为：DIMENSIONA（4，4）READ（*，*）A………………END（）
单选题查看答案
有程序：READ（*，10）IA，IIF（IA．GE．125）THENI=I+10，ELSEI=I-10ENDIFWRITE（*，*）I10FORMAT（I2，I1）END执行上面的程序时，从键盘输入365，2，则运行后结果I的值是：（）
单选题查看答案
对任意输入的x，READ（*，*）xK=SIN（x）WRITE（*，*）KEND此程序执行后K的值为：（）
单选题查看答案
有程序：LOGICALLL=．TRUE．READ（*，*）xIF（x．LT．0）THENL=．FALSE．ELSEWRITE（*，*）xENDIFIF（．NOT．L）WRITE（*，*）-xEND执行两次以上程序，若运行中的输入值分别为2．5和-1．0，则两次运行结果分别是：（）
单选题查看答案
有程序：DIMENSIONA（2，2）READ（*，*）ASUM=0DO10I=1，2D010J=1，210A（I，J）=A（I，J）+I+JWRITE（*，*）A（1，2）END当输入1、2、3、4时，此程序执行后的输出结果为：（）
单选题查看答案