工学
单选题阅读下列FORTRAN程序： F=1.0 DO 20 K=3， 7， 3 DO 20 L=K-1， K 20 WRTTE（*，’（I3， F8.1）’K， F*K END 程序运行结果的最后一行是（）A3 6.0B6 6.0C6 180.0D7 180.0
题目
3 6.0
6 6.0
6 180.0
7 180.0
相似问题和答案
第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．34756
B．23445
C．35745
D．12345
第2题：
有下列语句序列： int k=0; do{k+=5;cout＜＜'$';} while(k＜19); while(k--＞0)cout＜＜'*'; 执行上面的语句序列输出字符“$”和“*”的个数分别是( )。
A．4和20
B．5和20
C．4和21
D．5和21
解析： 此题考查的是do…while语句和while语句的使用。题目中do…while语句循环了4次，while语句循环了20次，故最后输出字符“$”4个，字符“*”20个。
第3题：
请阅读以下程序： #include＜stdio.h＞ #include＜string.h＞ void fun(int b[]) { static int i=0; do {b[i]+=b[i+1]; }while(++i＜2);} main() { int k,a[5]={1,3,5,4,9}; fun(A); for(k=0;k＜5;k++)printf("%d",a[k]);} 上面程序的输出是( )。
A．13579
B．48579
C．48549
D．48999
第4题：
INTEGER X(7)
DATA X/10,20,45,70,80,15,14/
M/X(l)
DO 10 1=2,7
IF(X(I).GIM)THEN
M=X(I)
K=1 END IF 10 CONTINUE
N=X(K)
X(K)=X(I)
X(I)=N
WRITE( *，100)(X(I)，I=1，7)
100 FORMAT(2X，713)
END 程序运行的结果是：
B. 14 20 45 70 80 15 10
C. 80 20 45 70 10 15 14
D. 20 45 70 80 15 14 10
答案:C
第5题：
下列语句段中不是死循环的是( )。
A．int i=100 While (1) { i=i%100+1 if(i==20) break； }
B．int i sum=O； for (i=l;;i++) sum=sum +l；
C．int k=0； do { ++K }while(k<=O)；
D．int s＝3379； while (s+ +%2+3%2)s++；
第6题：
下面的算法是计算不带节点的单链表长度，其中能正确执行的是______。
A．Function Length(L：Link) integer begin p:=L； j:=0； while p↑.next≠NIL DO [p：=p↑.next； j：=j+1 ] return(j) end;
B．Function Length(L：Link) integer begin p：=L； k：=0； while p≠NIL DO [p：=p↑.next； k：=k+1) return(k) end；
C．Function Length(L：Link)integer begin p：=L；k：=0； repeat k：=k+1； p=p↑.next until p=NIL return(k-1) end；
D．Function Length(L：Link)integer begin p：=L↑.next； k：=1； while p≠NIL DO [k：=k+1； p：=p↑.next] return(k) end；
第7题：
执行语句序列“int k=0; do k++; while(k*k＜20);”后，k的值为______。
5
第8题：
阅读以下程序：
Private Sub Form_click()
Dim k, n, m As integer
n = 20
m = 1
k = 1
Do While k ＜= n
m=m+2
k = k + 1
Loop
Print m
End Sub
单击窗体程序的执行结果是【 】。
41 解析：本题的循环体共要执行20次，m的最终值为1+2*20=41。
第9题：
DIMENSION M(6)
READ(*，*)M
DO 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 CONTINUE
WRITE(*，100)(M(I)，I=1，6)
100 FORMAT(2X，614)
END
键盘输入10，7，9，2，1，3;程序运行后的输出结果是:
B. 10 9 7 3 2 1
C. 7 9 2 1 3 10
D. 3 1 2 9 7 10
M(1)=10，M(2)=7，M(3)=9，M(4)=2，M(5)=1，M(6)=3。
当循环一次后M(l)的值就确定下来了，因此不需要再做下去。
答案:A
第10题：
INTEGER X(7)
DATA X/4,5,7,8,10,12,11/
DO 10 K=l，7
IF(MOD(X(K)，2)NE. 0)THEN S=S+X(K)
N=N+1 END IF 10 CONTINUE T=S/N
WRITE(*，20)S，T 20 FORMAT(2X，3F6.1)
END
程序运行后的输出结果是：
B. 47. 0 6.7
C. 34. 0 8.5
D. 57. 0 11.4
答案:A