一级结构基础科目(一)--答疑精选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 分 解　　析： 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），进行互换，使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***