A: 8
B: 4
C: 7
D: 10
举一反三
- 以下程序的运行结果是： M=0 DO I=1，4 J=I DO K=1，3 L=K M=M+1 ENDDO ENDDO PRINT *， I， J ，K ，L，M END A: 5 4 4 3 12 B: 4 4 3 3 12 C: 5 4 4 3 5 D: 5 4 3 3 12
- 阅读下列程序 N=0 DO 10 K=1，3 N =N+1 M=K*N 10 CONTINUE WRITE（*，’（1X，2I3）’）M，K END 程序运行结果是（） A: 9 4 B: 9 3 C: 12 4 D: 12 3（#^）
- 下列程序的运行显示结果是什么______ 。 M = 0 DO J = 1, 4 DO K = J - 1, 4 M = M + 1 END DO END DO WRITE( *, * )M, JEND
- 阅读下列FORTRAN程序： M=3 DO K=1，M M=5 WRITE(*，*) K，M ENDDO END 上述程序的运行结果是( )。 A: 1 5 B: 2 5 C: 3 5 D: 4 5 E: 5 5 F: 1 5 G: 2 5 H: 3 5 I: 编译出错，不能运行 J: 1 3 K: 2 3 L: 3 3
- 下列程序的运行结果是 ________ 。 CLEAR M=1 DO WHILE M<4 N=1 DO WHILE N<=M TF=N+M N=N+1 ENDDO m=m+1 ENDDO ? TF RETURN
内容
- 0
m=10 n=10 DO WHILE n>m m=m+n n=n-10 ENDDO ?m 运行此程序显示的m值是（ ）
- 1
执行下列程序后 ， 运行结果是 ________ 。 Store 0 to m, n Do while m<30 n=n+3 m=m+n enddo ?m, n return
- 2
找出并输出自然数m至n之间的能被7整除的所有数，其中m<n。 A: ga[m_,n_]:=Block[{},Do[If[Mod[k,7]==0,Print[k]],{k,m,n}]] B: gb[m_,n_]:= Module[{},Do[If[Mod[k,7]==0,Print[k]];{k,m,n}]] C: gc[m_,n_]:=Block[{},Do[If[Mod[k,7]==0,Print[k]],{k,m,n}]] D: gd[m_,n_]:= Module[{},Do[If[Mod[k,7]==0;Print[k]];{k,m,n}]]
- 3
有如下程序： CLEAR M=0 N=100 DO WHILE N＞M M=M+N N=N-10 ENDDO ？ M,N 运行此程序的结果是( )。 A: 0，10 B: 10，90 C: 90，100 D: 100，90
- 4
下列程序完成按以下格式打印杨辉三角形的前N行: 1 1 1 1 2 1 1 3 3 11 4 6 4 1请在横线处填写适当语句，使程序完整。 PARAMETER( N = 10 ) INTEGER A( N, N ), I, J DO I = 1, N ______ END DO DO I = 3, N DO J = 2, I - 1 ______ ENDDO END DO DO I = 1, N WRITE( *, 10 )( A( I, J ), J = 1, I ) END DO10 FORMAT( 1X, 10I5 )END