主题：卡布列克常数
大大大
[专家分：0] 发布于 2005-01-30 13:27:00
卡布列克常数
卡布列克是一位数学家，他在研究数字时发现：任意一个不是有完全相同
数字的组成的四位数，如果对它们的每位数字重新排序，组成一个最大的
数各一个最小的数，然后用最大数减去最小数，差不够四位数时补零，类
推下去，最后将变成一个固定的数：6174，这就是卡布列克常数。例如：
4321-1234=3087
8730-378=8352
8532-2358=6174
7641-1476=6174
编程验证这个常数
回复列表 （共4个回复）
沙发
staa [专家分：3690] 发布于 2005-02-09 01:37:00
7641-1476=6174
应该是 7641-1467=6174 吧？
板凳
shiyr [专家分：390] 发布于 2005-02-11 18:57:00
穷举不就得了
3 楼
rickone [专家分：15390] 发布于 2005-02-21 16:28:00
dim n as integer,c(3) as integer
dim i as integer,j as integer
dim s1 as integer,s2 as integer
dim min as integer,mas as integer
input n:m=int(log(n)/log(10))
while m<>3
'n必须是四位整数
input n:m=int(log(n)/log(10))
wend
s2=n
do
s1=s2
'=====得到每一位数====
t=s1
for i=0 to 3
c(i)=t mod 10
t=t\10
next
'=====================
'=========排序========
for i=0 to 2
for j=i+1 to 3
if c(i)>c(j) then swap c(i),c(j)
next
next
'=====================
min=0:max=0
for i=0 to 3
max=max+c(i)*10^i
min=min+c(i)*10^(3-i)
next
s2=max-min
? max;"-";min;"=";s2
loop until s2=s1
? s2
4 楼
def [专家分：3380] 发布于 2005-04-02 18:57:00
富举不就得了
我来回复
您所在位置：