一级结构工程师_一级结构工程师_来尚学教育

搜索

专业：一级注册消防工程师二级注册消防工程师中级注册安全工程师一级结构工程师二级结构工程师

题库：一级结构工程师

一级结构工程师

3101. 下列几种关于存取文件的描述哪个是正确的?

3102. 在FORTRAN语言中，文件存取单位是：

3103. 以下存在语法错误的OPEN语句是哪一条?

3104. 若有语句： READ(8，REC=6，ERR=10) BWRITE(8，6)X，Y 则关于它们的描述，其中哪一条描述是正确的?

3105. 对任意输入的x， READ(*，*)x K=SIN(x) WRITE(*，*)K END 此程序执行后K的值为：

3106. 有程序：K=0 DO 10 I=1，2 DO 10 J=1，2 10 K=K+I／J WRITE(*，*)K END 此程序的执行结果K值为：

3107. 有程序：K=1 DO 10 I=1，2 DO 10 J=1，2 10 K=K*I／J WRITE(*，*)K END 此程序执行后的输出结果为：

3108. 有程序：K=0 DO 10 I=1，6，2 DO 10 J=1，6，3 IF(K．LT．I*J)K=I*J 10 CONTINUE WRITE(*，*)K END 此程序执行后的输出结果为：

3109. 有程序：DIMENSION A(2，2) READ(*，*)A SUM=0 DO 10 I=1，2 D0 10 J=1，2 10 A(I，J)=A(I，J)+I+J WRITE(*，*)A(1，2) END 当输入1、2、3、4时，此程序执行后的输出结果为：

3110. 有程序：READ(*，*)x Y=0．0 IF=(xGT．0．0)THEN Y=1．0 ELSE IF(x．GE．150)THEN Y=2．0 ELSE Y=3．0 ENDIF WRITE(*，*)Y END 当输入150时，此程序执行后的输出结果为：

3111. 有程序：F1(x)=2．0／(1．0+x) F2(Y)=F1(Y)*Y+1．0 A=F1(1．0+F2(1．0) WRITE(*，10)A 10 FORMAT(1x，E8．2) END 此程序执行后的输出结果为：

3112. 有程序：DIMENSION(4，4) READ(*，*)A WRITE(*，10)A 10 FORMAT(1x，6E9．2) END 此程序执行后的输出结果的记录数为：

3113. 下列程序执行时，需输入数据的记录个数必须为： DIMENSION A(4，4) READ(*，*)A …… …… …… END

3114. 有程序：DIMENSION x(3，3) READ(*，*)x CALL SSl(x(1，2)) END SUBROUTINE SSl(x) DIMENSION x(3) WRITE(*，*)x(2) END 当输入1、2、3、4、5、6、7、8、9时，此程序执行后的输出结果为：

3115. 有程序：CHARACTER *6S S=‘ABCDEF' CALL SS(S) END SUBROUTINE SS(S1) CHARACTER S1*3 WRITE(*，*)S1 END 此程序执行后的输出结果为：

3116. 有程序：CHARACTER *4 A，B*6 A=‘ABCD' B=A∥‘EFGH' WRITE(*，*)B END 此程序执行后的输出结果为：

3117. 有程序：DATA I，M，N／2，1，4／ 10 M=M*I I=I+1 IF(I．GT．N)GOT0 20 GOTO 10 20 WRITE(*，*)M END 执行此程序后，输出结果为：

3118. 有程序：INTEGER M(3，3) DATA M／1，2，3，4，5，6，7，8，9／ DO 10 I=1．3 DO 10 J=1，3 K=M(I，J) M(I，J)=M(J，I) M(J，I)=K 10 CONTINUE WRITE(*，100)((M(I，J)，J=1，3)，I=1，3) 100 FORMAT(1x，3I2) END 此程序执行后的结果为：

3119. 有程序：DIMENSION A(4，3) DATA A／3*-1．0，3*-2．0，3*-3．0，3*-4．0／ S=0．0 DO 10 K=1，4 D=ABS(A(K，1)) DO 20 J=2，3 IF(ABS(A(K，J))．GT．D)D=ABS(A(K，J)) 20 CONTINUE S=S+D 10 CONTINUE WRITE(*，*)S END 此程序执行后的结果为：

3120. 有程序：CHARACTER *4STR1，STR2，STR3 OPEN(UNIT=15，FILE=‘INPUT．DAT'，STATUS=‘OLD') READ(15，10)STR1，STR2，STR3 10FORMAT(A6，1x，A5，1x，A4)WRITE(*，'(1x，3A)')STR1，STR2，STR3 CLOSE(15) END 用此程序从文件INPUT．DAT中读出字符串'FORMAT[JZ163_230_7_46_1.gif]A[JZ163_230_7_46_1.gif]NEW[JZ163_230_7_46_1.gif]DISK'，程序运行结果是：