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

搜索

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

题库：一级结构工程师

一级结构工程师

3121. 有程序：ADD(X，Y)=X**2+Y OPEN(8，FILE=‘F'，STATUS=‘NEW'，ACCESS=‘DIRECT'， *FORM=‘UNFORMATTED'，REAL=16 DO 10 I=1，4 D=ADD(REAL(I)，2、0) WRITE(8，REC=I)D 10 CONTINUE CLOSE(8) OPEN(2，FILE=‘F'，STATUS=‘OLD'，ACCESS=‘DIRECT'， *FORM=‘UNFORMATTFED'，REAL=6 DO 20 I=2，4，2 READ(2，REC=I)C WRITE(*，30)C 20 CONTINUE 20 FORMAT(1x，F4．1) CLOSE(2) END 执行此程序的结果是：

3122. 有程序：READ(*，100)A 100 FORMAT(3x，F6．2) WRITE(*，200)A 200 FORMAT(1x，F8．2) END 当执行此程序时，从键盘输入1234567890[JZ163_237_7_77_1.gif]，则程序的运行结果是：

3123. 有程序：CHARATER X*2，Y*3，Z*4 DATAX，Y，Z／‘AB'，‘CDE'，‘FGHI'／ WRITE(*，100)X，Y，Z 100 FORMAT(1X，A1，A2，A3) END 此程序的运行结果是：

3124. 有程序：LOGICAL A，B，C，D INTEGER X，Y DATA X，Y，A，B／1，-1，2*．FALSE．／ C=．NOT．A．AND(B．OR．XGE．Y) D=．NOT．(A．AND．B．OR、X．GE．Y) WRITE(*，*)C，D END 上面程序的运行结果是：

3125. 有程序：WRITE(*，400)876．345 400 FORMAT(1X，E8．0) 此程序段的正确执行结果是：

3126. 有程序：READ(*，50)S WRITE(*，100)S 50 FORMAT(1X，F7．3) 100 FORMAT(1X，F8．3) END 执行此程序，由键盘输入123456789，则输出S的值为：

3127. 有程序：READ(*，10)IA，I IF(IA．GE．125)THEN I=I+10， ELSE I=I-10 END IF WRITE(*，*)I 10 FORMAT(I2，I1) END 执行上面的程序时，从键盘输入365，2，则运行后结果I的值是：

3128. 有程序：I=5 J=10 K=20 M=-10 IF(I．GT．M)M=I IF(J．GT．M)M=J IF(K．GT．M)M=K WRITE(*，*)M END 此程序的运行结果是：

3129. 有程序：LOGICAL L L=．TRUE． READ(*，*)x IF(x．LT．0)THEN L=．FALSE． ELSE WRITE(*，*)x ENDIF IF(．NOT．L) WRITE(*，*)-x END 执行两次以上程序，若运行中的输入值分别为2．5和-1．0，则两次运行结果分别是：

3130. 有程序：DATA A，B，C／4．0，-8．0，3．0／ P=B*B-4*A*C IF(P．GE．0．0)THEN S=(-B+SQRT(P))／(2*A) T=C／(A*S) P=(S+T)／2 ELSE S=0 T=0 ENDIF WRITE(*，*)P END 执行此程序，则运行的结果是：

3131. 有程序：N=0 DO K=6，2，-2 N=N+K M=2*N 10 CONTINUE WRITE(*，*)M END 上面程序的运行结果是：

3132. 有程序：DO 10 I=1，5，3 DO 10 J=I，3 10 K=I+J WRITE(*，*)K END 此程序的运行结果是：

3133. 有程序：M=2 N=M D0 10 I=1，N+1，N N=N*N M=M*N 10 CONTINUE WRITE(*，*)M END 此程序的运行结果是：

3134. 有程序：INTEGER P P=0 DO 10 I=0，10，3 DO 10 J=5，100，20 DO 10 K=-10，-5，-1 10 P=P+1 WRITE(*，*)P END 此程序的运行结果是：

3135. 有程序：INTEGER B(3，3) DATA B／3*2，3*3，3*4／ DO 10 I=1，3 10 WRITE(*，‘(1X，3I2)')(B(I，J)，J=1，3) END 此程序的运行结果是：

3136. 有程序：INTEGER M(5，5) L=0 DO 40 J=1，5 DO 40 K=1，5 M(J，K)=K 40 CONTINUE DO 10 I=1，5 N=1 IF(MOD(I，2)．EQ．0)N=2 DO 10 J=N，5，2 L=L+M(I，J) 10 CONTINUE WRITE(*，20)L 20 FORMAT(2X，‘L='，I3) END 此程序运行的结果为：

3137. 有程序：DIMENSION A(2，2) INTEGER A，Y Y=0 DO 20 I=1，2 D0 20 J=1，2 A(I，J)=I*I+J*J Y=Y+A(I，J) 20 CONTINUE WRITE(*，*)Y END 此程序运行的结果为：

3138. 有程序：INTEGER A(3) DATA A／3*1／ N=2 DO 10 I=1．N DO 10 J=1，N 10 A(I)=A(J)+1 WRITE(*，*)A(N) END 此程序的运行结果为：

3139. 有程序：INTEGER M(3，4) DATA M／4*-1，4*-2，4*-3／ S=0 DO 10 I=1．3 10 S=S+M(I，I+1) DO 20 I=4，2，-1 20 S=S-M(I-1，I) WRITE(*，*)S END 上面程序的运行结果为：

3140. 有程序：INTEGER A(10) DATA A／1，2，3，4，5，6，7，8，9，10／ DO 10 K=1．10 M=A(K)+1 A(K)=A(10-K+1)+1 A(10-K+1)=M 10 CONTINUE WRITE(*，*)A(5) END 此程序的运行结果是：