16,747
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
cuteant 2006-02-24
- 打赏
- 举报
基本上现在还没有发现一种很好的算法能快速将大数分解因式
cuteant 2006-02-24
- 打赏
- 举报
呵呵，穷举法不能称之为算法了吧
老之 2006-02-24
- 打赏
- 举报
大概是这样吧：
var i,n:integer;
s:string;
begin
n:=StrToInt(Edit1.Text);
s:=Edit1.Text+'=';
for i:=2 to n do
begin
while n mod i=0 do
begin
s:=s+IntToStr(i)+'*';
n:=n div i;
end;
end;
ShowMessage(s);
end;
var i,n:integer;
s:string;
begin
n:=StrToInt(Edit1.Text);
s:=Edit1.Text+'=';
for i:=2 to n do
begin
while n mod i=0 do
begin
s:=s+IntToStr(i)+'*';
n:=n div i;
end;
end;
ShowMessage(s);
end;
