对指定区域中的每一个数A实施穷举判别。根据完全数的定义，为了判别正数A是不是完全数，用试商法找出A的所有小于A的因数K。显然，1<=K<=A/2。注重到1是任何整数的因数，先把因数1确定下来，即因数和S赋初值1，然后设置K从2到A/2的循环，由表达式A/K判别K是否是A的因数，并求出A的因数累加和S。最后若满足条件A=S说明A是完全数，作打印输出。把n的因数从1开始，由小到大排列，写成和式。
----------------------------------
改进的程序：
上述程序求正因数K的试商循环中存在着大量的无效循环，使得程序运行时间较长。为了缩短运行时间 ，可以从减少K的循环次数入手。注重到数A若为非平方数，它的大于1小于A的因数成对出现，每一对中的较小因数要小于A的平方根。若数A愉为整数B的平方，此时B为A的一个因数而不是一对。因此，在作赋值B+SQR(A)之后，K的循环可以设置从2到B来完成，大大减少K的循环次数，缩短程序的运行时间。
程序代码如下：
#include<stdio.h>
#include<math.h>
void main()
{
int b,i,k,m,n,c[100];
long a,s,x,y,d[100];
printf("求区间[x,y]中的完全数.\n");
printf("请输入整数x,y: ");
scanf("%ld,%ld",&x,&y);
printf("[%ld, %ld]中的完全数有：\n",x,y);
for(a=x;a<=y;a++)
{
s=1;n=0;b=(int)sqrt(a);
for(k=2;k<=b;k++) /*试商寻求a的因数k*/
if(a%k==0)
{
s=s+k+a/k;n++;c[n]=k;d[n]=a/k;} /*a/k也是a的因数*/
if(a==b*b){s=s-b;m=n-1;} /*假如a=b^2，去掉一个b的重复因数*/
else m=n;
if(a==s)
{
printf("%ld=1 ",a); /*分两段从小到大打印因数之和*/
for(i=1;i<=n;i++)
printf("+ %d",c[i]);
for(i=m;i>=1;i--)
printf("+ %ld",d[i]);
if(a%2==1)printf("奇完全数!");
printf("\n");
}
}
}
程序运行结果如下：
说明：
迄今为止，寻找到的完全数都是偶完全数。是否存在奇完全数还是一个难题，既不能证实，也不能否定。因此在以上程序中假如找到的完全数是数(a%2==1)时，作“奇完全数!”的非凡标记
QQ：2693987339(点击联系)购买教程光盘
:
