当前位置: 首页 > 结构工程师 > 结构工程师答疑精选 > 一级结构基础科目(一)--答疑精选3

一级结构基础科目(一)--答疑精选3

更新时间:2009-10-19 15:27:29 来源:|0 浏览0收藏0

结构工程师报名、考试、查分时间 免费短信提醒

地区

获取验证 立即预约

请填写图片验证码后获取短信验证码

看不清楚,换张图片

免费获取短信验证码

  freesky:

  问题:以下程序无从下手,请大致讲解一下程序意思.要求什么,怎么求.谢谢!

  以下程序段

  DIMENSION A (4)

  READ *,A

  I=l

  10 J=I十1

  20 IF(A(I).LT.A(J))THEN

  T=A(J)

  A(J)=A(I)

  A(I)=T

  ENDIF

  J=J+1

  IF(J.LE.4) GOT0 20

  I=I+1

  IF(I.LE.3) GOT0 10

  PRINT*,A(4)

  END

  若输入4,2,3,5,则程序运行结果为:

  (A)4

  (B)2

  (C)3

  (D)5 A B C D 你的答案:  标准答案:d 本题分数: 1.00 分,你答题的情况为 错误 所以你的得分为 0 分 解  析: 5、 对下列程序段

  PARAMTER(N=3)

  INTEGER A(N,N)

  READ *,A ’

  D0 10 J=1,N

  LS=0

  D0 20 I=1,N

  20 LS=LS+A(1,J)

  LS=LS/N

  D0 30 I=1,N

  30 A(I,J) =A(I,J) -LS

  10 CONTINUE

  PRINT*,A

  END

  若输入2,4,6,8,10,12,14,16,18

  则程序运行后A(3,2)为

  (A)一2

  (B)0

  (C)2

  (D)12 A B C D 你的答案:  标准答案:c 本题分数: 1.00 分,你答题的情况为 错误 所以你的得分为 0 分 解  析: 6、 以下程序段

  PROORAM MAIN

  EXTERNAL FX

  Y=TX(FX,3,2)

  PRINT*,Y

  END

  FUNCION TX(FUN,A,B)

  TX=(FUN(A)―FUN(B))/2.0

  END

  FUNCTION FX(X)

  FX=X*X

  END

  运行的结果为

  (A)9

  (B)4

  (C)2.5

  (D)6.5 A B C D 你的答案:  标准答案:b 本题分数: 1.00 分,你答题的情况为 错误 所以你的得分为 0 分

 

更多信息请访问结构工程师频道    结构工程师论坛

