![](https://lstatic.shangxueba.com/sxbzda/h5/images/m_q_title.png)
CHARACTERA,CREAD*,ASELECTCASE(A)CASE('a':'z')C=CHAR(ICHAR(A)-32)CASE('A':'Z')C=CHAR(ICHAR(A)+32)CASEDEFAULTC=AENDSELECTPRINT*,A,CEND如果从键盘输入E,则程序的运行结果是:()。
A.E
B.e
C.A
D.a
![](https://lstatic.shangxueba.com/sxbzda/h5/images/tips_org.png)
A.E
B.e
C.A
D.a
第2题
以下程序段
CHARACTERA*4,B*5,C*4
DATAA,B,C/'BIG','MIDLE','SMALL'/
IF(A.GT.B)THEN
IF(A.GT.C)THEN
PRINT*,A
ELSE
PRINT*,B
ENDIF
ELSE
IF(B.GT.C)HTEN
PRINT*,B
ELSE
PRINT*,C
ENDIF
ENDIF
END
程序运行结果为()。
(A)BIG
(B)MIDLE
(C)SMALL
(D)BIG
第4题
Asee
Bwatch
Cread
Dglance at
第5题
有程序:CHARACTER A*7 A=‘ABCDEFG’ CALL S(A) END SUBROUTINE S(x) CHARATER x*4 WRITE(A,*)X END 此程序运行后的结果为: A.ABCD B.EFG C.DEFG D.ABCD
第6题
A.4.05.06.0
B.5.06.07.0
C.7.0.09.0
D.1.02.O3.O
第7题
有程序
open(1 , file='datl' , status='old')
read(1 , *)a , b , c
read(1 , *)x , Y
backspace1
do10I=1.9
read(1 , * , end=20)x
y=y+x
if(y.ge.19)goto20
10continue
20print* , x
end
数据文件 dat1 经编辑其内容为
1 , 2 , 3
4 , 5 , 6
7 , 8 , 9
程序执行后,输出结果为 () 。
(A)7.0
(B)5.0
(C)6.0
(D)8.0
第8题
有程序 open(1,file='datl',status='old') read(1,*)a,b,c read(1,*)x,Y backspace 1 do 10 I=1.9 read(1,*,end=20)x y=y+x if(y.ge.19)goto 20 10 continue 20 print*,x end 数据文件dat1经编辑其内容为 1,2,3 4,5,6 7,8,9 程序执行后,输出结果为()。
A.7.0
B.5.0
C.6.0
D.8.0
为了保护您的账号安全,请在“上学吧”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!