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

　　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年考试规范、标准: 一级结构工程师 二级结构工程师
?2009年一级结构工程师考试网上远程辅导招生简章!
?09年结构工程师老师辅导，现在报名可赠07、08年课程！
?2008年二级注册结构工程师考试成绩查询汇总
?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***