下列程序执行后的输出结果为()。CHARACTER*6 SS='ABCDEFCALL SS(S)ENDSUBROUTINE SS(S1)CHARACTER
下列程序执行后的输出结果为()。 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 S S='ABCDEF CALL SS(S) END SUBROUTINE SS(S1) CHARACTER S1*3 WRITE(*,*) S1 END
A.ABC
B.BC
C.CDE
D.DEF
当输入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
当输入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
下列程序执行后的输出结果为()。 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
当输入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
下列程序执行后的输出结果为()。 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
A.5 8 12 15 30
B.12 15 5 30 18
C.8 12 15 30 18
D.12 15 5 18 30
写出下列程序段的输出结果。(假设此栈中元素的类型是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)
}
A.0
B.100
C.10
D.11
阅读下列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