level 6
![[真棒]](/static/emoticons/u771fu68d2.png)
level 6
justintangd
楼主
这还是刚编出的热气腾腾“臭味十足”的程序，还未剪枝，效率较低，需要天河二号这样的大型计算机来运行~~
2014年04月24日 10点04分
2
你竟敢开中文？FBIDE开中文时界面乱糟糟无比= =
2014年04月30日 10点04分
我帮你优化=A=
2014年04月30日 11点04分
level 6
level 6
level 6
justintangd
楼主
现在由于使用的是integer数据类型，所以最大只能找到65535以下的亲和数，等周末再修改。
2014年04月24日 10点04分
6
integer不是 -2147483648 到 2147483647 吗？
2014年04月30日 11点04分
level 3
![[大拇指]](/static/emoticons/u5927u62c7u6307.png)
level 11
level 11
LZ肯定和我一样，也是搞信息奥赛的小学生吧。。。我想说一句，你的变量名最好起成英文单词， 最好见名知义，对以后搞程序有很大的帮助~
2014年04月30日 09点04分
9
做的挺好的，继续努力！
2014年04月30日 09点04分
虽然是小学生……但不搞奥赛……我本想劳动节优化……没想到你抢先了……
2014年04月30日 11点04分
回复 justintangd :我一部分信息知识用于搞奥赛，剩下的95%都用来造电脑游戏(有2D有3D有控制台有GUI，全部FreeBASIC制作)
2014年04月30日 11点04分
level 11
level 11
level 11
![[喷]](/static/emoticons/u55b7.png)
）
level 11
dim a as integer
dim b as integer
dim c as integer
dim e as integer
dim f as integer
dim h as integer
input a
dim t as double = timer
open "运行结果.txt" for output as #1
for b = 220 to a
e=1
h=1
for c = 2 to sqr(b)
if b mod c=0 then
e=e+c+b/c
end if
next c
for f = 2 to sqr(e)
if e mod f=0 then
h=h+f+e/f
end if
next f
if h=b then
print #1,b,e
print b,e
end if
next b
print "用时";timer-t;"秒"
sleep
close #1
end
2014年04月30日 11点04分
15
dim b as integer
dim c as integer
dim e as integer
dim f as integer
dim h as integer
input a
dim t as double = timer
open "运行结果.txt" for output as #1
for b = 220 to a
e=1
h=1
for c = 2 to sqr(b)
if b mod c=0 then
e=e+c+b/c
end if
next c
for f = 2 to sqr(e)
if e mod f=0 then
h=h+f+e/f
end if
next f
if h=b then
print #1,b,e
print b,e
end if
next b
print "用时";timer-t;"秒"
sleep
close #1
end
level 6
justintangd
楼主
你家电脑好快……
2014年04月30日 11点04分
16
输个小些的数字
2014年05月14日 08点05分
楼上的源码？
2014年05月14日 08点05分
应该比这快多了啊。。。
2014年05月14日 08点05分
level 6
level 1
求楼主fb的编译器 谢谢
2014年05月17日 06点05分
18
我给的下载地址里有啊！！！！！！！！！！！！！！！！！！那个.exe文件
2014年05月17日 10点05分
回复 justintangd :ok 谢谢
2014年05月17日 10点05分