更多"阅读下列FORTRAN77程序： INTEGERA(3，2) READ"的相关试题:
[单项选择]阅读下列FORTRAN 77程序：
INTEGERA(3，3)
DO 10K＝1，3
DO 10L＝1，3
10A(K，L)＝K*10+L
WRITE(*，’(1X，313)’)A
END
程序运行结果是（）。
A. 11 21 31
B. 11 12 13
C. 31 32 33
D. 33 32 31
[填空题]阅读程序并填空，使程序完整并能正常运行：
DSEG SEGMENT
BUF DB 5 DUP（ ）
DSEG ENDS
SSEG SEGMENT PARA STACK
DB 256 DUP(0)
SSEG ENDS
CSEG SEGMENT
ASSUME CS: CSEG, DS: DSEC, SS: SSEG
START: PROC 【6】
PUSH DS
MOV AX, 0
PUSH AX
MOV AX, DSEG
MOV DS, AX
LEA DI, BUF
MOV CX, 0
MOV BX, 10
MOV AX, 36H
LP1: MOV DX, 0
DIV BX
PUSH DX
INC CX
CMP AX, 0
JNE LP1
MOV BX, 5
SUB BX, CX
LP2: POP DX
ADD 30H
MOV [DI], DL
INC DI
LOOP LP2
CMP BX, 0
JE EXIT
MOV CX, BX
LP3: MOV BYTE PTR [DI], 20H
INC DI
LOOP LP3
EXIT: RET
START ENDP
CSEG ENDS
END START
[简答题]以下是某C程序，此程序根据输入的学生成绩得出成绩的等级，请仔细阅读程序并完成要求。
int scorelevel(int score)
int level;
if(score＞100||score＜0) level=-1;
else if(score＞=90) level=1;
else if(score＞=90) level=2;
else if(score＞=90) level=3;
else if(score＞=90) level=4;
else level=5;
return level;
画出上面程序的控制流图。
[简答题]
以下是某C语言程序，此程序根据输入的学生成绩得出成绩的等级，请仔细阅读程序并完成要求。
int scorelevel(int score)
int level：
if(score＞100||score＜0)level=-1；
else if(score＞=90)level=1；
else if(score＞=80)level=2；
else if(score＞70)level=3；
else if(score＞=60)level=4；
else level=5：
return level：
画出上面程序的控制流图。
[单项选择]阅读下列程序
PublicclassTestimplementsRunnable
Phvate int x=0；
Private int y=O；
boolean flag=true；
Publicstaticvoidmain(string[]rgs)
Test r=newTest（ ）；
Theadt1=newThead(r)；
Theadt2=newThead(r)；
t1.start（ ）；
t2.start（ ）；
Publicvoidrun（ ）
While(nag)
X++；
y++；
system,out.println(“(”+x_“，”+y+”)”)；
if(x＞=10)
flag=false；
下列对程序运行结果描述的选项中，正确的是（）。
A. 每行的(x,y)中，可能有x≠y；每一对(x,y)值都出现两次。
B. 每行的(x,y)中，可能有x≠y；每一对(x,y)值仅出现一次。
C. 每行的(x,y)中，可能有x=y 每一对(x,y)值都出现两次。
D. 每行的(x,y)中，可能有x=y；每一对(x,y)值都出现一次。
[简答题]以下是某C语言程序，此程序根据输入的学生成绩得出成绩的等级，请仔细阅读程序并完成要求。
int scorelevel(int score)
int level：
if(score＞100||score＜0)level=-1；
else if(score＞=90)level=1；
else if(score＞=80)level=2；
else if(score＞70)level=3；
else if(score＞=60)level=4；
else level=5：
return level：
给出满足基本路径覆盖的路径集合。
[单项选择]阅读下列FORTRAN程序：
READ(*，*)SCARE
IF(SCARE.GE.85.0)WRITE(*，*)‘Very Good!’
IF(SCARE.GE.75.0)WRITE(*，*)‘Good!’
IF(SCARE.GE.60.0)WRITE(*，*)‘Pass!’
IF(SCARE.LT.60.0)WRITE(*，*)‘Pass!’
在执行上述程序时，如果从键盘输入：
75.0↙
则运行后输出结果为（）。
A. GOOd!
B. Pass!
C. Good Pass!
D. Very GOOd Pass!
[填空题]阅读程序；
Option Base 1
Private Sub Form_ KeyPress (KeyAscii As Integer)
art = Array(268, 542, 693, 365, 489, 147, 852)
a1 = arr(1)
a2 = 1
If KeyAscii = 13 Then
For a = 2 To 6
If arr(i) ＞ a1 Then
a1 = arr(i)
a2 = i
End If
Next i
End If
Print a1; a2
End Sub
程序运行后，按回车键；输出结果是______。
[单项选择]阅读程序： Option Base 1 Private Sub Form_Click( ) Dim arr Sum Sum=0 arr=Array(1，3，5，7，9，11，13，15，17，19) For i=1 TO 10 If arr(i)/3=arr(i)/3 Then Sum=Sum+art(i) End If Next i Print Sum End Sub 程序运行后，单击窗体，输出结果为
A. 13
B. 14
C. 27
D. 15
