主题：紧急求救!!!!!!!!!!!!
SUPER菜鸟
[专家分：0] 发布于 2005-02-18 13:20:00
我的老师要我编一个程序,找2-1000中的亲密数对(如果a的因子和等于b，b的因子和等于a，且a不等于b,则称a,b为亲密数对)
拜托了，各位英明神武、聪明伟大、玉树临风、英俊潇洒 万人迷的GGJJ![em21]
回复列表 （共6个回复）
沙发
methuselah [专家分：6840] 发布于 2005-02-18 14:49:00
什么是因子和？？/例子
板凳
SUPER菜鸟 [专家分：0] 发布于 2005-02-18 17:08:00
如:28的因子是1,2,4,7,14,则他们的和为1+2+4+7+14=28
3 楼
methuselah [专家分：6840] 发布于 2005-02-18 17:26:00
便历太太笨了，有没数学达人给个好点的算法
4 楼
methuselah [专家分：6840] 发布于 2005-02-18 17:56:00
偶写了个，你看下答案是8是对，偶懒，8高兴手算
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<script language="javascript">
function get(n){
var i=0;
var result=0;
for(i=1;i<n+1;i++){
if(n%i==0){result=result+i;}
}
return result;
}
function main(){
a=new Array();
maxnum=20;
var result="以下是亲密数对：";
var i=0;
var j=0;
for(i=2;i<maxnum+1;i++){a[i]=get(i);}
for(i=2;i<maxnum+1;i++){
for(j=i;j<maxnum+1;j++)
{
if(a[i]==a[j] && i !=j )
{result = result + " " + String(i) + "和" + String(j);}
}
}
alert(result);
}
</script>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<title>无标题文档</title>
</head>
<body onLoad="main()">
</body>
</html>
5 楼
methuselah [专家分：6840] 发布于 2005-02-18 17:57:00
对了，偶只做了20内的，如果要1000把maxnum=20;改成1000好了
6 楼
我是严天雯 [专家分：110] 发布于 2006-12-06 19:05:00
6 396
我来回复
您所在位置：社区首页 — PASCAL语言讨论区 — 紧急求救!!!!!!!!!!!!