freesky锛�
鍟�(w猫n)椤岋細浠ヤ笅绋嬪簭鐒�(w煤)寰炰笅鎵�锛岃珛(q菒ng)澶ц嚧璎涜В涓€涓嬬▼搴忔剰鎬�.瑕佹眰浠€涔�锛屾€庝箞姹�.璎濊瑵!
浠ヤ笅绋嬪簭娈�
DIMENSION A (4)
READ *锛孉
I=l
10 J=I鍗�1
20 IF(A(I)锛嶭T锛嶢(J))THEN
T=A(J)
A(J)=A(I)
A(I)=T
ENDIF
J=J+1
IF(J锛嶭E锛�4) GOT0 20
I=I+1
IF(I锛嶭E锛�3) GOT0 10
PRINT*锛孉(4)
END
鑻ヨ几鍏�4锛�2锛�3锛�5锛屽墖绋嬪簭閬�(y霉n)琛岀祼(ji茅)鏋滅偤锛�
(A)4
(B)2
(C)3
(D)5  A  B  C  D 浣犵殑绛旀锛� 銆€妯�(bi膩o)婧�(zh菙n)绛旀锛歞 鏈鍒�?j菒n)?sh霉)锛� 1.00 鍒嗭紝浣犵瓟椤岀殑鎯呮硜鐐� 閷�(cu貌)瑾� 鎵€浠ヤ綘鐨勫緱鍒嗙偤 0 鍒� 瑙ｃ€€銆€鏋愶細 5銆� 灏�(du矛)涓嬪垪绋嬪簭娈�
PARAMTER(N=3)
INTEGER A(N锛孨)
READ *锛孉 鈥�
D0 10 J=1锛孨
LS=0
D0 20 I=1锛孨
20 LS=LS+A(1锛孞)
LS=LS锛廚
D0 30 I=1锛孨
30 A(I锛孞) =A(I锛孞) -LS
10 CONTINUE
PRINT*锛孉
END
鑻ヨ几鍏�2锛�4锛�6锛�8锛�10锛�12锛�14锛�16锛�18
鍓囩▼搴忛亱(y霉n)琛屽悗A(3锛�2)鐐�
(A)涓€2
(B)0
(C)2
(D)12  A  B  C  D 浣犵殑绛旀锛� 銆€妯�(bi膩o)婧�(zh菙n)绛旀锛歝 鏈鍒�?j菒n)?sh霉)锛� 1.00 鍒嗭紝浣犵瓟椤岀殑鎯呮硜鐐� 閷�(cu貌)瑾� 鎵€浠ヤ綘鐨勫緱鍒嗙偤 0 鍒� 瑙ｃ€€銆€鏋愶細 6銆� 浠ヤ笅绋嬪簭娈�
PROORAM MAIN
EXTERNAL FX
Y=TX(FX锛�3锛�2)
PRINT*锛孻
END
FUNCION TX(FUN锛孉锛孊)
TX=(FUN(A)鈥旻UN(B))锛�2锛�0
END
FUNCTION FX(X)
FX=X*X
END
閬�(y霉n)琛岀殑绲�(ji茅)鏋滅偤
(A)9
(B)4
(C)2锛�5
(D)6锛�5  A  B  C  D 浣犵殑绛旀锛� 銆€妯�(bi膩o)婧�(zh菙n)绛旀锛歜 鏈鍒�?j菒n)?sh霉)锛� 1.00 鍒�锛屼綘绛旈鐨勬儏娉佺偤 閷�(cu貌)瑾� 鎵€浠ヤ綘鐨勫緱鍒嗙偤 0 鍒� 瑙ｃ€€銆€鏋愶細 7銆� 灏�(du矛)浠ヤ笅绋嬪簭娈� •
EXTERNAL LENGTH
CHARACTER NAME*2
READ(*锛� *)NAME锛孲CORE
CALL DRAW(NAME锛孲CORE锛孡ENGTH)
END
SUEROUTINE DRAW (N锛孲锛孎(xi脿n))
CHARACTER N*2锛孡INE*20
1NTEGER F
M=F(S) 鈥�
D010 1=1锛孧
LINE(I锛欼) =鈥�*鈥�
10 CONTINUE
WRITE(*锛�100)N锛孡INE
100 FORMAT(1X锛孉2锛孉6)
END
FUNCTION LENGTH(X)
LENGTH=INT(X)锛�100
END
鑻ヨ几鍏モ€橠鈥�锛�356锛�8锛屽墖绋嬪簭閬�(y霉n)琛岀祼(ji茅)鏋滅偤:
(A)D***
(B)D****
(C)D356.8
(D)D3  A  B  C  D 浣犵殑绛旀锛� 銆€妯�(bi膩o)婧�(zh菙n)绛旀锛歞 鏈鍒�?j菒n)?sh霉)锛� 1.00 鍒�锛屼綘绛旈鐨勬儏娉佺偤 閷�(cu貌)瑾� 鎵€浠ヤ綘鐨勫緱鍒嗙偤 0 鍒�

