java卡布列克运算_求验证卡布列克运算的代码及详解

网络搜索的(Pascal版、C版、C 版)：看了一下，根据卡布列克常数的定义，下面的几种程序实现包括输入数、数的各位取出、排序以求最大和最小、求差最后获取该常数。

卡布列克常数

验证卡布列克运算。

任意一个四位数，只要它们各个位上的数字是不全相同的，就有这样的规律：

1)将组成该四位数的四个数字由大到小排列，形成由这四个数字构成的最大的四位数；

2)将组成该四位数的四个数字由小到大排列，形成由这四个数字构成的最小的四位数(如果四个数中含有0，则得到的数不足四位)；

3)求两个数的差，得到一个新的四位数(高位零保留)。

重复以上过程，最后得到的结果是6174，这个数被称为卡布列克数

另外三位数的卡布列可常数是495,两位的也有,但是高位的就没有了

pascal算法实现

program kblkcs;

var

n:integer;

s:string;

a,b,c,d,t,s1,s2:string;

a1,a2,c1:integer;

m:integer;

begin

readln(n);

str(n,s);

repeat

a:=s[1];b:=s[2];c:=s[3];d:=s[4];

if a

#include

#include

int main()

{

int num[4];

int number,flag=0;

int i,j;

void paixu(int *num);

int maxium(int *num);

int minium(int *num);

while(flag==0)

{

printf("请输入数字：");

scanf("%d",&number);

fflush(stdin);

for(i=0;i

#include

#include

using namespace std;

void exchange (int &a,int &b)

{

int tmp = a;

a = b;

b = tmp;

}

int fun1(int n)

{

int a[4];

a[0] = n/1000;

a[1] = n00/100;

a[2] = n0/10;

a[3] = n;

sort(a,a 4);

return a[0]*1000 a[1]*100

a[2]*10 a[3];

}

int fun2(int n)

{

int a[4];

a[0] = n/1000;

a[1] = n00/100;

a[2] = n0/10;

a[3] = n;

sort(a,a 4);

exchange(a[0],a[3]);

exchange(a[1],a[2]);

return a[0]*1000 a[1]*100

a[2]*10 a[3];

}

int main()

{

int n,a,b;

scanf ("%d",&n);

while (true)

{

a = fun1(n);

b = fun2(n);

if (a>b) n = a-b;

else n = b-a;

printf ("%d-%d = %d

",a,b,n);

if (n==6174) break;

}

system ("pause");

return 0;

}。

全部