题目详情
当前位置:首页 > 建筑类考试 > 注册环保工程师
题目详情:
发布时间:2024-02-13 18:28:44

[单项选择]阅读下列FORTRAN程序
SUM=1.0
ID=1.0
K=1
10 K=(-1)*K
ID=ID*2.0
SUM=SUM+K/ID
IF(ID.LE.7)GOTO 10
WRITE(*,*)SUM
END
上述程序运行后SUM的输出值为( )。
A. 0.625
B. 1.875
C. 1.375
D. 1.0

更多"阅读下列FORTRAN程序 SUM=1.0 ID=1.0 "的相关试题:

[单项选择]阅读下列FORTRAN程序:
DO I=1,5
SUM=SUM+I
ENDDO
WRITE(*,*) SUM
END
上述程序运行后,输出结果是( )。
A. 15
B. 15.0
C. 不确定
D. 0
[单项选择]阅读下面的程序段:
K=0
For I=1 to 3
For J=1 to I
K=K+J
Next J
Next I
执行上面的语句后,K的值为______。
A. 8
B. 10
C. 14
D. 21
[填空题]阅读以下程序:
Private Sub Form click( )
Dim k,n, m As integer
n=10
m=1
k=1
Do While k<=n
m=m+2
k=k+1
Loop
Print m
End Sub
单击窗体程序的执行结果是 【10】
[填空题]阅读以下程序:
Private Sub Form_click( )
Dim k, n, m As integer
n = 20
m = 1
k = 1
Do While k <= n
m=m+2
k = k + 1
Loop
Print m
End Sub
单击窗体程序的执行结果是 【4】
[单项选择]阅读下列FORTRAN程序:
M=3
DO K=1,M
M=5
WRITE(*,*) K,M
ENDDO
END
上述程序的运行结果是( )。
A. 1 5
B. 1 5
C. 编译出错,不能运行
D. 1 3
[单项选择]

阅读以下FORTRAN程序:
READ(*,*)M,N
K=MOD(M,N)
10 IF(K.GT.0)THEN
M=N
N=K
K=MOD(M,N)
COTO 10
END IF
WRITE(*,*)N
END
若运行以上程序时,由键盘输入:25,11则程序输出为()。
(A) 3 (B) 2 (C) 1 (D) 0


A. 3
B. 2
C. 1
D. 0
[单项选择]阅读下列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
[单项选择]阅读下列FORTRAN程序:
S=1.0
DO 100 K=3,1,-1
DO 100 N=-1,-3
100 S=2*S
WRITE(*,*) S
END
运行上述程序后,输出的S值为( )。
A. 1.0
B. 8.0
C. 512.0
D. 4.0
[单项选择]阅读下列程序
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)值都出现一次。
[填空题]阅读下面的程序段: for I=1 to 3 for j=I to 1 for k=j to 3 a=a+1 next k next j next I 执行上面的三重循环后,a的值为 【14】
[单项选择]阅读下列FORTRAN77程序: DIMENSIONP(3,3) D010K=1,3 D010J=1,3 10P(K,J)=(K-1)*3+J CALLSUB(P(2,1),3,X) WRITE(*,*)X END SUBROUTINESUB(Q,N,P) DIMENSIONQ(N) P=0.0 D0100K=1,N 100P=P+Q(K) END 运行上述程序后,输出的x值为( )。
A. ( 12.0
B. ( 15.0
C. ( 16.0
D. ( 13.0
[单项选择]阅读下列FORTRAN77程序: DIMENSIONA(3,3) D0100K=1,3 D0100J=1,3 100A(K,J)=K+J S=P(A,2,8) WRITE(*,*)S END FUNCTIONP(B,M,N) DIMENSIONB(N) P=0.0 D010K=M,N 10P=P+B(K) END 运行上述程序后,输出的S值为( )。
A. ( 20.0
B. ( 24.0
C. ( 28.0
D. ( 32.0
[简答题]

以下是某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:
 

画出上面程序的控制流图。
[简答题]以下是某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:

给出满足基本路径覆盖的路径集合。
[单项选择]阅读下面的程序段:
a=0
For i=1 To 3
For i=1 To i
For k=i To 3
a=a+1
Next k
Next j
Next i
执行上面的程序段后,a的值为( )。
A. 3 B) 9 C) 14 D) 21

我来回答:

购买搜题卡查看答案
[会员特权] 开通VIP, 查看 全部题目答案
[会员特权] 享免全部广告特权
推荐91天
¥36.8
¥80元
31天
¥20.8
¥40元
365天
¥88.8
¥188元
请选择支付方式
  • 微信支付
  • 支付宝支付
点击支付即表示同意并接受了《购买须知》
立即支付 系统将自动为您注册账号
请使用微信扫码支付

订单号:

请不要关闭本页面,支付完成后请点击【支付完成】按钮
恭喜您,购买搜题卡成功
重要提示:请拍照或截图保存账号密码!
我要搜题网官网:https://www.woyaosouti.com
我已记住账号密码