鑰佸斧锛氭偍濂�锛�
浠ヤ笅绋嬪簭鐒�(w煤)寰炰笅鎵嬶紝璜�(q菒ng)澶ц嚧璎涜В涓€涓嬬▼搴忔剰鎬�.瑕佹眰浠€涔�锛屾€庝箞姹�.璎濊瑵!
浠ヤ笅绋嬪簭娈�
DIMENSION A (4)
READ *锛孉
I=l
10 J=I鍗�1
20 IF(A(I)锛嶭T锛嶢(J))THEN
T=A(J)
A(J)=A(I)
A(I)=T
ENDIF
J=J+1
IF(J锛嶭E锛�4) GOT0 20
I=I+1
IF(I锛嶭E锛�3) GOT0 10
PRINT*锛孉(4)
END
鑻ヨ几鍏�4锛�2锛�3锛�5锛屽墖绋嬪簭閬�(y霉n)琛岀祼(ji茅)鏋滅偤锛�
(A)4
(B)2
(C)3
(D)5
姝ら鐐哄啋娉℃硶銆傚厛閫�(j矛n)琛孉锛�1锛夎垏A锛�2锛夌殑姣旇純锛屽鏋淎锛�1锛�<A锛�2锛�锛岄€�(j矛n)琛屼簰鎻涳紝浣緼锛�1锛�>A锛�2锛夛紝鐒跺悗J璁�?y艒u)?.鍐嶉€�(j矛n)琛屾瘮杓�锛屼竴涓嬪埌J=4锛孖=3銆傛渶鍚庢墦鍗癆锛�4锛夛紝绲�(ji茅)鏋滅偤锛圔锛�銆�
5銆� 灏�(du矛)涓嬪垪绋嬪簭娈�
PARAMTER(N=3)
INTEGER A(N锛孨)
READ *锛孉 鈥�
D0 10 J=1锛孨
LS=0
D0 20 I=1锛孨
20 LS=LS+A(1锛孞)
LS=LS锛廚
D0 30 I=1锛孨
30 A(I锛孞) =A(I锛孞) -LS
10 CONTINUE
PRINT*锛孉
END
鑻ヨ几鍏�2锛�4锛�6锛�8锛�10锛�12锛�14锛�16锛�18
鍓囩▼搴忛亱(y霉n)琛屽悗A(3锛�2)鐐�
(A)涓€2
(B)0
(C)2
(D)12
A 锛�3,2锛�
DO 10 J=1,N 锛圝锛�2锛�
LS=0
DO 20 I=1,N
20 LS=LS+A(I,J) 锛圠S锛滱锛�1,2锛夛紜A锛�2,2锛夛紜A锛�3,2锛夛紳8锛�10锛�12锛�30锛�
LS=LS/N 锛圠S锛�30/3锛�10锛�
DO 30 I=1,N
30 A(I,J)=A(I,J)-LS 锛圓锛�3,2锛夛紳12锛�10锛�2锛�
10 CONTINUE
PRINT *,A(3,2)

6銆� 浠ヤ笅绋嬪簭娈�
PROORAM MAIN
EXTERNAL FX
Y=TX(FX锛�3锛�2)
PRINT*锛孻
END
FUNCION TX(FUN锛孉锛孊)
TX=(FUN(A)鈥旻UN(B))锛�2锛�0
END
FUNCTION FX(X)
FX=X*X
END
閬�(y霉n)琛岀殑绲�(ji茅)鏋滅偤
(A)9
(B)4
(C)2锛�5
(D)6锛�5
Y=锛�3*3-2*2锛�/2=2銆�5
7銆� 灏�(du矛)浠ヤ笅绋嬪簭娈� •
EXTERNAL LENGTH
CHARACTER NAME*2
READ(*锛� *)NAME锛孲CORE
CALL DRAW(NAME锛孲CORE锛孡ENGTH)
END
SUEROUTINE DRAW (N锛孲锛孎(xi脿n))
CHARACTER N*2锛孡INE*20
1NTEGER F
M=F(S) 鈥�
D010 1=1锛孧
LINE(I锛欼) =鈥�*鈥�
10 CONTINUE
WRITE(*锛�100)N锛孡INE
100 FORMAT(1X锛孉2锛孉6)
END
FUNCTION LENGTH(X)
LENGTH=INT(X)锛�100
END
鑻ヨ几鍏モ€橠鈥�锛�356锛�8锛屽墖绋嬪簭閬�(y霉n)琛岀祼(ji茅)鏋滅偤:
(A)D***
(B)D****
(C)D356.8
(D)D3
EXTERNAL LENGTH
CHARACTER NAME*2
READ(*锛� *)NAME锛孲CORE锛堣几鍏ユ暩(sh霉)鎿�(j霉)锛�
CALL DRAW(NAME锛孲CORE锛孡ENGTH)锛堣(di脿o)鐢ㄥ瓙绋嬪簭1锛�
END
SUEROUTINE DRAW (N锛孲锛孎(xi脿n))锛堝瓙绋嬪簭1锛�
CHARACTER N*2锛孡INE*20
1NTEGER F
M=F(S) 锛堣(di脿o)鐢ㄥ瓙绋嬪簭2锛�
D010 1=1锛孧
LINE(I锛欼) =鈥�*鈥�
10 CONTINUE
WRITE(*锛�100)N锛孡INE
100 FORMAT(1X锛孉2锛孉6)
END
FUNCTION LENGTH(X)锛堝瓙绋嬪簭2锛�
LENGTH=INT(X)锛�100
END
鑻ヨ几鍏モ€橠鈥�锛�356锛�8锛�
鏈€鍚庣祼(ji茅)鏋滅偤D***