09结构工程师考试(计算机应用基础)备考讲义(22)

　　4.以下程序段转自环 球 网校edu24ol.com转自环 球 网校edu24ol.com转自环 球 网校edu24ol.com

　　PROGRAM MAIN

　　EXTERNAL FX

　　Y=TX (FX, 3, 2)

　　PRINT *,Y

　　END

　　FUNCTION TX (FUN, A, B)

　　TX= (FUN (A) - FUN (B)) /2.0

　　END

　　FUNCTION FUN (X)

　　FX=X*X

　　END

　　运行的结果为(C) 两次调用函数，(32-22)/2=2.5

　　(A) 9 (B) 4 (C) 2.5 (D) 6.5

　　5.对以下程序段

　　EXTERNAL LENGTH

　　CHARACHER NAME * 2

　　READ (*,*) NAME, SCORE

　　CALL DRAW (NAME, SCORE, LENGTH)

　　END

　　SUBROUTINE DRAW (N, S, F)

　　CHARACTER N*2, LINE*20

　　INTEGER F

　　M=F (S)

　　DO 10 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转自环 球 网校edu24ol.com转自环 球 网校edu24ol.com转自环 球 网校edu24ol.com

　　若输入, D', 356.8,则程序运行结果为(A)

　　(A) D* * *; (B) D* * * * ;(C) D356.8 (D)D3

　　6.以下程序段

　　DIMENSION A (4)

　　READ*,A

　　I=1

　　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+l

　　IF (J.LE.A) GOTO 20

　　I=I+1

　　IF (1. LE.3) GOTO 10

　　PRINT*, A (4)

　　END

　　若输入4, 2, 3, 5,则程序运行结果为(B) 相当于把数列从大到小排列，最后5，4，3，2，故选B

　　(A) 4 (B) 2 (C) 3 (D) 5

2010年注册结构工程师考试报名时间信息汇总
 结构工程师基础科目(一)考试普通化学练习题汇总
2010年结构师考试9月18、19日

更多信息请访问：结构工程师频道    结构工程师论坛