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變?yōu)?.再進行比較，一下到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***