?2009年结构工程师考试时间:9月19、20日
?08年考试规范、标准: 2008年一级注册结构工程师考试成绩查询汇总

     解  析: 7、 对以下程序段 •

  EXTERNAL LENGTH

  CHARACTER NAME*2

  READ(*, *)NAME,SCORE

  CALL DRAW(NAME,SCORE,LENGTH)

  END

  SUEROUTINE DRAW (N,S,F)

  CHARACTER N*2,LINE*20

  1NTEGER F

  M=F(S) ’

  D010 1=1,M

  LINE(I:I) =’*’

  10 CONTINUE

  WRITE(*,100)N,LINE

  100 FORMAT(1X,A2,A6)

  END

  FUNCTION LENGTH(X)

  LENGTH=INT(X)/100

  END

  若输入’D’,356.8,则程序运行结果为:

  (A)D***

  (B)D****

  (C)D356.8

  (D)D3 A B C D 你的答案:  标准答案:d 本题分数: 1.00 分,你答题的情况为 错误 所以你的得分为 0 分

  老师:您好!

  以下程序无从下手,请大致讲解一下程序意思.要求什么,怎么求.谢谢!

  以下程序段

  DIMENSION A (4)

  READ *,A

  I=l

  10 J=I十1

  20 IF(A(I).LT.A(J))THEN

  T=A(J)

  A(J)=A(I)

  A(I)=T

  ENDIF

  J=J+1

  IF(J.LE.4) GOT0 20

  I=I+1

  IF(I.LE.3) GOT0 10

  PRINT*,A(4)

  END

  若输入4,2,3,5,则程序运行结果为:

  (A)4

  (B)2

  (C)3

  (D)5

  此题为冒泡法。先进行A(1)与A(2)的比较,如果A(1)A(2),然后J变为3.再进行比较,一下到J=4,I=3。最后打印A(4),结果为(B)。

  5、 对下列程序段

  PARAMTER(N=3)

  INTEGER A(N,N)

  READ *,A ’

  D0 10 J=1,N

  LS=0

  D0 20 I=1,N

  20 LS=LS+A(1,J)

  LS=LS/N

  D0 30 I=1,N

  30 A(I,J) =A(I,J) -LS

  10 CONTINUE

  PRINT*,A

  END

  若输入2,4,6,8,10,12,14,16,18

  则程序运行后A(3,2)为

  (A)一2

  (B)0

  (C)2

  (D)12

  A (3,2)

  DO 10 J=1,N (J=2)

  LS=0

  DO 20 I=1,N

  20 LS=LS+A(I,J) (LS=A(1,2)+A(2,2)+A(3,2)=8+10+12=30)

  LS=LS/N (LS=30/3=10)

  DO 30 I=1,N

  30 A(I,J)=A(I,J)-LS (A(3,2)=12-10=2)

  10 CONTINUE

  PRINT *,A(3,2)

  6、 以下程序段

  PROORAM MAIN

  EXTERNAL FX

  Y=TX(FX,3,2)

  PRINT*,Y

  END

  FUNCION TX(FUN,A,B)

  TX=(FUN(A)―FUN(B))/2.0

  END

  FUNCTION FX(X)

  FX=X*X

  END

  运行的结果为

  (A)9

  (B)4

  (C)2.5

  (D)6.5

  Y=(3*3-2*2)/2=2。5

  7、 对以下程序段 •

  EXTERNAL LENGTH

  CHARACTER NAME*2

  READ(*, *)NAME,SCORE

  CALL DRAW(NAME,SCORE,LENGTH)

  END

  SUEROUTINE DRAW (N,S,F)

  CHARACTER N*2,LINE*20

  1NTEGER F

  M=F(S) ’

  D010 1=1,M

  LINE(I:I) =’*’

  10 CONTINUE

  WRITE(*,100)N,LINE

  100 FORMAT(1X,A2,A6)

  END

  FUNCTION LENGTH(X)

  LENGTH=INT(X)/100

  END

  若输入’D’,356.8,则程序运行结果为:

  (A)D***

  (B)D****

  (C)D356.8

  (D)D3

  EXTERNAL LENGTH

  CHARACTER NAME*2

  READ(*, *)NAME,SCORE(输入数据)

  CALL DRAW(NAME,SCORE,LENGTH)(调用子程序1)

  END

  SUEROUTINE DRAW (N,S,F)(子程序1)

  CHARACTER N*2,LINE*20

  1NTEGER F

  M=F(S) (调用子程序2)

  D010 1=1,M

  LINE(I:I) =’*’

  10 CONTINUE

  WRITE(*,100)N,LINE

  100 FORMAT(1X,A2,A6)

  END

  FUNCTION LENGTH(X)(子程序2)

  LENGTH=INT(X)/100

  END

  若输入’D’,356.8,

  最后结果为D***

分享到: 编辑:环球网校

资料下载 精选课程 老师直播 真题练习

结构工程师资格查询

结构工程师历年真题下载 更多

结构工程师每日一练 打卡日历

0
累计打卡
0
打卡人数
去打卡

预计用时3分钟

结构工程师各地入口
环球网校移动课堂APP 直播、听课。职达未来!

安卓版

下载

iPhone版

下载

返回顶部