阅读以下程序说明和C程序，将应填入__(n)__ 处的字句，写在答卷的对应栏内。

[程序说明]

本程序中的函数factor(m,fac,cp)用来计算正整m(m>2)的除自身以外的所有不同因子的和。该函数返回因子和，并把各因子从小到大依次存放在数组fac中，其因子个数存入在cp所指的变量中。

例如 m=16,求得的因子为

（1，2，4，8）

因子和为15，因子 个数为4。

程序假定正整数m的不同因子个数不会超过100个。

[程序]

# include <stdio.h>

# define N 100

long factor(int m,int fac[],int * cp)

{

int c1, c2 , i, k;

long s;

fac[0]=1;

for(c1=s=1,c2=N-1,____(1)____;;)

{

k=m/i;

if(____(2)____)

if(____(3)____

{ fac[c1++]=i

fac[c2--]=k;

s +=i;

}

i++

if(i>k)brdak;

}

for9c2++;c2<=N-1;c2++)

____(4)____;

*cp=c1;

return____(5)____;

}

阅读以下程序说明和FORTRAN程序，将应填入__(n)__处的字句，写在答卷的对应栏内。

[程序说明]

函数FACTOR（M，FAC，L）用来计算正整数M（M>2）的除自身以外的所有不同因子之各，该函数值返回因子和，并把M的各因子从小到大依次存放在数组FAC中，其因子个数存放在L中。

例如：M=16 ，其因子之和为15（1+2+4+8），因子个数为4。本程序假定正整数M的因子个数不会超过100个。

[程序]

FUNCTION FACTOR(M,FAC,L)

INTEGER FAC(100),FACTOR,S,R

FAC(1)=1

L=1

R=100

S=1

10. ____(1)____

K=M/I

IF(____(2)____)THEN

IF(____(3)____)THEN

L=L+1

FAC(L)=I

FAC(R)=K

R=R-1

S=S+1

FAC(L)=I

ENDIF

ENDIF

I=I+1

IF(I.LT.K)GOTO 10

DO 20 I=R+1,100

____(4)____

L=L+100-R

____(5)____

END

　

试题三

阅读以下程序说明和C程序，将应填入 __(n)__处的字句，写在答卷的对应栏内。

[程序说明]

本程序列举从整数0至n-1中任取r个整数的所有组合。设求得组合中的各数分别存储于数据组C的C₀,C₁……C_r-1中，并假定C₀<C₁<…<C_r-1,则C_i有性质C_i<n-r+i(o<i<r)。

如设n=5,r=3,则i<2+i(0<i<3)。由初始组合0，1，2开始，可心依次产生以下组合序列：

012，013，014，023，024，034，123，124，134，234

产生组合的方法是：

• 对上一组合C₀，C₁，…C_r-1，自右端开始递增的C_i ;
• 递增C_i后仍满足_Ci的性质，表示可以开成下一个组合，则递增C_i，并顺序生成C_i+1至C_r-1;
• 递增C_i后不满足C_i的性质，则回溯；
• 直至i减至小于0为止。

[程序]

# include <stdio.h>

#define N 100

void enumall(int n,int r)

