请输入或粘贴题目内容
搜题
拍照、语音搜题，请扫码下载APP
题目内容
（请给出正确答案）
下列程序执行后的输出结果为()。 CHARACTER *6 S S='ABCDEF CALL SS(S) END SUBROUTINE SS(S1) CHARACTER S1*3 WRITE(*，*) S1 END
A．ABC
B．BC
C．CDE
D．DEF
答案
更多“下列程序执行后的输出结果为（)。CHARACTER*6 SS='ABCDEFCALL SS（S)ENDSUBROUTINE SS（S1)CHARACTER”相关的问题
第1题
当输入150时，下列程序执行后的输出结果为()。 READ(*，*) X Y=0.0 IF(X.GT.O.0) THEN Y=1.0 ELSE IF(X.GE.150) THEN Y=2.0 ELSE Y=3.0 END IF WRITE(*，*) Y END
A．0.0
B．1.0
C．2.0
D．3.0
第2题
当输入1，2，3，4，5，6下列程序执行后的输出结果为 DIMENSION A(2，3) READ(*，*) A CALL SS1(A) END SUBROUTINE SS1(B) DIMENSION B(3，2) WRITE(*，*) B(3，1) END
A．2
B．3
C．4
D．5
第3题
下列程序执行后的输出结果为()。 F1(X)=2.0/(1.0+X) F2(Y)=F1(Y)*Y+1.0 A=F1(1.0)+F2(1.0) WRITE(*，10) A 10 FORMAT(IX，E8.2) END
A．3.00
B．3.0
C．3.00E+00
D．0.30E+01
第4题
当输入150H，f1，下列程序执行后的输出结果为()。 READ(*，*) X Y=0.0 IF(X.GT.O.C) THEN Y=1.0 ELSE IF(X.GE.150) THEN Y=2.0 ELSE Y=3.0 END IF WRITE(*，*)Y END
A．0.0
B．1.0
C．2.0
D．3.0
第5题
下列程序执行后的输出结果为()。 K=0 DO 10 1=1，6，2 DO 10 J=I，6，3 IF(K.LT.I*J) K=I*J 10 CONTINUE WRITE(*，*) K END
A．18
B．30
C．25
D．36
第6题
A.5 8 12 15 30
B.12 15 5 30 18
C.8 12 15 30 18
D.12 15 5 18 30
第7题
写出下列程序段的输出结果。(假设此栈中元素的类型是char)
voide main()
{stack s;
char x,y;
InitStack(s)
x=‘1’,y=‘0’
push(s,x);
push(s,x);
push(s,y);
push(s,x)；
push(s,‘e’);
push(s,x);
pop(s,x);
push(s,‘h’);
while(!stackEmpty(s))
{pop(s,y);
printf(y);
}
prinft(x)
}
第8题
A.0
B.100
C.10
D.11
第9题
第10题
阅读下列FORTRAN程序： DO 20 K=2，5，2 S=1.0 DO 10 J=K，5 10 S=S+J 20 CONTINUE* WRITE(*，*) S END 执行上述程序后，输出的S值为()。
A．9.0
B．1.0
C．24.0
D．10.0
