判斷完數的演算法

Ⅰ 判斷一個數是否完數

// 完數：一個數等於他的因子之和，如6=1+2+3; 28=1+2+4+7+14; 那麼這個嘩廳數就是完數 function isWanshu(n0) { var n = parseInt(n0); if(isNaN(n) || n < 6) // 最小的完數為6 return false; var factorArray = []; //桐豎 保存因子的數組 factorArray.push(1); // 1肯定可以整除 for(var i=2;i<n;i++) { if(n%i == 0) { // 如果能整除n，說明是因子 factorArray.push(i); // 因子亂輪隱加入因子數組}} var factorSum = 0; // 因子之和 for(var i = 0; i < factorArray.length; i++) { factorSum += factorArray[i];} return (factorSum == n);}var count = 0;

Ⅱ 求完數的演算法是什麼請告訴我演算法就好！

一個數的因子之和和這個數相等，就是完數。int i;for(i=1;i<100;i++)//100以內的完數{int j,sum=0;</或如p><p>嘩老for(j=1;j<i;j++)</p><p>if(i%j==0)</p><p>sum+=j;</p><p>if(sum==i)<亂團升/p><p>printf("%d",sum);</p><p>}

Ⅲ C語言如何判斷一個數是完數

1、打開c語言編輯器，新建一個C語言空白文件：

Ⅳ 完全數的計算方法

大數學家歐拉曾推算出完全數的獲得公式：如果p是質數，且2^p-1也是質數，那麼睜戚拿（2^p-1）X2^（p-1）便是一個完全數。
例如p=2，是一個質數，2^p-1=3也是質數，（2^p-1）X2^（p-1）=3X2=6，是完全數。
例如p=3，是一個質數，2^p-1=7也是質數，（2^p-1）X2^（p-1）=7X4=28，是完全數。
例如p=5，是一個質數，2^p-1=31也是質數，（2^p-1）X2^（p-1）=31X16=496是完全數。
但是2^p-1什麼條件下才是質數呢?
事實上，當2^p-1是質數的時候，稱其為梅森素數。到悉搭2013年2月6日為止，人類只發現了48個梅森素數，較小的有3、7、31、127等。 1.PASCAL程序 判斷 A~ B 區域仔知內的完全數為
program wanquanshu;
var i,a,b:longint;
function wanquanshu(i:longint):boolean;
var sum,k:longint;
begin
sum:=1;
for k:= 2 to i div 2 do
if i mod k=0 then sum:=sum+k;
if i=sum then wanquanshu:= true
else wanquanshu:=false;
end;
begin
repeat
readln(a,b);
until (a>0) and (b>0) and (b>a);
for i:= a to b do
if wanquanshu(i) then writeln(i);
end.
2.利用FreeBasic編程求n以內完全數
DIM AS INTEGER I,J,S
FOR I=1 TO 10000
S=0
FOR J=1 TO I2
IF I MOD J=0 THEN S=S+J
NEXT J
IF S=I THEN PRINT I,
NEXT I
SLEEP
END
3.利用pascal編程求n以內完全數
program bill02;
var m,n,y,i,j,s,ss,z:longint;
a:array[1..10000] of integer;
begin
readln(m,n);
for i:=m to n do
begin
z:=0;
fillchar(a,sizeof(a),0);
s:=2;
ss:=1;
y:=i;
while y<>0 do
begin
if y mod s=0 then
begin
ss:=ss+1;
a[ss]:=s;
y:=y div s;
end
else
s:=s+1;
end;
for j:=1 to ss do
z:=z+a[j];
if z=i then writeln(i);
end;
end.
4.利用VB編程求10000以內完全數
Dim a as Integer,b as Integer,c as Integer
For a = 1 To 10000
c = 0
For b = 1 To a 2
If a Mod b = 0 Then c = c + b
Next b
If a = c Then Print Str(a)
Next a
5.利用C語言編程求1000以內完全數
#include stdio.h
void main()
{
int j,k,sum = 0;
for(k=2;k<=1000;k++)
{
sum=0;
for(j=1;j<k;j++)
if(k%j==0)
sum=sum+j;
if(sum==k)
printf(%d ,k);
}
}
6.利用java語言編程求1000以內完全數
public class PerfectNumber {
public static void main(String[] args){
for(int i=2;i<1000;i++){
int sum=0;
//查找因數
for(int j=1;j<i;j++){
if(i % j==0){
sum += j;
}
if(sum==i)
System.out.println(i);
}
}
}
7.利用python語言編程求N以內完全數
def perfect(N):
各個真約數的和等於它本身的自然數叫做完全數（Perfect number），又稱完美數或完備數。

perfectNumber=[]
for i in range（5,N):
sum1 = 0
for j in range（1,i//2+1）：
if i%j == 0:
sum1 += j
if sum1 == i:
perfectNumber.append(i)
return perfectNumber
8.利用c++語言編程求1000以內完全數
#include <iostream>using namespace std;int main (){ int i,j,m;for(i=1;i<=1000;i++){for(j=1,m=0;j<i;j++){while(i%j==0){m=m+j;break;}}if(i==m){cout<<i<< <<its factors are ;for(j=1;j<m;j++){while(m%j==0){cout<<j<<',';break;}}cout<<endl;}}}
9.利用JavaScript語言編程求N以內完全數
function perfectNumber(N){
var nums = [], sum, i, j;
//0除以任意數都是0，所以從1開始
for (i = 0; i <= N; i++){
sum = 0
//完全數除以自己一半，求余肯定會大於0，所以用i/2
for(j = 1; j <= i/2; j++){
if (i % j === 0){
sum += j;
}
}
if (sum === i){
nums.push(i);
}
}
return nums;
}
10.c#/*完美數推算*/int 因子和 = 0;foreach (var 自然數 in Enumerable.Range(2, 10000)){因子和 = 0;foreach (var 真約數 in Enumerable.Range(1, 自然數 - 1))if (自然數 % 真約數 == 0) 因子和 += 真約數;if (因子和 == 自然數)Console.WriteLine(自然數);}

Ⅳ 用C語言編寫「判斷一個數是否為完數」！

1、首先打開C語言的編輯軟體，這里是使用VS2017版，在c語言的文件中寫入頭文件和主函數備用：

Ⅵ C語言輸入n，判斷n是不是完數

/*
**演算法思路:一個數如果恰好等於它的因子之和，這個數就稱為「完數」。
首先，求出這個敗態斗數的所察磨有因子，並將這些因子進行累加，如果該數的因子恰好等於該數本身，則該數是完數，否則不是。
*/
#include<stdio.h>
//判斷是否為完數的函數
intisWanshu(intx)
{
	inti,sum=0;
	for(i=1;i<x;i++)
		if(x%i==0)//判斷i是否是x的因子
			sum+=i;//如果是，則將該因子累加閉卜
	if(sum==x)//如果因子的累加和恰好等於x，則返回1，否則返回0
		return1;
	else
		return0;
}
intmain()
{
	intn;
	scanf("%d",&n);
	if(isWanshu(n))//調用函數isWanshu()，如果函數返回值為真，則n是完數，否則不是
		printf("%disaperfectnumber
",n);
	else
		printf("%disnotaperfectnumber
",n);
	return0;
}

Ⅶ c語言判斷完全數

#include<stdio.h>
intIsPerfect(intn)
{inti,s=1;
for(i=2;i<=n/2;i++)
if(n%i==0)s+=i;
returns==n;
}
intmain()
{intn;
scanf("世鬧迅%d",&n);
printf("%dis%saperfectnumber "彎襪,n,IsPerfect(n)?"":"not搜此");
return0;
}