检查指定数字是否是质数代码,Delphi代码库,德仔网

代码语言

代码分类

【Delphi】检查指定数字是否是质数

作者:jellyvice / 发布于2013/12/3/ 999

function IsPrime(N: Integer): Boolean;
var
 Max: Integer;   // max divisor
 Divisor: Integer; // different divisors to try
begin
 Result := False;
 if N < 2 then
  Exit; // not a prime
 Result := True;
 if N = 2 then
  Exit; // 2 is prime
 if N mod 2 = 0 then
  Result := False; // even numbers > 2 are not prime
 Max := Trunc(Sqrt(N)) + 1;
 Divisor := 3;
 // test odd numbers
 while (Max > Divisor) and Result do
 begin
  if (N mod Divisor) = 0 then
   Result := False;
  Inc(Divisor, 2); // next odd number
 end;
end;

评论列表

本站所提供的代码，版权归原作者所有，若有侵犯作者版权，请与我们联系，我们将立即删除或修改。谢谢!
本站所有代码发布及提供者。

试试其它关键字

　质数　

同语言下

.多边形面积
.限定软件使用时间
.获取磁盘空间大小
.窗口文字淡入淡出渐变效果
.创建开机启动项
.检测并枚举系统安装的打印机
.实现保存和读取图片
.字符串分隔函数
.将BMP格式图形转化为JPG格式
.解析FTP地址

可能有用的

.SQL查询多列合并成一行用逗号隔开
.一行一行读取txt的内容
.C#动态修改文件夹名称(FSO实现，不移动文件)
.c# 移动文件或文件夹
.c#图片添加水印
.Java PDF转换成图片并输出给前台展示
.网站后台修改图片尺寸代码
.处理大图片在缩略图时的展示
.实现对图片上传的接收
.判断用户输入的是否为IP地址

jellyvice贡献的其它代码(28)

.返回双精度浮点数数组的最大值2
.返回一个双精度浮点数数组的最大值
.检查指定数字是否是质数
.两个数的最大公约数
.把一个缓冲区里的字节输出成16进制表示格式
.Graphic转换成Bitmap
.获取一个图标或光标的热点位置
.返回Gif图片的尺寸
.返回指定bitmap图片的尺寸
.检查系统中是否包含指定的字体