當前位置: 首頁 > 結(jié)構(gòu)工程師 > 結(jié)構(gòu)工程師答疑精選 > 一級結(jié)構(gòu)基礎科目(一)--答疑精選3

一級結(jié)構(gòu)基礎科目(一)--答疑精選3

更新時間:2009-10-19 15:27:29 來源:|0 瀏覽0收藏0

結(jié)構(gòu)工程師報名、考試、查分時間 免費短信提醒

地區(qū)

獲取驗證 立即預約

請?zhí)顚憟D片驗證碼后獲取短信驗證碼

看不清楚,換張圖片

免費獲取短信驗證碼

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 你的答案:  標準答案: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 你的答案:  標準答案: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 你的答案:  標準答案:b 本題分數(shù): 1.00 分,你答題的情況為 錯誤 所以你的得分為 0 分 解  析: 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 你的答案:  標準答案: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),進行互換,使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***

分享到: 編輯:環(huán)球網(wǎng)校

資料下載 精選課程 老師直播 真題練習

結(jié)構(gòu)工程師資格查詢

結(jié)構(gòu)工程師歷年真題下載 更多

結(jié)構(gòu)工程師每日一練 打卡日歷

0
累計打卡
0
打卡人數(shù)
去打卡

預計用時3分鐘

結(jié)構(gòu)工程師各地入口
環(huán)球網(wǎng)校移動課堂APP 直播、聽課。職達未來!

安卓版

下載

iPhone版

下載

返回頂部