{ int i, j, c[N];

for(j=-0;j<r;j++) c[j]/*开成初始组合*/

for(j=0;j<r;j++) printf(“\t%d”,c[j]);

printf(“\n”);

i=____(1)____;

do{if(____(2)____)/*如调整c[i]是可接受的*/

{ c[i]++; /*递增c[i]*/

for(j=0;j<r;j++) printf(“\t%d”,c[j]);

prihtf(“\n”);

____(5)____

}

else____(6)____;/*回溯*/

}while(____(7)____;

}

main()

{int,n, r;

do{printf(“Enter n, r:\n”);

scanf(%d %d,%n,%r);

} while(n<r);

enumall(n,r);

}

阅读以下程序说明和FORTRAN程序，将应填入____(n)____处的字句，写在答卷的对应栏内。

[程序说明]

本程序用弦截法求方程

5^x-x²-2=0

在区间[0.0,1.0]上的一个正报。弦截法求方程 （x）=0的迭代公式如下：

 xi+1=xi- F（x_i ） (i=1,2,3…)

迭代的初值为x₀和x₁,并且满足

F（x₀）*F(x_i)<0

然后用迭代公式，由x_i-1和x_i计算x_i=1。若

F（xi-1）*F(xi+1)>0

则用x_i+1代替x_i-1;否则用x_i+1代替x_i。当

时，终止迭代，且此时的x_i+1即为方程F（x）=0的近似解。在程序中取 为10^-6，x₀=0,x₁=1。

[程序]

____(1)____

x0=0.0

x1=1.0

RT=____(2)____

WRITE(*,20) RT

20. FORMAT(1X,F10.6)

END

　

FUNCTIION ROOT(G,X,Y,EPS)

5. T=(Y-X)*G(Y)/(G(Y)-G(X))

IF(____(3)____)THEN

Z=Y-T

IF(G(X)*G(y)/(G(Y0-G(x))

____(4)____

ELSE

____(5)____

ENDIF

____(6)____

ENDIF

____(7)____

END

FUNCTION F(X)

F=5**X-X*X-2

END

　

　

阅读以下程序说明和C程序，将应填入__(n)__处的字句，写在答卷的对应栏内。

[程序说明]

某系统由n个部件组成，这些部件被物理地分成若干个分离的部件组。同一组内的两件部件i和f，它们或直接组连，或间接相连（部件i和部j间接相连是指在这两件部件之间有一个部件相连序列，其中部件i和j分别与这相连序列中的某个部件直接相连）。系统的n个部件被统一编号为0，1，…，n-1。本程序输入所有直接相连的部件号对，分别求出系统各分离部件组中的部件号并输出。

程序根据输入的直接相连的两件部件号，建立n个链表，其中第i个链表的首指针为s[i]，其结点是与部件号i直接相连的所有部件号。

程序按下述方法顺序处理各链表。设处理第i个链表，将该链表移至由指针top所指的工作链表。对top链表的各结点作如下处理：从top链表上取出一个结点，根据该结点所指出的相连部件j，将第j个链表也移入top链表中，并将所取出的结点按部件号从小到大的顺序重新构造第i个链表（该链表中只保留不相同的结点），如此重复，直至top链表为空，第i个链表的重新构造也结束。所有链表处理完毕后，重新构造好的各非空链表即对应系统中的一个部件组。

[程序]

# include <stdio.h>

# define N 100

typedef struct node {

int data;

struct node * link;

} NODE;

NODE*s[N];

int i, j, n, t;

NODE *q,*p,*x,*y,*top;

main()

{ printf(“Enter number of prarts.”);

scanf(“%d”,&n);

for(i=0;i<n;i++)s[i]=NULL;

printf(“Enter pairs.\n”);

while(scanf(“%d%d”,&i,&j)= =2)

{./*输入相连部件对，生成相连部件结点结点链表*/

p=(NODE*)malloc(sizeof(NODE));

P->data=j; p->link=s[i];s[i]=p

P=(NODE*)malloc(sizeof(node));

p->data=i;p->link=s[j];s[j]=p;

}

for(i=0;i<n;i++) /*顺序处理各链表*/

for(top=s[i],s[i]=NULL;____(1)____;)

{/*将第i链表移入top工作链表，并顺序处理工作链表的各结点 */

q=top;____(2)____;

if(s[j=q->data]!=NULL)

{/*将j链表也移入工作链表*/

for(p=s[j];____(3)____;p=p->link);

p->link=top; top=s[j];____(4)____;

}

/*在重新生成的第i链表中寻找当前结点的插入点*/

for(y=s[i]____(5)____;x=y,y=y->link);

if (y!=NULL && y->data= = q->data)

free(q);/*因重新生成的第i链表已有当前结点，当前结点删除*/

else {/*当前结点插入新生成的第i链表*/

____(6)____;

if (____(7)____ s[i]=q;

else x->link=q;

}

}

for(i=0;i<0;i++) /*输出结果*/

{if (s[i]= = NULL)continue;

for(p=s[i];p!=NULL;)

{ printf(“\t%d”,p-<data);

q=p-<link; free(p); p=q;

}

printf(“\n”);

}

}

阅读以下程序说明和FORTRAN程序，将应填入__(n)__处的字句，写在答卷的对应栏内。

[程序说明]

子程序MS对N阶方阵A中的与次（副）对角线平行的各条斜线（共有2N-1条）上的元素进行累加和比较，求出累加和的最大值MAX，以及具有最在值的斜线上的最大元素TOP，例如