阅读 FORTRAN程序： READ（*,"） I,J,KDO 10N=1,2]=I+J+KJ=I+K+JK=I+J+K10 CONTINUEWRTTE（*.20） I,J,K20 FORMAT（2X,315）END键盘输入1, 0, 0则程序运行后的输出结果是（）
A. 4713
B. 234
C. 112
D. 6915
查看答案
相关试题
换一换
阅读下列FORTRAN程序：MQIUH=N （5） +N （10）WRITE（*,’（2X, 15）’）MQIUHENDFUNCTION N （K）N=0DO 10 J=1,kN=N+J10 CONTINUERETURNEND程序运行后的结果是（）
A.65 B.85 C.90 D.70
答案
阅读下列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.65 B.85 C.90 D.70
答案
阅读以下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.3 B.2 C.1 D.0
答案
阅读以下FORTRAN程序READ（，*）M, NK=MOD（M，N）10 IF（K.GT.0）THENM=NN=KK=MOD（M，N）COTO 10END IFWRITE（t*，*）NEND若运行以上程序时，由键盘输入： 25，11则程 序输出为（）
A.3 B.2 C.1 D.0
答案
以下是计算N!(N的阶乘)的FORTRAN程序：READ(*，*)N______DO10K=1，N10S=S*KEND为使程序完整，应在横线处放入()。
A.S=1 B.S=N C.S=0 D.什么都不放
答案
已知顺序数据文件FILE3. DAT有如下数据：50,54,64,6565,70,85,90 46,73,60,72 阅读FORTRAN程序 DIMENSION M(12)OPENdO，FILE=:FILE3. DAT，）READC10，*)(M(I)，I=1，12)D0 10J=1，12 IF (M(J).GE. 60)N=N+1 10 CONTINUE WRITE(*，20)N 20 FORMAT(2X，‘N=，，12)END程序输出后的结果是：
A.N=7 B.N=8 C.N=4 D.N=9
答案
已知顺序数据文件FILE3. DAT有如下数据：50,54,64,6565,70,85,90 46,73,60,72 阅读FORTRAN程序 DIMENSION M（12）OPENdO，FILE=:FILE3. DAT，）READC10，*）（M（I），I=1，12）D0 10J=1，12 IF （M（J）.GE. 60）N=N+1 10 CONTINUE WRITE（*，20）N 20 FORM
A.N=7 B.N=8 C.N=4 D.N=9
答案
阅读下列FORTRAN程序： INTEGER X（7） DATAX/4，5， 7， 8， 10，12，11/DO 10K=1， 7IF（MOD（X（K），2）.NE .0）THEN S=S+X（K） N=N+1 END IF 10 CONTINUE T=S/N WRITE（*.20）S， T20 FORMAT（2X，3F6.1）END程序运行后的输出结果是（）
A.23.0 7.7 B.47.0 6.7 C.34.0 8.5 D.57.0 11.4
答案
阅读FORTRAN程序DIMENSI0N M（4， 3）DATE M/-10， 12， 24， 11， 20， -15， 61， 78， 93，30， 44， -45/ N（M（1，1）DO 10I=1，4DO 10J=1，3IF （M（I, J）.LT.N） THENN=M（I, J）K1=IK2=JENDIF10 CONTINUEWRITE （*，’（2x，314）’）N,K1,K2程序运行后
A.93，3, 1 B.-10, 1, 1 C.-45，4,3 D.78,3,2
答案
阅读 FORTRAN程序： READ（*,"） I,J,KDO 10N=1,2]=I+J+KJ=I+K+JK=I+J+K10 CONTINUEWRTTE（*.20） I,J,K20 FORMAT（2X,315）END键盘输入1, 0, 0则程序运行后的输出结果是（）
A.4713 B.234 C.112 D.6915
答案
热门试题
阅读以下FORTRAN程序：READ（*.*）MIF（M.LT. 100.AND.M.GT999） STOPK=M/100L=（M-K*100）10N=M-K*100-L*10MM=K+NWRITE（*,（2X,13）） MMEND键盘输入600，则程序的输出结果是（）
阅读以下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，则程序的输出结果是：
阅读FORTRAN程序：DIMENSION M(4,3)DATE M/-10,12,24,11,20,-15,61,78,93,30,44,-45/N(M(1，1)DO 101=1,4D010J=1，3IF(M(IJ)LT.N)THENN=M(I,J)Kl=lK2=JENDIF10CONTINUEWRITEC*，‘（2X，314)，）N，K1，K2程序运行后的输出结果是：
Fortran是解释执行的程序（）
阅读以下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，则程序的输出结果是：
阅读下列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;程序运行后的输出结果是:
阅读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则程序运行后的输出结果是：
阅读下列利用递归来求 n! 的程序
阅读以下程序：inta=5，b=0，c=0；if（a==b+c）printf（***/n）；elseprintf（$$$/n）；以上程序（）
M不能被N整除的FORTRAN表达式为：（）
FORTRAN程序中，可调数组可以出现在( )。
FORTRAN程序中，可调数组可以出现在：
阅读以下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 程序运行的结果是：
阅读下面的程序includevoidmain{inti,j,m,n;i=8;j=10;m=++i;n=j++;printf（%d,%d,%d,%d,i,j,m,n）;}程序的运行结果是（）
阅读下面的程序：#includeint main（）{ int i,j,m,n; i=8,j=10; m=++i; n=j++; printf（“%d,%d,%d,%d”,i,j,m,n）; return 0;}程序的运行结果是（）
阅读下列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值为( )。
解释程序适用于COBOL和FORTRAN语言。()
阅读FOKFKAN程序： READ（*， *）N DO 10K-1，N A=S+K**2 10 CONTINUEWRITE（*，100）S 100 FORMAT（2X，F8.0） END键盘输入5则程序运行后的辅出结果是（）
以下程序 n=0? ? while n<10: if n==5: ? ? ? ? ? ? ? ? ? ? break ? ? ? ? ? ? ? n=n+2 print(n)
阅读下列FORTAN程序：INTEGERX(7)DATAX/4,5,7,8,10,12,11/DO10K=l，7IF(MOD(X(K)，2)NE.0)THENS=S+X(K)N=N+1ENDIF10CONTINUET=S/NWRITE(*，20)S，T20FORMAT(2X，3F6.1)END程序运行后的输出结果是：
使用微信扫一扫登录
