一级结构基础科目(一)--答疑精选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 分
?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***
最新资讯
- 2024年结构工程师进央企注册,最高可获得2万元一次性奖励2024-09-30
- 多重补贴:某央企的结构工程师注册补贴公布2024-09-25
- 一级结构工程师含金量有多高2024-07-25
- 二级结构工程师该如何备考2024-05-16
- 一级结构工程师基础怎么备考2024-05-16
- 结构工程师是做什么的2024-05-10
- 结构工程师有前途吗2024-05-10
- 一级注册结构工程师一年挣多少钱2024-05-10
- 结构工程师前景及待遇2024-05-08
- 结构工程师的工作内容2024-05-04