手机
当前位置:查字典教程网 >编程开发 >vb >Basic求10000以内的完美数
Basic求10000以内的完美数
摘要:完全数(Perfectnumber),又称完美数或完备数,是一些特殊的自然数。它所有的真因子(即除了自身以外的约数)的和(即因子函数),恰好...

完全数(Perfect number),又称完美数或完备数,是一些特殊的自然数。它所有的真因子(即除了自身以外的约数)的和(即因子函数),恰好等于它本身。

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

另附上java版的代码

import java.util.ArrayList; public class T013 { public static void main(String[] args){ ArrayList p = new ArrayList(); // 保存每组的分解因子 int count = 0; // 计数(完数的总个数) int sum; // sum = (每个因子之和) for(int i=2;i<10000;i++){ // 测试每个数 i sum = 0; for(int j=1;j<i/2+1;j++){ if(i%j==0){ p.add(j); // 保存 i 的每个因子 sum += j; // 保存sum(i的所有因子相加之和) } } if(sum==i){ // 如果当前 i 是完数,则输出(i=所有因子之和) count++; System.out.printf("%4d"+" 是完数,因子是"+i+"=",i); for(int k=0;k<p.size()-1;k++){ System.out.print(p.get(k)+"+"); } System.out.println(p.get(p.size()-1)); } p.clear(); // 每个 i 结束,清空数组,重计下一个i的因子。 } System.out.println("n共找到"+count+"个完数!"); } }

以上所述就是本文的全部内容了,希望大家能够喜欢。

【Basic求10000以内的完美数】相关文章:

vb简易计算器源码

VB实现鼠标绘图实例代码

VB使用XMLHTTP实现Post与Get的方法

VB使用shell函数打开外部exe程序的实现方法

VB6实现连接Access数据库的ADODB代码实现方法

VB返回记录集结果到HTML表格的方法

VB打开与保存txt文件的方法

VB6中的LSet语句和RSet语句详解

如何产生真正的随机函数?

VB简易记事本实现代码

精品推荐
分类导航