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

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

卡布列克常数

验证卡布列克运算。

任意一个四位数&＃xff0c;只要它们各个位上的数字是不全相同的&＃xff0c;就有这样的规律&＃xff1a;

1)将组成该四位数的四个数字由大到小排列&＃xff0c;形成由这四个数字构成的最大的四位数&＃xff1b;

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

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

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

另外三位数的卡布列可常数是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:&＃61;s[1];b:&＃61;s[2];c:&＃61;s[3];d:&＃61;s[4];

if a

#include

#include

int main()

{

int num[4];

int number,flag&＃61;0;

int i,j;

void paixu(int *num);

int maxium(int *num);

int minium(int *num);

while(flag&＃61;&＃61;0)

{

printf("请输入数字&＃xff1a;");

scanf("%d",&number);

fflush(stdin);

for(i&＃61;0;i

#include

#include

using namespace std;

void exchange (int &a,int &b)

{

int tmp &＃61; a;

a &＃61; b;

b &＃61; tmp;

}

int fun1(int n)

{

int a[4];

a[0] &＃61; n/1000;

a[1] &＃61; n00/100;

a[2] &＃61; n0/10;

a[3] &＃61; 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] &＃61; n/1000;

a[1] &＃61; n00/100;

a[2] &＃61; n0/10;

a[3] &＃61; 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 &＃61; fun1(n);

b &＃61; fun2(n);

if (a>b) n &＃61; a-b;

else n &＃61; b-a;

printf ("%d-%d &＃61; %d

",a,b,n);

if (n&＃61;&＃61;6174) break;

}

system ("pause");

return 0;

}。

全部