频道分类

delphi 判断素数的简单例子

作者:admin 来源: 日期:2020/3/11 10:59:02 人气: 标签:

 
一个判断素数的简单例子:
function IsPrime (N: Integer): Boolean;
var
    Test: Integer;
begin
    IsPrime := True;
    for Test := 2 to N - 1 do
      if (N mod Test) = 0 then
      begin
        IsPrime := False;
        break; {jump out of the for loop}
      end;
end;