求因式分解的计算机算法

[linuswind]

因式分解的计算机算法，可能有一定难度。若能给出算法，定万分感激！

[老之]

大概是这样吧：

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;

[cuteant]

呵呵，穷举法不能称之为算法了吧

[cuteant]

基本上现在还没有发现一种很好的算法能快速将大数分解因式