Delphi 判断是不是素数.rar

时间:2022-07-30 04:36:51
【文件属性】:

文件名称:Delphi 判断是不是素数.rar

文件大小:4KB

文件格式:RAR

更新时间:2022-07-30 04:36:51

Delphi源码-算法实例

Delphi 判断是不是素数,一个简单的数字问题吧,数学 学的好的,肯定知道什么是素数了,了解本代码,首先需要知道什么是素数,然后才知道怎么判断素数,本代码就是其中一种判断素数的方法,不是太复杂,核心代码部分如下:   if (edit1.Text='1')or(edit1.Text='2')or(edit1.Text='3') then    begin    label2.Caption:='是素数';    end    else    begin    for i:=2 to trunc(sqrt(p)) do    begin    if frac(p/i)=0 then    begin    label2.Caption:='不是素数';    break;    end    else    begin    label2.Caption:='是素数';    end;    end;    end;


【文件预览】:
codesc.net
----判断是否为素数()
--------Unit1.ddp(51B)
--------Project1.res(876B)
--------Unit1.dfm(1KB)
--------Project1.cfg(434B)
--------Project1.dpr(188B)
--------Project1.dof(2KB)
--------Unit1.pas(1KB)

网友评论