单选题有程序:LOGICALLL=.TRUE.READ(*,*)xIF(x.LT.0)THENL=.FALSE.ELSEWRITE(*,*)xENDIFIF(.NOT.L)WRITE(*,*)-xEND执行两次以上程序,若运行中的输入值分别为2.5和-1.0,则两次运行结果分别是:()A2.5和1.0B-2.5和1.0C2.5和-1.0D-2.5和-1.0
单选题
有程序:LOGICALLL=.TRUE.READ(*,*)xIF(x.LT.0)THENL=.FALSE.ELSEWRITE(*,*)xENDIFIF(.NOT.L)WRITE(*,*)-xEND执行两次以上程序,若运行中的输入值分别为2.5和-1.0,则两次运行结果分别是:()
A
2.5和1.0
B
-2.5和1.0
C
2.5和-1.0
D
-2.5和-1.0
参考解析
解析:
当输2.5时,执行ELSE后面的WRITE语句,而第二个IF语句不执行,x的值为2.5;当输入-1.0时,执行第一个IF语句后面的语句L=.FALSE.,而后执行第二个IF语句中的WRITE语句输入-x的值,应为1.0。
相关考题:
SET TALK OFFSTORE O TO X,YD0 WHILE.T.X=X+1Y=Y+XIF X=5EXITENDIFENDDO?X,YRETURN当程序执行到?x,Y命令时,X,Y的值分别是【 】、【 】。
下列程序段的执行结果为( )。 a=95 if a>60ThenI=1 if a>70Thenl=2 if a>80Thenl=3 if a>90ThenI=4 Print"I=";IA.I=1B.I=2C.I=3D.I=4
以下是一个竞赛评分程序。8位评委,去掉一个最高分和一个最低分,计算下均分(设满分为10分),请填空补充完整。Private Sub Form_Click()Dim Max as Integer,Min as IntegerDial i as Integer,x as Integer,s as IntegerDim p as SingleMax=0Min=10For i=1 To 8x=Val (InputBox("请输入分数:"))If 【 】 Then Max=xIf 【 】 Then Min=xs=s+xNext is= 【 】p=s/6MsgBox"最后得分:"PEnd Sub
【程序】SET TALK OFFS=0I=1DO WHILE I<4ACCEPT “请输入字符串:”TO XIF“A” $ XS=S+1ENDIFI=I+1 ENDDO? SRETURN运行时输入:“abcd”、“aBCD”,输出S的值为 ______。A.3B.2C.1D.0
运行下列程序:Private Sub Form_Click( )Dim y As Integer, x As IntegerDo Until x > 20x 运行下列程序:Private Sub Form_Click( )Dim y As Integer, x As IntegerDo Until x 20x = x + 10y = y + xIf x 20 Then Exit DoLoopPrint x, yEnd Sub单击窗体后,则在窗体上显示的结果是( )。A.10 20B.30 60C.10 30D.20 60
阅读下列FORTRAN77程序:READ(* , *)XIF(X.LE.0) THENY=0.0ELSE IF ((X.LT.5.0).AND.(X.NE.2.0)) THENY= 1/XELSE IF (X.LE.10.0) THENY=1/(X+2)ELSEY = 10.0END IFWRITE(* , *)YEND上述程序运行时,由键盘输入2,则输出的结果为()。A.0.5B.0.25C.10.0D.0.0
有程序:LOGICALLL=.TRUE.READ(*,*)xIF(x.LT.0)THENL=.FALSE.ELSEWRITE(*,*)xENDIFIF(.NOT.L)WRITE(*,*)-xEND执行两次以上程序,若运行中的输入值分别为2.5和-1.0,则两次运行结果分别是:()A、2.5和1.0B、-2.5和1.0C、2.5和-1.0D、-2.5和-1.0
单选题有程序:LOGICALLL=.TRUE.READ(*,*)xIF(x.LT.0)THENL=.FALSE.ELSEWRITE(*,*)xENDIFIF(.NOT.L)WRITE(*,*)-xEND执行两次以上程序,若运行中的输入值分别为2.5和-1.0,则两次运行结果分别是:()A2.5和1.0B-2.5和1.0C2.5和-1.0D-2.5和-1.0
填空题离婚的程序有()、诉讼程序。