函数子程序FJ求一组数的和。FUNCTION FJ(X，N)DIMENSIONX(N)s=oDO 10 K=1,N S=S+X(K)10 CONTINUEFJ=_END为了完整程序，在_处应填入：A. 0.0B.SC.X(N)D.N
函数子程序FJ求一组数的和。
FUNCTION FJ(X，N)
DIMENSIONX(N)
s=o
DO 10 K=1,N S=S+X(K)
10 CONTINUE
FJ=_
END
为了完整程序，在_处应填入：
FUNCTION FJ(X，N)
DIMENSIONX(N)
s=o
DO 10 K=1,N S=S+X(K)
10 CONTINUE
FJ=_
END
为了完整程序，在_处应填入：
A. 0.0
B.S
C.X(N)
D.N
B.S
C.X(N)
D.N
参考解析
解析：在此函数名返回函数值
答案:B
答案:B
相关考题：
（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);}
下列给定程序中，函数fun()的功能是；求S的值。设 S=(22/1*30))*(42/(3*5))*(62/(5*7))*…*(2k)2/((2k-1)*(2k+1))例如，当k为10时，函数的值应为1.533852。请改正程序中的错误，使它能得出正确的结果。注童；不要改动main 函数，不得增行或删行，也不得更改程序的结构。试题程序：include ＜conio. h＞include ＜stdio. h＞include ＜math.h ＞/**************found***************/fun (int k){ iht n; float s, w, p, q;n=1;s=1.0;while (n＜=k){ w=2. 0*n;p=w-1.0;q=w+1.0;s=s*w*w/p/q;n++;}/***************found**************/return s}main(){ clrscr ();printf ("%f\n ", fun (10));}
阅读下列程序说明和C++代码，将应填入(n)处。【说明】“背包问题”的基本描述是：有一个背包，能盛放的物品总重量为S，设有N件物品，其重量分别为w1；w2，……，wn，希望从N件物品中选择若干件物品，所选物品的重量之和恰能放入该背包，即所选物品的重量之和等于S。如下程序均能求得“背包问题”的一组解，其中程序4.1是“背包问题”的递归解法，而程序4.2是“背包问题”的非递归解法。【程序4.1】include＜stdio.h＞define N 7define S 15int w[N+1]={0，1，4，3，4，5，2，7}；int knap(int s，int n){ if(s==0)return 1；if(s＜0||(s＞0 n＜1))return 0；if((1)))|printf("%4d"，w[n])；return 1；} return (2)；}main(){if(knap(S，N))printf("OK!\n")；else printf("NO!\n")；}【程序4.2】include＜stdio.h＞define N 7define S 15typedef struct{int s；int n：int job；} KNAPTP；int w[N+1]={0，1，4，3，4，5，2，7}；int knap(int s，int n)；main(){if(knap(S，N))printf("OK!\n")；else printf("NO!\n")；}int knap(int s，int n){ KNAPTP stack[100]，x；int top，k，rep；x.s=s；x.n=n；x.job=0；top=|；Stack[top]=x；k=0；while((3)){x=Stack[top]；rep=1；while(!k rep){if(x.s==0)k=1；/*已求得一组解*/else if(x.s＜0||x.n ＜=0)rep＝0；else{x.s＝(4)；x.job＝1；(5)=x；}}if(!k){rep=1；while(top＞＝1rep){x=stack[top--]；if(x.job==1){x.s+=W[x.n+1]；x.job=2；Stack[++top]=x；(6)；}}}}if(k){/*输出一组解*/while(top＞=1){x＝staCk[top--]；if(x.job＝＝1)printf("%d\t"，w[x.n+1])；}}return k；}
下面是一段Pascal程序： for h：=1 tO n-1 dO begin x：=A[h+1]； k：=h； while (k＞=1) and (A[k]＞x) do begin A[k+1):=A[k]； k:=k-1 end； A[k+1]:=x end； 假设在程序开始执行时，数组A[1..n)是一组随机整数。下列答案中，哪一个最好的描述了最差情况下的程序执行时间(运行时间阶数)?( )A．0(nlog2n)B．O(n)C．0(log2n)D．O(n2)
下面是一段Pascal程序： for h：=1 to n-1 do begin x：=A[h+1]； k：=h； while(k＞=1)and(A[k]＞x)do begin A[k+1]：=A[k]； k：=k-1 end； A[k+1]：=x end； 假设在程序开始执行时，数组A[1…n)是一组随机整数。下列答案中，最好地描述了最差情况下的程序执行时间(运行时间阶数)的是A．O(n log2n)B．O(n)C．O(log2n)D．O(n2)
下列程序运行后的输出结果是 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
以下程序运行后的输出结果是【】。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);}
在窗体画一个命令按钮，然后编写如下过程，程序运行后，单击命令按钮，在输入对话框中输入234，输出结果为 ______。 Function Fun(ByVal num As Long)As Long Dim k As Long k=1 num=Abs(num) Do While num k=k* (num Mod 10) num=num\10 Loop fun=k End Function Private Sub Command1_Click() Dim n As Long Dim r As Long n=In put Box("请输入一个数") n=CLng(n) r=Fun(n) Print r End SubA．20B．24C．9D．28
以下程序的输出结果是#include stdio.hmain(){ int k=4,s=0; do{ if((k%3)==0) continue; s+=k;k++; }while(k10); printf("s=%d\n",s);}
先在 窗体上添加一个命令按纽，然后编写如下程序： Function fun(ByVal nm As Long)As Long Dim k As Long k=1 num=Abs(num) Do While num k=k*(num Mod 10) num=num\10 Loop fun=k End Function Private Sub Command1_Click() Dim n As Long Dim r As Long n=InputBox(“请输入一个数”) n=CLng(n) r=fun(n) Print r End Sub 则在程序运行后，单击命令按纽，在对话框中输入“100”，输出结果是______。A． 0B．100C．200D．300
请补充函数fun()，该函数的功能是计算下面公式SN的值：例如：当N=50时，SN=71.433699。注意：部分源程序给出如下。请勿改动主函数main和其他函数中的任何内容，仅在函数fun()的横线上填入所编写的若干表达式或语句。试题程序：include＜conio．h＞include＜stdio．h＞double fun(int n){double s=1.0，S1=0.0；int k；for(【l】；k＜=n；k++){s1=s；【 】；}return【 】；}main(){int k=0；double S；clrscr()；printf("\nPlease input N=")；scanf("%d"，k)；s=fun(k)；printf("\ns=%lf"，s)；}
在窗体上画一个命令按钮，然后编写如下程序： Function funl(ByVal Bum As Long)As Long Dim k As Long k = 0 Bum=Abs(Bum) Do While Bum k=k+(Bum Mod 10) Bum=Bum\10 Loop fun1=k End Function Private Sub Command1_Click() Dim n As Long n=InputBox("请输入一个数") Print fun1(n) End Sub 程序运行后，单击命令按钮，在对话框中输入234，输出的结果为A．3B．4C．9D．10
有以下程序段,且变量已正确定义和赋值for（s=1.0,k=1;k=n;k++） s=s+1.0/（k*（k+1））;printf（"s=%f\n\n",s）;请填空,使下面程序段的功能为完全相同s=1.0;k=1;while（_[10]_______）{ s=s+1.0/（k*（k+1））; _[11]_______;}printf（"s=%f\n\n",s）;
试题14以下程序调用fun函数把x中的值插入到a数组下标为k的数组元素中。主函数中，n存放a数组中数据的个数。请填空。#include stdio.hvoid fun(int s[], int *n, int k, int x){ int i;for(i=*n-1; i=k; i- - ) s[ ___ ]=s[i];s[k]=x;*n=*n+______;}main(){ int a[20]={1,2,3,4,5,6,7,8,9,10,11}, i, x=0, k=6, n=11;fun(a, n, k, x);for(i=0; in; i++) printf(“%4d”,a[i]); printf(“\n”);}
阅读下列FORTRAN程序:INTEGER X(7)DATA X/4，5，7，8，10，12，11/DO 10 K=1，7IF(MOD(X(K),2).NE.0)THENS=A+X(K)N=N+1END IF10 CONTINUET=S/NWRITE(*,20)S,T20 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
以下子例行程序用于实现向一维数组下标为P的数组元素处插入一个整数X SUBROUTINE INSERT(B,N,P,X) INTEGER B(N),X,P DO 20 K=N-1,P,-1 B(K+1)=______ 20 CONTINUE B(P)=X END 为使程序完整，应在______处放入( )。A.XB.KC.B.(P)D.B.(K)
以下程序求两个整数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 程序： MQIUH=N(5)+N(10) WRITE(*,’(2X,15)’)MQIUH END FUNCTION N(K) N=0 DO 10 J=1,k N=N+J10 CONTINUE RETURN END程序运行后的结果是：（A）65 （B）85（C）90 （D）70
下面的子程序求一方阵的次对角线上的元素之和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)
以下子程序用于在一维数组中找出最大项： SUBROUTINE SEARCH(X，N，P) REAL X(N) P=______ DO 10 J=1，N IF(X(J).GT.P) P=X(J) 10 CONTINUE END 为使程序完整，应在______处放入( )。A.X(1)B.00C.17E+28D.17E-26
以下是计算N!(N的阶乘)的FORTRAN程序： READ(*，*)N ______ DO 10 K=1，N 10 S=S*K END 为使程序完整，应在横线处放入( )。A.S=1B.S=NC.S=0D.什么都不放
下面的子程序求一方阵的次对角线上的元素之和。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)
阅读下列FORTRAN程序：MOIUH=N(5)+NdO)WRITE( *，‘(2X，15)，)MQIUH ENDFUNCTION N(K)N=0DOIO J=1,K N=N+J 10 CONTINUE RETURN END程序运行后的结果是：A. 65B. 85C. 90D. 70
阅读下列FORTAN程序：INTEGER X(7)DATA X/4,5,7,8,10,12,11/DO 10 K=l，7IF(MOD(X(K)，2)NE. 0)THEN S=S+X(K)N=N+1 END IF 10 CONTINUE T=S/NWRITE(*，20)S，T 20 FORMAT(2X，3F6.1)END程序运行后的输出结果是：A. 23.0 7.7B. 47. 0 6.7C. 34. 0 8.5D. 57. 0 11.4
单选题阅读下列程序 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（#^）