一級結(jié)構(gòu)基礎(chǔ)科目(一)--答疑精選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，則程序運行結(jié)果為：

　　(A)4

　　(B)2

　　(C)3

　　(D)5 A B C D 你的答案： 　標(biāo)準答案：d 本題分數(shù)： 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 你的答案： 　標(biāo)準答案：c 本題分數(shù)： 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

　　運行的結(jié)果為

　　(A)9

　　(B)4

　　(C)2.5

　　(D)6.5 A B C D 你的答案： 　標(biāo)準答案：b 本題分數(shù)： 1.00 分，你答題的情況為 錯誤 所以你的得分為 0 分

更多信息請訪問：結(jié)構(gòu)工程師頻道    結(jié)構(gòu)工程師論壇

?2009年結(jié)構(gòu)工程師考試時間：9月19、20日
?08年考試規(guī)范、標(biāo)準: 2008年一級注冊結(jié)構(gòu)工程師考試成績查詢匯總

     解　　析： 7、 對以下程序段 •

　　EXTERNAL LENGTH

　　CHARACTER NAME*2

　　READ(*， *)NAME，SCORE

　　CALL DRAW(NAME，SCORE，LENGTH)

　　END

　　SUEROUTINE DRAW (N，S，F(xiàn))

　　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，則程序運行結(jié)果為:

　　(A)D***

　　(B)D****

　　(C)D356.8

　　(D)D3 A B C D 你的答案： 　標(biāo)準答案：d 本題分數(shù)： 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，則程序運行結(jié)果為：

　　(A)4

　　(B)2

　　(C)3

　　(D)5

　　此題為冒泡法。先進行A(1)與A(2)的比較，如果A(1)A(2)，然后J變?yōu)?.再進行比較，一下到J=4，I=3。最后打印A(4)，結(jié)果為(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

　　運行的結(jié)果為

　　(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(xiàn))

　　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，則程序運行結(jié)果為:

　　(A)D***

　　(B)D****

　　(C)D356.8

　　(D)D3

　　EXTERNAL LENGTH

　　CHARACTER NAME*2

　　READ(*， *)NAME，SCORE(輸入數(shù)據(jù))

　　CALL DRAW(NAME，SCORE，LENGTH)(調(diào)用子程序1)

　　END

　　SUEROUTINE DRAW (N，S，F(xiàn))(子程序1)

　　CHARACTER N*2，LINE*20

　　1NTEGER F

　　M=F(S) (調(diào)用子程序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，

　　最后結(jié)果為D***