文件名称: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)