有程序:DO10I=1,5,3DO10J=I,310K=I+JWRITE(*,*)KEND此程序的运行结果是:()
有程序:INTEGERPP=0DO10I=0,10,3DO10J=5,100,20DO10K=-10,-5,-110P=P+1WRITE(*,*)PEND此程序的运行结果是:()
有程序:INTEGERM(3,4)DATAM/4*-1,4*-2,4*-3/S=0DO10I=1.310S=S+M(I,I+1)DO20I=4,2,-120S=S-M(I-1,I)WRITE(*,*)SEND上面程序的运行结果为:()
当输入1.5,2.5,3.5,4.0下列程序执行后的输出结果为()。 DIMENSIONA(2,2) READ(*,*)A SUM=0 DO10I=1,2 DO20J=I,2 K=A(I,J)*I*J 10A(1,2)=K WRITE(*,*)A(2,1) END
有程序:DIMENSIONA(2,2)READ(*,*)ASUM=0DO10I=1,2D010J=1,210A(I,J)=A(I,J)+I+JWRITE(*,*)A(1,2)END当输入1、2、3、4时,此程序执行后的输出结果为:()
有程序: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此程序运行的结果为:()
有程序:DIMENSIONA(2,2)INTEGERA,YY=0DO20I=1,2D020J=1,2A(I,J)=I*I+J*JY=Y+A(I,J)20CONTINUEWRITE(*,*)YEND此程序运行的结果为:()
下列程序执行后的输出结果为()。 K=0 DO10I=1,6,2 DO10J=I,6,3 IF(I.EQ.J)THEN K=K+J ELSE K=K+1 ENDIF 10CONTINUE WRITE(*,*)K END
有程序:K=1DO10I=1,2DO10J=1,210K=K*I/JWRITE(*,*)KEND此程序执行后的输出结果为()
有程序:K=0DO10I=1,2DO10J=1,210K=K+I/JWRITE(*,*)KEND此程序的执行结果K值为()
有程序: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此程序执行后的结果为:()
有程序:DIMENSIONA(4,3)DATAA/3*-1.0,3*-2.0,3*-3.0,3*-4.0/S=0.0DO10K=1,4D=ABS(A(K,1))DO20J=2,3IF(ABS(A(K,J)).GT.D)D=ABS(A(K,J))20CONTINUES=S+D10CONTINUEWRITE(*,*)SEND此程序执行后的结果为:()
有程序:INTEGERA(3)DATAA/3*1/N=2DO10I=1.NDO10J=1,N10A(I)=A(J)+1WRITE(*,*)A(N)END此程序的运行结果为:()
执行以下程序段后k的值是( )。int i,j,k=0;for(i=1,j=10;i<=j;i++,j--) k=k+i+j;
下面程序的运行结果是 。main(){int a[10]={1,2,2,3,4,3,4,5,1,5};int n=0,i,j,c,k;for(i=0;i<10-n;i++){c=a[i];for(j=i+1;j<10-n;j++)if(a[j]==c){for(k=j;k<10-n;k++)a[k]=a[k+1];n++;}}for(i=0;i<10-n;i++)printf(\%3d\,a[i]);}
下面程序的运行结果是( )。# include< stdio. h>int main( ){ int a[10]= {1,2,2,3,4.3,4.5,1,5};int n=0,i,j,c,k;for(i=0;i<10–n;i++){ c=a[i];for(j=i+1;j<10–n;j++)if(a[j]= =c){ for(k=j;k<10–n;k++)a[k]=a[k+1];n++;}}for(i=0;i
有以下程序 main() { int x[]={1,3,5,7,2,4,6,0),i,j,k; for (i=o; i<3; i++) for(j=2;j>=i;j--)
有以下程序main(){int num[4][4]={{1,2,3,4},{5,6,7,8},{9,10,11,12},{13,14,15,16}},i,j;for(i=
下述程序段的运行结果是: for(int i=1;i<=3;i++) for(int j="1;j&lt;=2;j++)" k="1;k&lt;=3;k++)" if (i="=" && k) printf “%d ”,100*k+10*j+i);> A、111 222
以下程序是用选择法对10个整数按升序排序。 【1】 main() { int i,j,k,t,a[N]; for(i=0;i<=n-1;i
阅读下列FORTRAN程序:DIMENSION M(6)READ(*,*)MDO 10 J=1,6DO 10 K=J,6JF(M(K).LT.M(J))THENN=M(K)M(K)=M(J)M(J)=NEND IF10 CONTINUEWRITE(*,100)(M(I),I=1,6)A.1 2 3 7 9 10
求s=1+1×2+1×2×3+…+1×2×3×…×10, 并将结果存到变量s中。请在_________处填上适当的内容,完善程序。 Private Sub Form_Click() Dim i, j As Integer Dim k As Long s = 0 For i = 1 To 10 k = ____________ For j = 1 To i k = k*j Next j s = s+k Next i Print “s=”;s End Sub
阅读 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则程序运行后的输出结果是()
阅读下列FORTRAN程序:MQIUH=N (5) +N (10)WRITE(*,’(2X, 15)’)MQIUHENDFUNCTION N (K)N=0DO 10 J=1,kN=N+J10 CONTINUERETURNEND程序运行后的结果是()