[求助]一个计算求值 - C语言论坛

编程论坛 → 开发语言 → 『 C语言论坛』 → [求助]一个计算求值

标题：[求助]一个计算求值

取消只看楼主

laomms

等　级：新手上路
帖　子：12
专家分：0
注　册：2006-4-16

楼主

问题点数：0 回复次数：8

[求助]一个计算求值

求所有的7位数.它的十六进制值等于每位数字6次方的和.
Hex(abcdefg)=a6+ b6+ c6+ d6+ e6+ f6+ g6
有什么最快的方法

搜索更多相关主题的帖子: 求值　

2006-08-28 09:50

laomms

等　级：新手上路
帖　子：12
专家分：0
注　册：2006-4-16

第 2 楼

得分:0

是指７位数的１０进制，能不能写一下穷举的方法

2006-08-28 10:52

laomms

等　级：新手上路
帖　子：12
专家分：0
注　册：2006-4-16

第 3 楼

得分:0

好象不对,超慢的程序的源码是怎样的?

2006-08-28 13:01

laomms

等　级：新手上路
帖　子：12
专家分：0
注　册：2006-4-16

第 4 楼

得分:0

是指10进制数字的6次方,也就是将数字的ASCII减30H后再6次方,比如6的6次方为44580H.

2006-08-28 15:22

laomms

等　级：新手上路
帖　子：12
专家分：0
注　册：2006-4-16

第 5 楼

得分:0

对．

2006-08-28 16:06

laomms

等　级：新手上路
帖　子：12
专家分：0
注　册：2006-4-16

第 6 楼

得分:0

以下是引用cwande在2006-8-28 22:54:40的发言：
我从1到1千万搜了一遍,发现就只有两个数:
1
548834
不存在7位数.

应该从1000000-9999999之间搜索吧,从1开始范围也太广了.如果方便，贴出代码看看．

2006-08-29 07:09

laomms

等　级：新手上路
帖　子：12
专家分：0
注　册：2006-4-16

第 7 楼

得分:0

用DELPHI写了一个:

function cacl(a: integer): integer; //求六次方的函数
var
b:integer;
begin
asm
xor eax,eax
xor esi,esi
mov eax,a
mov ecx,eax
mov esi,$6
@:
imul eax,ecx
dec esi
jne @
mov b,eax
end;
Result := b;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
s,i:integer;
c:string;
d:string;
begin
for i := 1000000 to 9999999 do
begin
d:=inttostr(i);
s1:=cacl(strtoint(midstr(d,1,1)));
s2:=cacl(strtoint(midstr(d,2,1)));
s3:=cacl(strtoint(midstr(d,3,1)));
s4:=cacl(strtoint(midstr(d,4,1)));
s5:=cacl(strtoint(midstr(d,5,1)));
s6:=cacl(strtoint(midstr(d,6,1)));
s7:=cacl(strtoint(midstr(d,7,1)));
s:=s1+s2+s3+s4+s5+s6+s7;
if s=i then break ;
edit1.Text:=inttostr(i);
end;
end;
end.

不知道行不行,但是计算奇慢.