单选题有程序：INTEGERM（5，5）L=0DO40J=1，5DO40K=1，5M（J，K）=K40CONTINUEDO10I=1，5N=1IF（MOD（I，2）．EQ．0）N=2DO10J=N，5，2L=L+M（I，J）10CONTINUEWRITE（*，20）L20FORMAT（2X，‘L=’，I3）END此程序运行的结果为：（）AL=36BL=39CL=54DL=42
单选题
有程序：INTEGERM（5，5）L=0DO40J=1，5DO40K=1，5M（J，K）=K40CONTINUEDO10I=1，5N=1IF（MOD（I，2）．EQ．0）N=2DO10J=N，5，2L=L+M（I，J）10CONTINUEWRITE（*，20）L20FORMAT（2X，‘L=’，I3）END此程序运行的结果为：（）
A
L=36
B
L=39
C
L=54
D
L=42
参考解析
解析：
程序运行时利用双重循环为K数组提供数据。当I能被2整除时，N=2，否则N=1，利用L=L+M（I，J）进行数据累加，最终结果应为39。
相关考题：
有以下程序fun(int x, int y){ static int m=0, i=2;i+=m+1; m=i+x+y; return m;}main(){ int j=1,m=1,k;k=fun(j,m); printf("%d,",k);k=fun(j,m); printf("%d\n",k);}执行后的输出结果是A)5,5B)5,11C)11,11D)11,5
有以下程序 fun(int x,int y) { static int m=0,i=2; i+=m＋1; m=i＋x＋y; return m; } main() { int j=1,m=1,k; k=fun(j,m); printf("%d,",k); k=fun(j,m); printf("%d\n",k); } 执行后的输出结果是______。A．5,5B．5,11C．11,11D．11,5
执行以下程序后，a,b的值分别为main（）{ int a,b,k=4,m=6,*p1=k,*p2=m;a=p1==m;b=（*p1）/（*p2）+7;printf（"a=%d＼n",A．;printf（"b=%d＼n",B．;}A．-1,5B．1,6C．0,7D．4,10
有下列程序：fun (int x,int y){static int m＝0,i＝2;i+＝m+1;m＝i+x+y;return m;}main(){int j＝1,m＝1,k;k＝fun0,m);printf("%d,"k);k＝fun0,m);printf("%d\n",k);}执行后的输出结果是( )。A．5,5B．5,11C．11,11D．11,5
有以下程序： #includestdio．h void fun(int*s) { static int i=0； do{s[J]=s[J]+s[j+I]；}while(++j2)； } main（ ） { int k．a[l0]={1，2，3，4，5}； for(k=1；k3；k++)fun(a)； for(k=0；k5；k++)pfintf("%d"，a[k])； printf("\n")； } 程序运行后的输出结果是（ ）。A.12345B.23445C.34756D.35745
有如下程序，该程序的执行结果为______。 Dim k As Integer n=5 m=1 k=1 Do While k ＜= n m=m*2 k=k+1 Loop Print mA．1B．5C．32D．40
下列程序的输出结果是【 】。includeiostreamusing namespace std；class Base{public：int m，n；Base(int i，int j)：m(i)，n(j){}}；class Derived：public Base{public：int m，k，；Derived(int i，int j)：Base(i，j)，m(i+1)，k(j+1){}};int main(){Derived d(1，5);coutd．md．kd．n;return 0；}
有以下程序#include stdio.hvoid fun(int s[]){ static int j=0； do s[j]+=s[j+1]； while(++j2)；}main(){ int k，a[10]={1，2，3，4，5}； for(k=1；k3；k++) fun(a)； for(k=0；k5；k++) printf("%d"，a[k])；}程序的运行结果是A．34756 B．23445C．35745 D．12345
请读程序: include void fun(int * s) { static int j=0; do s[j]＋=s[j＋1] 请读程序： # include＜stdio．h＞ void fun(int * s) { static int j＝0； do s[j]+＝s[j+1] while( + + j＜2)； } main( ) { int k，a[10]＝{l，2，3，4，5}； for(k＝l；k＜3；k+ +)fun(a)； for(k＝0；k＜5；k++)prinf("%d"，a[k])； } 上面程序的输出结果是 ( )A．34756B．23445C．35745D．12345
有以下程序#includestdio.hvoid fun(int *s){ static int j=0;do { s[j]=s[j]+s[j+1]; )while(++j2);}main( ){ int k,a[10]={1,2,3,4,5);for(k=1；k3；k++)fun(a)；for(k=0;k5;k++)printf(”%d”,a[k]);printf("\n")；}程序运行后的输出结果是A) 12345B)23445C)34756D) 35745
有下列程序： fun(int x，int y) { static int m=0，i=2； i+=++rn；m=i x y；return m； } main { int j=l，m=1，k； k=fun(j，m)；printf("％d，"，k)； k=fun(j．m)；printf(”％d＼n”，k)； } 执行后的输出结果是( )。A.5．5B.5，11C.11，11D.11，5
有以下程序:include void sort(int L[],int n){ int j, k, flag, temp; flag=n－1; 有以下程序： #include ＜iostream.h＞ void sort(int L[],int n) { int j, k, flag, temp; flag=n-1; while (flag＞O) { k=flag-1; flag=O; for (j=O; j＜=k; j++) { if(L[j]＞L[j+1]) {A．123B．3210C．2130D．1230
【程序说明】 统计2～M中有多少个素数(只能被1或自身整除的整数称为素数)。【程序】SET TALK OFFCLEARINPUT “M=” TO MS=0(10)IF SS(I)S=S+1?? STR (1，5)ENDIFENDFOR? STR(5，5)SET TALK ONFUNC SS(11)FOR J=2 TO X-1(12)EXITENDIFENDFORIF J＝XRETU .T.ELSE(13)ENDIFENDFUNC(10)A．DO WHILE I＜MB．FOR I=2 TO M/2C．FOR I=M TO 1 STEP -1D．FOR M＝I TO 0 STEP-1
阅读下列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
阅读下列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
下面的子程序求一方阵的次对角线上的元素之和。SUBROUTINE CDJX(M，N，K)DIMENSION M(N，50)DO 10 J = 1,NK=_10 CONTINUE RETURN END为了使程序完整，应在_处填入的是：A.K+M(J，J)B.K+M(J，N+1—J)C. K+M(N+J,J)D. K+M(N+J,N-J)
以下程序求两个整数M，N 的最大公约数： SUBROUTINE ZDGUS（M，N） K=__________ DO 10 J=2，K IF（MOD（N，J）.EQ.0.AND.MOD（M，J）.EQ.0）L=J10 CONTINUE WRITE（*，’（2X，15）’）L RETURN END为了使程序完整，在_____处应填入的是：（A）M （B）N（C）MIN（M，N） （D）M/N
阅读下列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
下面的子程序求一方阵的次对角线上的元素之和SUBROUTINE CDJX(M,N,K)DIMENSION M(N,50)DO 10 J=1，NK= {pz_填空}10 CONTINUERETURNEND为了使程序完整，应在{pz_填空}处填入的是：（A）K+M(J,J)(B)K+M(J,N+1-J)(C)K+M(N-J,J)(D)K+M(N+J,N-J)
有程序：INTEGERM（3，3）DATAM／1，2，3，4，5，6，7，8，9／DO10I=1．3DO10J=1，3K=M（I，J）M（I，J）=M（J，I）M（J，I）=K10CONTINUEWRITE（*，100）（（M（I，J），J=1，3），I=1，3）100FORMAT（1x，3I2）END此程序执行后的结果为：（）A、1；4；7；2；5；8；3；6；9B、1；2；3；4；5；6；7；8；9C、9；6；3；8；5；2；7；4；1D、7；8；9；4；5；6；1；2；3
有程序：K=0DO10I=1，6，2DO10J=1，6，3IF（K．LT．I*J）K=I*J10CONTINUEWRITE（*，*）KEND此程序执行后的输出结果为：（）A、18B、30C、25D、36
有程序：INTEGERM（5，5）L=0DO40J=1，5DO40K=1，5M（J，K）=K40CONTINUEDO10I=1，5N=1IF（MOD（I，2）．EQ．0）N=2DO10J=N，5，2L=L+M（I，J）10CONTINUEWRITE（*，20）L20FORMAT（2X，‘L=’，I3）END此程序运行的结果为：（）A、L=36B、L=39C、L=54D、L=42
单选题有程序：INTEGERM（5，5）L=0DO40J=1，5DO40K=1，5M（J，K）=K40CONTINUEDO10I=1，5N=1IF（MOD（I，2）．EQ．0）N=2DO10J=N，5，2L=L+M（I，J）10CONTINUEWRITE（*，20）L20FORMAT（2X，‘L=’，I3）END此程序运行的结果为：（）AL=36BL=39CL=54DL=42
单选题有程序：INTEGERM（3，3）DATAM／1，2，3，4，5，6，7，8，9／DO10I=1．3DO10J=1，3K=M（I，J）M（I，J）=M（J，I）M（J，I）=K10CONTINUEWRITE（*，100）（（M（I，J），J=1，3），I=1，3）100FORMAT（1x，3I2）END此程序执行后的结果为：（）A1；4；7；2；5；8；3；6；9B1；2；3；4；5；6；7；8；9C9；6；3；8；5；2；7；4；1D7；8；9；4；5；6；1；2；3
单选题有程序：K=0DO10I=1，6，2DO10J=1，6，3IF（K．LT．I*J）K=I*J10CONTINUEWRITE（*，*）KEND此程序执行后的输出结果为：（）A18B30C25D36