有程序:READ(*,50)SWRITE(*,100)S50FORMAT(1X,F7.3)100FORMAT(1X,F8.3)END执行此程序,由键盘输入123456789,则输出S的值为:()
相似题目
-
有程序: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时,此程序执行后的输出结果为:()
-
下列程序执行时,需输入数据的记录个数必须为()DIMENSIONA(4,4)READ(*,*)AEND
-
在BASIC源程序中,要求READ与DATAA语句个数相同。()
-
有程序:READ(*,10)IA,IIF(IA.GE.125)THENI=I+10,ELSEI=I-10ENDIFWRITE(*,*)I10FORMAT(I2,I1)END执行上面的程序时,从键盘输入365,2,则运行后结果I的值是:()
-
有程序:LOGICALLL=.TRUE.READ(*,*)xIF(x.LT.0)THENL=.FALSE.ELSEWRITE(*,*)xENDIFIF(.NOT.L)WRITE(*,*)-xEND执行两次以上程序,若运行中的输入值分别为2.5和-1.0,则两次运行结果分别是:()
-
有程序:READ(*,*)xY=0.0IF=(xGT.0.0)THENY=1.0ELSEIF(x.GE.150)THENY=2.0ELSEY=3.0ENDIFWRITE(*,*)YEND当输入150时,此程序执行后的输出结果为:()
-
有程序:READ(*,100)A100FORMAT(3x,F6.2)WRITE(*,200)A200FORMAT(1x,F8.2)END当执行此程序时,从键盘输入1234567890↙,则程序的运行结果是:()
-
程序G92X200.0Y100.0Z50.0.其位移量为X200.0Y100.0Z50.0。()
-
程序段N60G01X100Z50中N60是()。
-
有程序: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时,此程序执行后的输出结果为:()
-
G92是设定工件坐标系原点的指令,如果有这样的程序段:G92X40.Y100.Z50.;在执行的时候机床()。
-
有程序:DIMENSION(4,4)READ(*,*)AWRITE(*,10)A10FORMAT(1x,6E9.2)END此程序执行后的输出结果的记录数为:()
-
对于一个初始温度为50℃,终止温度为100℃的程序升温色谱仪,其合适的TCD使用温度为()℃。
-
当输入10,20时,下列程序执行后的输出结果为()。 READ(*,*)IX,IY A=100.0 IF(IX/IY.GT.0)THEN A=1.0 ELSEIF(IX/IY.LT.0)THEN A=-1.0 ELSE A=0.0 ENDIF WRITE(*,*)A END
-
在lingo中编写程序,完成以下任务:1、使用for循环语句,产生一个等差序列,初始值为100,公差为2,一共50项;将程序代码截图,上传至答案处。
-
程序段 N60 G01 X100 Z50中的N60是()
-
G50 X200.0 Z100.0程序段表示( )。
-
在考生文件夹中有工程文件execise99.vbp和窗体文件execise99.frm。在名为Fom1的窗体上有一个名为Text1的文本框,有两个命令按钮(名称分别是Cmd1和Cmd2,标题分别是Read和Save)。要求程序运行后,单击Read按钮,将文本文件in99.txt中的所有数字读到数组arr中,并在文本框内显示出来。随后Read按钮变为无效;然后单击Save按钮,
-
程序段 N60 G01 X100 Z50 中 N60 是()
-
运行下列代码,输入78之后,程序运行结果是)if number > 100:print('大于100')elif number > 50:print('大于50,小于等于100')elif number > 0:print('大于0,小于等于50')()
-
阅读FORTRAN程序:READ(*,*)ND0 10 K=1,NS=S+K**210 CONTINUEWRLTE(*,100)S100 FORMAT(2X,F8.0)END键盘输入5则程序运行后的输出结果是()
-
程序段N0005G50 X100.0 Z100.0;表示设定工件坐标系()
-
阅读下列FORTRAN程序:DIMENSION M(6)READ(*,*)MDO 10 J=1,6DO 10 K=J,6JF(M(K).LT.M(J))THENN=M(K)M(K)=M(J)M(J)=NEND IF10 CONTINUEWRITE(*,100)(M(I),I=1,6)A.1 2 3 7 9 10
-
机床开机回零,输入并运行程序段G54G90X100Y50F100;机床状态为:()