判断longint范围内的数是否为素数代码,Delphi代码库,德仔网

代码语言

代码分类

【Delphi】判断longint范围内的数是否为素数

作者:嘉悦 / 发布于2014/10/10/ 675


	procedure getprime;
	var
	 i, j: Longint;
	 p: array[1..50000] of Boolean;
	begin
	 FillChar(p, SizeOf(p), true);
	 p[1] := false;
	 i := 2;
	 while i < 50000 do
	 begin
	 if p[i] then
	 begin
	 j := i * 2;
	 while j < 50000 do
	 begin
	 p[j] := false;
	 Inc(j, i);
	 end;
	 end;
	 Inc(i);
	 end;
	 l := 0;
	 for i := 1 to 50000 do
	 if p[i] then
	 begin
	 Inc(l);
	 pr[l] := i;
	 end;
	end;

	function prime(x: Longint): Integer;
	var
	 i: Integer;
	begin
	 prime := false;
	 for i := 1 to l do
	 if pr[i] >= x then
	 Break
	 else if x mod pr[i] = 0 then
	 Exit;
	 prime := true;
	end;

评论列表

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

试试其它关键字

　素数　

同语言下

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

可能有用的

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

嘉悦贡献的其它代码(3)

.给图片打马赛克
.判断客户端是iOS还是Android等移动终端
.判断longint范围内的数是否为素数