涓�锛?/p>
閫夋嫨棰?/p>
1
锛庤鍙?/p>
OPEN
锛?/p>
3
锛?/p>
FILE=
鈥?/p>
ABC
鈥?/p>
锛夋墦寮�鐨勬槸
鏂囦欢銆?/p>
A
锛庢湁鏍煎紡椤哄簭瀛樺彇
B
锛庢棤鏍煎紡椤哄簭瀛樺彇
C
锛庢湁鏍煎紡鐩存帴瀛樺彇
D
锛庢棤鏍煎紡鐩存帴瀛樺彇
2
锛庤皟鐢ㄥ瓙绋嬪簭鏃讹紝鍋囪瀹炲弬鍙互鏄父鏁般�佸唴鍦ㄥ嚱鏁板強琛ㄨ揪寮忥紝鍏剁浉搴斿舰鍙傛槸
銆?/p>
A
锛庡彉閲忓悕
B
锛庢暟缁勫悕
C
锛庤繃绋嬪悕
D
锛?/p>
*
3
锛庝笅鍒楁暟鎹腑锛屼笉绗﹀悎
FORTRAN90
甯搁噺琛ㄧず鐨勬槸
銆?/p>
A
锛?/p>
-25.6
B
锛?/p>
3.2344D0
C
锛?/p>
鈥?/p>
BOOT
鈥欌�?/p>
=
鈥?/p>
D
锛?/p>
TRUE
4
锛?/p>
鍦嗗績鍦ㄥ師鐐圭殑涓や釜鍚屽績鍦?/p>
,
鍗婂緞鍒嗗埆涓?/p>
2
鍜?/p>
4
銆?/p>
鎻忚堪鐐?/p>
(X,Y)
鍦ㄥ皬鍦嗗锛?/p>
澶у渾鍐?/p>
(
鍖呮嫭鍦ㄤ袱鍦嗗懆涓?/p>
)
鐨勮〃
杈惧紡鏄?/p>
銆?/p>
A
锛?/p>
ABS
锛?/p>
X
锛?/p>
<=4.0 .AND. ABS(Y)>=2.0
B
锛?/p>
2.0>=SQRT(X*X+Y*Y)<=4.0
C
锛?/p>
X*X+Y*Y<=16.0 .AND. X*X+Y*Y>=4.0
D
锛?/p>
锛?/p>
X.OR.Y
锛?/p>
>=2.0 .AND. (X .OR.Y)<=4.0
5.
涓嬪垪瀛楃涓蹭腑鍙敤浣?/p>
FORTRAN90
鍙橀噺鍚嶇殑鏄?/p>
銆?/p>
A
锛?/p>
ABC B. A-BCD C. 2ABC D. AB.C
6.
涓嬪垪鏁版嵁涓笉绗﹀悎
FORTRAN90
甯告暟琛ㄧず鐨勪负
銆?/p>
A. 21.50 B. +0.0D0 C. .TRUE. D. $1000
7.
琛ㄨ揪寮忥細锛?/p>
B+SQRT(B*B-4.0*A*C).LE.3E-5
鍊肩殑绫诲瀷鏄?/p>
銆?/p>
A.
閫昏緫鍨?/p>
B.
鏁村瀷
C.
瀹炲瀷
D.
瀛楃鍨?/p>
8.
鎸夐殣鍚害瀹氾紝璁?/p>
X=2.5,Y=1.0,Z=3.0,
鎵ц璧嬪�艰鍙?/p>
I=X+Y/Z
鍚?/p>
I
鐨勫�间负
銆?/p>
A. 2.0 B. 2 C. 3 D. 3.0
9.
涓嬪垪璇彞涓偅涓鍙ユ槸閿欒鐨勬槸
銆?/p>
A. READ(*,*)X B. READ*,X C. PRINT(*,*)X D. PRINT *,X
10.
璇存槑璇彞
REAL A(1:2,-1:10)
璇存槑鏁扮粍
A
鐨勫厓绱犱釜鏁颁负
銆?/p>
A. 11 B. 12 C. 22 D. 24
11.M
鑳借
N
鏁撮櫎鐨?/p>
FORTRAN
琛ㄨ揪寮忎负
銆?/p>
A. (M/M)=0 B. (M MOD N).EQ.0 C. (M/N).EQ.0 D. MOD(M,N).EQ.0
12
锛庝互涓嬪叧浜?/p>
FORTRAN90
涓湁鍏宠櫄鍙傘�佸疄鍙傜殑璇存硶涓紝涓嶆纭殑鏄?/p>
銆?/p>
A
锛庡疄鍙傚拰铏氬弬涓暟涓�瀹氳鐩哥瓑
B
锛庡疄鍙傚拰铏氬弬涓暟鍙互涓嶇浉绛?/p>
C
锛庤櫄鍙傚彲浠ョ敤鏁扮粍
D
锛庡疄鍙傚彲浠ョ敤鏁扮粍
13.
涓嬪垪鍏充簬
FORTRAN 90
婧愮▼搴忕紪杈戣鍒欑殑鍙欒堪涔嬩腑
,
姝ｇ‘鐨勬槸
銆?/p>
A.
浠讳綍浠ョ鍙封�?/p>
!
鈥?/p>
寮�澶寸殑鍐呭鍧囨槸娉ㄩ噴琛屻�?/p>
B.
涓荤▼搴忕涓�琛屽繀椤绘槸
PROGRAM
璇彞銆?/p>
C.
瑕佸疄鐜版湁鏍煎紡杈撳叆杈撳嚭锛屽繀椤绘湁
FORMAT
璇彞銆?/p>
D.
姣忎釜瀛愮▼搴忎腑蹇呴』鏈変竴涓?/p>
RETURN
璇彞銆?/p>
14.
闃呰涓嬪垪绋嬪簭
F=1.0
DO J=3,7,2
DO K=J-1,J
F =F*K
ENDDO
ENDDO
WRITE(*,'(I3,F8.1)') J,F