网友您好， 请在下方输入框内输入要搜索的题目：
题目内容
（请给出正确答案）
阅读下列FORTAN程序：
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
程序运行后的输出结果是：
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
程序运行后的输出结果是：
A. 23.0 7.7
B. 47. 0 6.7
C. 34. 0 8.5
D. 57. 0 11.4
B. 47. 0 6.7
C. 34. 0 8.5
D. 57. 0 11.4
参考答案
参考解析
解析：此题为将读入的奇数相加，并除以奇数的个数。
答案:A
答案:A
更多 “阅读下列FORTAN程序： 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 程序运行后的输出结果是： A. 23.0 7.7 B. 47. 0 6.7 C. 34. 0 8.5 D. 57. 0 11.4 ” 相关考题
考题
（9）以下程序运行后的输出结果是【9】#include stdio.hmain( ){int k=1，s=0；do{if{（（k2）！=0）continue；s+=k；k++；}while（k）10）；printf（“s=d/n”,s）;}
考题
以下程序运行后的输出结果是【 9 】#include stdio.hmain(){ int k=1,s=0;do{if((k%2)!=0) continue;s+=k;k++;}while(k10);printf("s=%d\n",s);}
考题
下列程序运行后的输出结果是Function Fun(n)X=n*nFun=x-11End FunctionPrivate Sub Command1_Click()For k=1 To 2y=Fun(k):Print yNextEnd SubA．-10 -7B．10 8C．1 3D．0 4
考题
下列程序运行后的输出结果是 Function Fun(n) x=n*n Fun=x一11 End Function Private Sub Command1_Click() For k=1 To 2 Y=Fun(k)：Print Y Next End SubA． -10 -7B．10 8C．1 3D．0 4
考题
（35）有下列程序段，单击命令按钮执行程序后，输出结果是 。Option Base 1Private Sub Commandl_Click() Dim x x=Array(23,-5,17,38,-31.46,11,8,5,-4) s1=0 s2=0 For k=1 To 10 If(x(k)0)Then s1=sl+x(k) Else s2=s2+x(k) End If Next k Y=s1/Abs(s2) Print Y End SubA.148 B.40 C.-40 D.3.7
考题
以下程序运行后的输出结果是【】。includemain(){int k=1,s=0; do{ if((k%2)!=0)continue;
以下程序运行后的输出结果是【 】。include＜stdio.h＞main(){ int k=1,s=0;do{if((k%2)!=0) continue;s+=k; k++;}while(k＞10);printf("s+%d\n",s);}
考题
有人编写了如下程序： Private Sub Form. Click（ ） Dim s As Integer，x As Integer s=0 x=0 Do While S=1000 x=x+l s=s+x^2 Loop Print s End Sub 上述程序的功能是：计算s=1+22+32+…+n2+…，直到s10000为止。程序运行后，发现得不到正确的结果，必须进行修改。下列修改中正确的是（ ）。A.把x=0改为x=1．B.把Do While s=10000改为Do While s=10000C.把Do While S=10000改为Do While s10000D.交换x=x+1和s=s+x^2的位置
考题
有下列程序： #includestdi0．h voidfun(int*S，intn1，intn2) { inti，j，t； i=n1；j=n2 while(ij){t=s[i]；s[i]=s[j]；s[j]=t；i＋＋；j --；} } voidmain（ ） { inta[10]={1，2，3，4，5，6，7，8，9，0)，k； fun(a，0，3)；fun(a，4，9)；fun(a，0，9)； for(k=0；k10；k＋＋)printf(”％d”，a[k])；printf ("＼n"); } 程序的运行结果是（ ）。A.0987654321B.4321098765C.5678901234D.0987651234
考题
以下程序的输出结果是#include stdio.hmain(){ int k=4,s=0; do{ if((k%3)==0) continue; s+=k;k++; }while(k10); printf("s=%d\n",s);}
考题
有下列程序段，单击命令按钮执行程序后，输出结果为( )。 Option Base 1 Private Sub Command1_Cliek() Dim x x=Array(23, -5, 17, 38, -31, 46, 11, 8, 5, -4) s1=0 s2=0 Fork=1 To 10 If (x(k)＞0) Then s1=s1+x(k) Else s2=s2+x(k) End If Next k Y=s1/Abs(s2) Print Y End SubA．148B．40C．-40D．3.7
考题
下列程序的输出结果是______。include main(){union {int k;char i[2]; }*S,a; s=
下列程序的输出结果是______。#include ＜stdio.h＞main(){ union { int k； char i[2]； } *S，a； s=a； s-＞i[0]=0x39； s-＞i[1]=0x38； printf("%x\n"，s-＞k)；}A．3839B．3938C．380039D．390038
考题
在下面程序运行后,输出结果为 ______。includevoid count(int x[],int n,int y
在下面程序运行后，输出结果为 ______。 #include＜iostream.h＞ void count(int x[]，int n，int y){ int k; y=0； for(k=0：k＜n；k++) if(x[k]＜0) y++； } void main(){ int b[]={2，1，-8，-3，7，2，4，6，0，-13}； int x； count(b，10，x); cout＜＜“x”＜＜x＜＜end1； }A．x=3B．x=5C．出错D．x=0
考题
有下列程序段，单击命令按钮执行程序后，输出结果为( )。 Option Base 1 Private Sub Command1_Click() Dim x x=Array(23，-5，17，38，-31，46，11，8，5，-4) s1=0 s2=0 For k=1 To 10 If(x(k)＞0)Then s1=s1+x(k) Else s2=s2+x(k) End If Next k Y=s1/Abs(s2) Print Y End SubA．148B．40C．-40D．3.7
考题
阅读下列FORTRAN程序:
INTEGER X(7)
DATA X/4，5，7，8，10，12，11/
DO 10 K=1，7
IF(MOD(X(K),2).NE.0)THEN
S=A+X(K)
N=N+1
END IF
10 CONTINUE
T=S/N
WRITE(*,20)S,T
20 FORMAT(2X,3F6，1)
END
程序运行后的输出结果是：
（A）12.0 7.7(B)47.0 6.7(C)34.0 8.5(D)57.0 11.4
考题
阅读FORTRAN程序：
READ(*,*)N
DO 10 K-1，N
S=S+K**2
10 CONTINUE
WRITE(*,100)S
100 FORMAT(2X,F8，0)
END
键盘输入5则程序运行的输出结果是：
（A）35
(B)45
(C)65
(D)55
考题
以下程序求两个整数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=J
10 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 IF
10 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
考题
阅读下列FORTRAN 程序：
MQIUH=N(5)+N(10)
WRITE(*,’(2X,15)’)MQIUH
END
FUNCTION N(K)
N=0
DO 10 J=1,k
N=N+J
10 CONTINUE
RETURN
END
程序运行后的结果是：
（A）65 （B）85
（C）90 （D）70
考题
阅读以下FORTRAN程序：
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 程序运行的结果是：
A. 10 20 45 70 80 15 14
B. 14 20 45 70 80 15 10
C. 80 20 45 70 10 15 14
D. 20 45 70 80 15 14 10
考题
阅读下列FORTRAN程序：
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;程序运行后的输出结果是:
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
考题
阅读下列FORTRAN程序：
MOIUH=N(5)+NdO)
WRITE( *，‘(2X，15)，)MQIUH END
FUNCTION N(K)
N=0
DOIO 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
考题
阅读FORTAN程序：
READ(*，*)NDO10K=1,NS=S+K**210CONTINUEWRITE(*，100)S100FORMAT(2X,F8.0)
END
键盘输入5则程序运行后的输出结果是：
A.35
B.45
C.65
D.55
考题
阅读FORTRAN程序：
READC*，*)I，J，K DO 10 N=l,2 I=I+J+K J=I+K+J K=I+J+K 10 CONTINUE
WRITE(*，20)I，J，K 20 FORMAT(2X，315)
END
键盘输入1，0，0则程序运行后的输出结果是：
A. 4 7 13
B.2 3 4
C. 1 1 2
D. 6 9 15
考题
有程序：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此程序运行的结果为：（）A
L=36B
L=39C
L=54D
L=42
考题
单选题阅读下列程序 N=0 DO 10 K=1，3 N =N+1 M=K*N 10 CONTINUE WRITE（*，’（1X，2I3）’）M，K END 程序运行结果是（）A
9 4B
9 3C
12 4D
12 3（#^）
热门标签
最新试卷