Question

delphi判断是否素数的函数

就是判断任意一个数，是否素数的函数，返回1就是素数，0就是非素数

Answer 1

function IsPrimeNum(Num: Integer): Word;
var
i: Integer;
begin
Result := 0;
for i := 2 to (Num div 2) do
if Num mod i = 0 then
begin
Result := 1;
Break;
end;
end;
效率更高些，如果用得比较频繁，区别还是有些大的
呵呵其实到2次根效率更高些，但是需要多引用math库

Answer 2

下面是我以前写的一个判断素数的方法，你稍作调整就可以了
function TForm1.PrimeNum(number: Integer): String;
var
i, j, flag: Integer;
tempStrList: TStringList;
begin
Result:= '';
tempStrList:= TStringList.Create;
try
for i:= 2 to number do
begin
flag:= 0;
for j:= 2 to i div 2 do
begin
if (i mod j = 0) then
begin
flag:= 1;
break;
end;
end;
if ComboBox1.ItemIndex = 0 then
begin
if flag = 0 then
tempStrList.Add(IntToStr(i));
end else
begin
if flag = 1 then
tempStrList.Add(IntToStr(i));
end;
end;
Result:= tempStrList.CommaText;
finally
tempStrList.Free;
end;
end;
这个方法返回的是从0到你输入参数之间的素数或者合数（flag0为素数，1为合数）的集合， 比如输入10求素数返回的就是2,3,5,7， 最后你在集合里判断下是否有你输入的数就行了

Answer 3

function IsPrimeNum(Num: Integer): Word;
var
i: Integer;
begin
Result := 0;
for i := 2 to Num - 1 do
if Num mod i = 0 then
begin
Result := 1;
Break;
end;
end;