单选题阅读下列程序 READ(*,*)K WRITE(*,100)K 100 FORMAT(I5) END 程序运行时输入初始值12345,那么显示结果是()A 2345B 12345C ****D *****
单选题
阅读下列程序 READ(*,*)K WRITE(*,100)K 100 FORMAT(I5) END 程序运行时输入初始值12345,那么显示结果是()
A
2345
B
12345
C
****
D
*****
参考解析
解析:
暂无解析
相关考题:
阅读下列FORTRAN程序:DIMENSION M(6)READ(*,*)MDO 10 J=l,6 DO 10 K=J,6 IF(M(K)LTM(J))THEN N=M(K)M(K)=M(J)M(J)=N END IF 10 CONTINUEWRITE(*,100)(M(I),I=1,6)100 FORMAT(2X,614)END键盘输入10,7,9,2,1,3;程序运行后的输出结果是:A. 1 2 3 7 9 10B. 10 9 7 3 2 1C. 7 9 2 1 3 10D. 3 1 2 9 7 10
阅读以下FORTRAN程序:INTEGER X(7)DATA X/10,20,45,70,80,15,14/M/X(l)DO 10 1=2,7IF(X(I).GIM)THENM=X(I)K=1 END IF 10 CONTINUEN=X(K)X(K)=X(I)X(I)=NWRITE( *,100)(X(I),I=1,7)100 FORMAT(2X,713)END 程序运行的结果是:A. 10 20 45 70 80 15 14B. 14 20 45 70 80 15 10C. 80 20 45 70 10 15 14D. 20 45 70 80 15 14 10
阅读FORTAN程序:READ(*,*)NDO10K=1,NS=S+K**210CONTINUEWRITE(*,100)S100FORMAT(2X,F8.0)END键盘输入5则程序运行后的输出结果是:A.35B.45C.65D.55
阅读以下FORTRAN程序:READ( *,* )MIF(M. LT. 100. AND. M. GT. 9f9?STOPK=M/100L=(M-K* 100)/10N=M—K*100—L*10MM=K+NWRITEO,(2X,I3))MM END键盘输入600,则程序的输出结果是:A. 8B. 3C. 7D. 6
阅读下列FORTRAN程序:MOIUH=N(5)+NdO)WRITE( *,‘(2X,15),)MQIUH ENDFUNCTION N(K)N=0DOIO J=1,K N=N+J 10 CONTINUE RETURN END程序运行后的结果是:A. 65B. 85C. 90D. 70
阅读下列FORTRAN77程序: INTEGER A(4,5) DATA A/5*1,5*2,5*3,5*4/ M=0 DO 10 K=1,4 10 M=M+A(K,K+1) WRITE(*,*)M END 上述程序运行后,输出的M值为( )。A.8B.9C.10D.11
阅读FORTRAN程序:READC*,*)I,J,K DO 10 N=l,2 I=I+J+K J=I+K+J K=I+J+K 10 CONTINUEWRITE(*,20)I,J,K 20 FORMAT(2X,315)END键盘输入1,0,0则程序运行后的输出结果是:A. 4 7 13B.2 3 4C. 1 1 2D. 6 9 15
阅读以下FORTAN程序:K1=M(5)K2 = M(K1)K3=M(K1)+M(K2)K4=M(K1+K2+K3)WRITEC* ,100)K4 100 FORMAT(2X,K4=I3)ENDFUNCTION M(N)M=N+1 RETURN END 程序的输出结果是:A. K4=28B. K4=27C. K4=30D. K4=29
阅读下列FORTRAN程序:INTEGER X(7)DATA X/4,5,7,8,10,12,11/DO 10 K=1,7IF(MOD(X(K),2).NE.0)THENS=A+X(K)N=N+1END IF10 CONTINUET=S/NWRITE(*,20)S,T20 FORMAT(2X,3F6,1)END 程序运行后的输出结果是:(A)12.0 7.7(B)47.0 6.7(C)34.0 8.5(D)57.0 11.4
阅读以下FORTRAN程序 READ(*,*)M,N K=MOD(M,N) 10 IF(K.GT.0)THEN M=N N=K K=MOD(M,N) GOTO 10 END IF WRITE(*,*)N END 若运行以上程序时,由键盘输入25,11,则程序输出为( )。A.3B.2C.1D.0
阅读以下FORTRAN 程序:READ( *,*) MIF (M. LT. 100. AND. M. GT. 999) STOP K=M/100L=(M - K*100)/10 N= M - K* 100 - L* 10 MM= K + N WRITE( * ,,(2X,I3)')MM END键盘输入600,则程序的输出结果是:A. 8 B. 3 C. 7 D. 6
阅读FORTRAN程序:READ(*,*)NDO 10 K-1,NS=S+K**210 CONTINUEWRITE(*,100)S100 FORMAT(2X,F8,0)END键盘输入5则程序运行的输出结果是:(A)35(B)45(C)65(D)55
阅读下列FORTRAN 程序: DIMENSION M(6) READ(*,*)M DO 10 J=1,6 DO 10 K=J,6 IF(M(K).LT.M(J))THEN N=M(K) M(K)=M(J) M(J)=N END IF10 CONTINUE WRITE(*,100)(M(I),I=1,6) 100 FORMAT(2X,614) END键盘输入10,7,9,2,1,3;程序运行后的输出结果是:(A)1 2 3 7 9 10 (B)10 9 7 3 2 1(C)7 9 2 1 3 10 (D)3 1 2 9 7 10
阅读以下FORTRAN程序:K1=M(5)K2=M(K1)K3=M(K1)+M(K2)K4=M(K1+K2+K3)WRITE(*,100)K4100 FORMAT(2X;K4;I3)ENDFUNCTION M(N)M=N+1RETURNEND程序输出结果是:(A)K4=28(B)K4=27(C)K4=30(D)K4=29
阅读下列FORTRAN 程序: MQIUH=N(5)+N(10) WRITE(*,’(2X,15)’)MQIUH END FUNCTION N(K) N=0 DO 10 J=1,k N=N+J10 CONTINUE RETURN END程序运行后的结果是:(A)65 (B)85(C)90 (D)70
有程序:READ(*,50)SWRITE(*,100)S50FORMAT(1X,F7.3)100FORMAT(1X,F8.3)END执行此程序,由键盘输入123456789,则输出S的值为:()A、1234.576B、2345.678C、345.678D、*******
有程序:READ(*,100)A100FORMAT(3x,F6.2)WRITE(*,200)A200FORMAT(1x,F8.2)END当执行此程序时,从键盘输入1234567890↙,则程序的运行结果是:()A、4567.89B、1234.56C、******D、1234.5
单选题阅读下列程序 CHARACTER A*4,B*5,C*4 DATA A,B,C/’BIG’,’MIDDLE’,’SMALL’/ WRITE(*,20)A,B,C 20 FORMAT(1X,A2,A3,A4) END 程序运行结果是()A BIGMIDDLEB *********C BIGMIDSMAD BIMIDSMAL
单选题阅读下列FORTRAN程序: CHARACTER*10 A, B*6 DO 10 I=1,10 A(I:I)=' ' 10 COUNTINUE A(1:5)='ABCDE' B='FGHIJK' A(4:9)=B WRITE(*,100) A 100 FORMAT(1X,A) END 程序运行结果是()A ABCDEFGHIJB ABCDEGHIJKC ABCFGHIJKD BCDEFGHIJK
单选题有程序:READ(*,50)SWRITE(*,100)S50FORMAT(1X,F7.3)100FORMAT(1X,F8.3)END执行此程序,由键盘输入123456789,则输出S的值为:()A1234.576B2345.678C345.678D*******
单选题有程序:CHARATERX*2,Y*3,Z*4DATAX,Y,Z/‘AB’,‘CDE’,‘FGHI’/WRITE(*,100)X,Y,Z100FORMAT(1X,A1,A2,A3)END此程序的运行结果是:()AABCDEFBACDFGHC******DABCDEFGHI
单选题阅读下列程序 K(X,Y)=X/Y+X A=-2.0 B=4.0 B=1.0+K(A,B) WRITE(*,10)B 10 FORMAT(1X,F4.1) END 程序运行结果是()A-1.0B1.0C2.0D3.0
单选题有程序:READ(*,100)A100FORMAT(3x,F6.2)WRITE(*,200)A200FORMAT(1x,F8.2)END当执行此程序时,从键盘输入1234567890↙,则程序的运行结果是:()A4567.89B1234.56C******D1234.5
单选题阅读下列程序 DIMENSION M(3,3) DATA M/1,2,3,4,5,6,7,8,9/ WRITE(*,100)(M(3,J),J=1,3) 100 FORMAT(1X,3I2) END 程序运行结果是()A 2 5 8B 3 6 9C 4 5 6D 7 8 9
单选题阅读下列程序 INTEGER A(100),G READ(*,*)N,(A(I),I=1,N) DO 10 I=1,N-1 G=I DO 20 J=I+1,N IF(A(J).LT.A(G))THEN G=J ENDIF 20 CONTINUE K=A(I) A(I)=A(G) A(G)=K 10 CONTINUE WRITE(*,’(1X,10I2)’)(A(I),I=1,N) END 程序运行时输入的初始值是3,6,9,8,则运行结果是()A 6 9 8B 8 9 6C 6 8 9D 9 8 6
单选题阅读下列程序 N=0 DO 10 K=1,3 N =N+1 M=K*N 10 CONTINUE WRITE(*,’(1X,2I3)’)M,K END 程序运行结果是()A 9 4B 9 3C 12 4D 12 3(#^)
单选题阅读下列程序 F=1.0 DO 20,J=3,7,2 DO 20,K=J-1,J 20 F =F*K WRITE(*,’(13,F8.1)’)J,F END 程序运行结果是()A 3 6.0B 5 120.0C 9 5040.0D 9362880.0